[syntax=vbscript]Sheets("2").Range("C1")... = vbRed[/syntax]
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
Witam. W arkuszu mam utworzone makro do odznaczania pola wyboru Sub czyszczenie_komórek() Worksheets("wydatki").CheckBoxes.Value = False End Sub Problem pojawia się gdy chcę zmienić nazwę arkusza (lub wykonać jego kopię - co również powoduje zmianę nazwy). Wówczas makro przestaje działać, bo w kodzie makra jest odwołanie do nazwy arkusza, która przecież...
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Może spróbuj przez podstawianie formuł. Makro przetestowałem na arkuszu "Zmiana N". Jeśli to jest to, to masz już z górki.[syntax=vb]Sub Proba() For j = 6 To 10 Step 2 zmF = InStr(Cells(3, j).Formula, "KW") zmF = Mid(Cells(3, j).Formula, zmF, 4) zmR = InputBox("W kolumnie " & j & " " & zmF & " zamienić na:", "podaj symbol") If zmR <>...
cześć prośba o pomoc mam zarejestrowane makro, uruchamia się w jednym arkuszu , prośba jest taka aby podpowiedzieć jak zmienić kod , żeby makro mogło uruchamiać się w innych arkuszach w pliku. [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Range("B8:U99").Select ActiveWorkbook.Worksheets("13_03_zm II").Sort.SortFields.Clear ActiveWorkbook.Worksheets("13_03_zm...
Moim skromnym zdaniem ostatni dodany arkusz ma najwyższy indeks (nazwę tylko nie tę widoczną w Excelu pod arkuszem) Ustalić go można prosto korzystając z: [syntax=vbscript]OstArk = ActiveWorkbook.Sheets.Count[/syntax] skopiować na koniec: [syntax=vbscript]Sheets(OstArk).Copy After:=Sheets(OstArk)[/syntax] i ostatni krok ze zmianą nazwy: [syntax=vbscript]...
1. Zmiana koloru nie jest zdarzeniem, więc musisz uruchamiać makro (w ostateczności można wykorzystać 'SelectionChange', ale ma to w tej sytuacji swoje minusy) Następna sprawa, to skąd Excel "ma wiedzieć" jaki kolor był przed zmianą? Potrzebna byłaby tabelka w dodatkowym arkuszu kolor>zakres obszaru wydruku. 2. Myślę, że wystarczy zwykłe JEŻELI(Arkusz1!suma>160;Arkusz1!suma-160...
Oczywiście. Z tym, że to jest, na oko, dość... proste. No i brakuje najważniejszej informacji. Na podstawie jakiego zdarzenia obrazki mają znaleźć się w arkuszu? Coś się musi wydarzyć, żeby zadziałało makro. Np zmiana w D6, naciśniecie przycisku, otwarcie pliku, aktywowanie arkusza (niepotrzebne skreślić)
Prawdą jest, że powinno się program wykonać w Accessie. Można jednakże dużo wykonać w Excelu i prezentuję mój pomysł na rozwiązanie problemu.W dołączonym pliku zamieściłem przykładowy kod do drukowania etykiet. Na stronie "Wydruk" jest przycisk uruchamiający makro. Wielkość wydruku należy ustawić w zależności od drukarki. Ustawienie obszaru wydruku...
Chciałabym, aby odpowiednie komórki automatycznie uzupełnić odpowiednimi odniesieniami do sąsiedniego arkusza. VBA fajna rzecz - warto się poduczyć :D , lecz póki co dla Twoich celów wystarczy wykorzystać prostą funkcję :spoko: 897374 3 formuły jak na zrzucie możesz kopiować do następnych kart.
Musisz jakoś wskazać z którego arkusza chcesz usunąć dane. Excel (makro) to nie jasnowidz. Albo ustawisz stałą nazwę abo jak radził kolega walek wykorzystasz indeks arkusza (lub jego nazwę w VBA) Czyli zastąp Sheets("1").Select Sheets(2).Select (ale wtedy arkusz z którego usuwamy musi być drugi w kolejności) lub Arkusz2.Select (Arkusz2 to nazwa obiektu...
Jeśli to miałyby być formuły, to tak jak napisałem: Trzeba wpisywać po kolei od lewej z zachowaniem ciągłości numeracji. Jeśli chcesz modyfikować dane losowo, to tylko VBA. A jeśli VBA, to musiałbyś opisać jak dokładnie miałoby to działać. Czy zakres komórek C6:P6 byłby stały? Czy kolejność numerów miałaby być korygowana na bieżąco po każdym wstawionym...
Jeżeli jest to związane z Twoim poprzednim tematem, to jest to do zrobienia. Można zrobić procedurę, która przetworzy dane przy okazji importu do Excela. Będzie trochę kombinacji... O wiele prościej będzie przeznaczyć dodatkowy arkusz lub osobny skoroszyt, do którego zaimportujesz dane z Outlooka, po czym w Excelu uruchomisz makro, które wstawi dane...
Makro zrobiłem poprzez zarejestruj makro. Ale zawsze była jakaś zmiana, Oprócz arkuszy A i B utworzyłem dwa tymczasowe. Sprawdzam czy nazwa A i B są jednakowe, jak tak kopiuję do C, jak nie zostawia puste. Później kopiuję ręcznie pozostałe dane. Wyciągam niepuste wg nazwisk. Kopiuję do arkusza D i nadaję pojedyńcze numery
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Sprawa jest trochę skomplikowana, bo hiperłącza w Excelu nie lubią sortowania, a sortowanie nie przesuwa odpowiednio hiperłączy. Do tego jeszcze funkcja HIPERŁĄCZE nie obsługuje tablic, tylko pojedyncze komórki. Być może jest to do zrobienia z wykorzystaniem funkcji LAMBDA, nie próbowałem, ale obawiam się, że mogłoby to być dość powolne rozwiązanie....
... gdyż naciskasz F9 idziesz zrobić kawę, wracasz i gotowe :D ... A mogę zapytać po co naciskasz F9? Masz wyłączone automatyczne odświeżanie? Odwołania cykliczne w formułach? Owszem F9 wymusza przeliczanie ale całego arkusza/skoroszytu a akurat "moje" rozwiązanie tego nie potrzebuje (pod warunkiem że masz włączony standardowo automat w opcjach) W...
Może jeszcze raz jaśniej opiszę temat. :crazyeyes: Nie wiem czy właściwie odczytałem tą Twoją kombinację warunków :?: ale efekt wielokrotnego kopiowania jednej tabeli jednowierszowej, oraz pojedynczego kopiowania tabeli wielowierszowej - można zrealizować tak jak na zrzucie 959003 poprzez kod VBA (makro) z wykorzystaniem zmiennych tablicowych jak w...
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Excel to arkusz kalkulacyjny (obliczeniowy) a nie gotowy program. Nie da się "wstawić "tabelki w jeden wiersz. Wg mnie nie do końca rozumiesz co to jest arkusz kalkulacyjny. Co do makra i "małej" podpowiedź. :) Kłopot polega na tym że pisanie makra pod dane rozwiązanie musi opierać się na konkretnych/stabilnych danych (które zna autor projektu). To...
Co zrobić, aby po po zmianie wartości w kolumnach 5,6,7,8; Data i godzina w kolumnach B i C pozostała niezmieniona. Odpowiadając tak na "sucho" ... trzeba do kodu dodać coś takiego: Wariant I If Target.Column = 5 Or Target.Column = 6 Or Target.Column = 7 Or Target.Column = 8 Then " można skrócić do " If Target.Column >= 5 And Target.Column <=...
Po pół godzinie wczytywania się załapałem (chyba) o co chodzi. Po pierwsze czy aby na pewno nie będzie interesowało cię za co klient zapłacił? Bo czyszczenie danych i przygotowywanie do kolejnego "wpisu" zlikwiduje szczegóły (składowe) danej wpłaty. Druga rzecz związana z brakiem sumowania. Może jest błędna formuła (nie uwzględnia wszystkich komórek)...
Funkcji nie ma ale proste makro może to załatwić. Powiedzmy, że w A1 wpiszesz datę (zgodnie z formatem daty excela) 2010-05-05 Pod przycisk (z formularzy) podepnij poniższy kod i już. Drukuj tylko za pomocą tego przycisku, inaczej data się nie zmieni. Ewentualnie w kodzie dostosuj do swoich potrzeb nazwę komórki z datą (A1) i nazwę arkusza (Arkusz1)....
W Excelu takie zadanie można szybko zrealizować np. w oparciu o zdarzenie CheckBox1_Click() :D tzn. zmiana stanu checkboxa z False na True wywołuje wstawienie bieżącej daty :spoko: Jak widać na zrzucie checkbox = False więc pozostaje stara data :D 1091662 1091663 Spróbuj zaimportować ten plik do Google Sheets i być może zaimportuje się również to krótkie...
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Witam, poszukuję makra, które uruchamiało by się automatycznie po wykryciu zmiany wartości w kolumnie "Data" w arkuszach 1,2. Miało by ono działać następująco: gdy w kolumnie "Data" zostaje wprowadzona zmiana, makro sprawdza nazwę z kolumny A oraz zapamiętuje starą wartość komórki "Data", przechodzi do arkusza 3 i wyszukuje w kolumnie A nazwę z arkusza...
Rozbudowałem Ci to makro tak, żeby uwzględniało operacje na kilku komórkach jednocześnie, ale nie zmieniałem zasady jego działania. Więc jeśli zależy Ci na historii wszystkich komórek, musisz przestrzegać pewnych reguł. Makro działa w ten sposób, że po zaznaczeniu komórki/komórek zapamiętuje ich zawartość i adres (procedura SelectionChange). Następnie...
Jeżeli chodzi o przenoszenie formatowania to excel właściwie nie ma żadnych funkcji. Można to zrobić jedynie poprzez makro (VBA) lub "pisaniną" poprzez formatowanie warunkowe i to w excelu 2007 i powyżej, bo niższe mogą mieć tylko max 3 warunki. Ten kto zna jako-tako programowanie w VAB może sobie poradzić. Ten kto nie ma pojęcia na początku upadnie,...
(at)Paweł - ale hurtowa zmiana nazwy w TC to też żaden problem ;)
Jeśli w zakresie są formuły, to zmienia postać rzeczy. Spróbuj wykorzystać inne zdarzenie. [syntax=vb]Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim kom As Range For Each kom In Range("C13:G13") If kom.Value < 0 Then MsgBox "Błąd w " & kom.Address(False, False) Next End Sub[/syntax]Warto może ograniczyć Target.Range, bo zmiana...
Plik, który zmienia nazwę to plik z którego kopiujemy dane - Zlecenie prac na formie wtryskowej. Plik z arkuszem Import nie zmienia nazwy nigdy. W tym pliku wklejamy tylko komórki od S6:V6 z każdego jednego arkusza 1,2,3... z pliku Zlecenie prac na formie wtryskowej. Mam nadzieję, że jest jaśniej.
Wierszy by było około 5tys. i są to podobne wartości (raport kasowy) Jeżeli wszystkich 5 tys wierszy to nie ma sprawy. Excel ma w jednym arkuszu 65.635 wierszy w każdej kolumnie. Jeżeli w każdym arkuszu masz po 5 tys to razem 600.000 wierszy więc jeżeli już to trzeba to będzie rozdzielić na parę kolumn. Kolumn jest w 2007 do IV czyli 256. A tak już...
Na podstawie samego kodu, to nie jest oczywiste. Powinnaś załączyć plik z tym kodem i napisać w którym dokładnie miejscu kodu występuje błąd. Poza tym kod jest trochę dziwny. Ile masz arkuszy o nazwie "aaaa"? Po co ta pętla? Czy pasek ScrollBar ma faktycznie numer 2?
Witam, mam stare makro na kilka stron a4 napisane jeszcze pod windowsem 2000. W firmie wszystko przeszlo na nowe windowsy poza jednym komputerem. Makro niedziala pod nowym excelem i wykrzacza sie w momencie wklejania. [syntax=vb] Worksheets("Working").Select Range("a1:iv65536").ClearContents Range("a1").Select ActiveSheet.Paste If ActiveCell.Offset(11,...
ok, działa jednak teraz blokuje się arkusz bo skoro caly czas jest wpisane Start to makro za każdym razem się odpala. Po wykonaniu makra powinna nastąpić zmiana wartości Start na Koniec. Tylko jak to zrobić?
Wolałbym jednak użyć tego rozwiązania, gdyż chciałbym to makro połączyć z innym, które już wcześniej stworzyłem. Część kodu już mam, więc chciałbym go dokończyć chociażby w ramach nauki na przyszłość.
... W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany ... Słuszna uwaga ... ale nie za każdym razem, czyli kod w innym miejscu. Czyścić powinno się komórki tak, by wykonała to ostatnia zmiana, która będzie tam coś wpisywać, tak aby przed swoim wpisem miała informację o tym, że poprzednicy w ogóle coś wpisywali (bo może...
Witam mam dwie listy rozwijalne i dodane makro które miało czyścić jeśli w pierwszej liście zajdzie jakaś zmiana wtedy druga jest pusta, makro działa ale przy obróbce danych w arkuszu makro się "wykrzacza" dlaczego tak się dzieję co w nim należy zmienić. Proszę o pomoc ! użyty kod makra Private Sub Worksheet_Change(ByVal Target As Range) If Target =...
Według jakich zasad chcesz to zmieniać? Może dałoby się wykorzystać formatowanie warunkowe? Tylko warunek musi dać się obliczyć, nie może to być po prostu zmiana koloru. Generalnie kolor jest w Excelu dodatkiem i nie powinien być traktowany jak dane. Na przykład zmiana koloru w komórce nie generuje typowych zdarzeń i trudno na to reagować. Może opracuj...
Należy oprogramować zdarzenie SheetChange skoroszytu. Wykrywa ono równocześnie, w którym arkuszu i w której komórce nastąpiła zmiana. Kod: [syntax=text]Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) If Target.Address <> "$F$6" Then Exit Sub If IsNumeric(Target) And Target > 0 Then Sh.Tab.Color = vbRed Else Sh.Tab.Color...
Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...
Polecam zaprzyjaźnić się z debuugerem. Pomaga na zgryzoty :D Wstawiasz break ("czerwone kółko") na początku obu funkcji, ale nie przy deklaracji zmiennych (klikając na szarym polu po lewej stronie kodu). Potem robisz jakąś akcję w excelu, np. zmieniasz arkusze, i kiedy program zatrzyma wykonywanie w zaznaczonym miejscu, wciskając F8 przechodzisz kolejne...
Ponieważ zmiana dzieje się na arkuszu Arkusz1, można umieścić w kodzie aktywacyjnym w kodzie Arkusz2 [syntax=vb]Private Sub Worksheet_Activate() Dim w&, k&, och As Boolean arw = Array(2, 3, 5, 6, 8, 10) With Me .Unprotect For k = 1 To 11 och = UCase(.Cells(1, k)) <> "JEST" For w = LBound(arw) To UBound(arw) .Cells(arw(w), k).Locked = och...
Przypisz do każdego z przycisków odpowiednie makro [code][syntax=vbscript] Private Sub CommandButton1_Click() n1 = Range("N1").Value 'napisz formule if '=JEŻELI(N1>8;"STR. 1/5"; (JEŻELI(N1>6;"STR. 1/4";(JEŻELI(N1>4;"STR. 1/3";(JEŻELI(N1>2; "STR. 1/2"; "STR. 1/1"))))))) Dim text As String text = "str.2" & "/" & n1 Range("G3").Select ActiveCell.FormulaR1C1...
Należy pamiętać, że znaki interpunkcyjne w formułę arkusza Excel
Jeszcze nikt się nie odezwał ... ? Zatem moja propozycja - sprawdź, czy o to chodziło: 1. Punkt wyjściowy - tabelka w zakresie wierszy ' A2:K19 ' 2. Za pierwszym razem przycisk " Zmiana asortymentu " można wstawić automatem (makro: " a_wyszukaj_kotwe ") lub ręcznie (makro: " b_dodaj_wciskanego ", należy jednak uprzednio zaznaczyć komórkę ' B21 ' - makro...
Spróbuje wyjasnic jeszcze raz o co mi chodzi. Dodaje dwa pliki z excela(jeden z makrem drugi bez). Mam dużo większą ilość danych niż w przykladowych plikach i większy rozrzut wartości zakończonych gwiazdką(*). Potrzebuje pozbyć się gwiazdek do czego stworzyłem proste makro. Po jego wykonaniu gwiazdki znikają, lecz formatowanie tych komórek pozostaje...
Bardzo bardzo dziękuję! Praktycznie o to mi chodziło. Natomiast jeszcze 2 pytania: 1) Czy duża byłaby zmiana w kodzie gdyby dla braku nazwy czy braku numeru w arkuszu config, makro nie wyświetlałoby komunikatu tylko pozostawiało stare wartości w kolumnie z nazwą? (Arkusz1) Po prostu żeby wtedy przechodziło dalej do kolejnej linijki nic nie robiąc.....
Bałem się ze odpowiedź będzie zahaczała o VBA, tak formularze są w jednym arkuszu, ale mogę je podzielić tak żeby każdy był w oddzielnym z tym że wtedy musiałbym znaleść sposób na ukrycie konkretnego arkusza w powiązaniu z zawartościa komórki a to zapewne też już trzeba płodzić makro albo dwa? Plik załączam, liczba która determinuje ilość formularzy...
Jeśli będziesz uruchamiał makro zawsze na tym arkuszu, możesz się do niego odwołać przez ActiveSheet. Jeżeli arkusz jest tylko jeden lub zawsze na tej samej pozycji - wówczas przez Worksheets(x) - gdzie x = numer arkusza
Zauważyłem pewną zależność, w pliku zlecenie Cent znajduje się przycisk zmiana zlecenia, ma on za zadanie dodanie nowego arkusza i takie tam ale jedną z rzeczy które wykonuje to podmiana makra pod przyciskiem "zakończ zlecenie". I w tym momencie gdy wywołam makro o nazwie "zakończ zlecenie pozmianowe" rejestr na samym końcu wysypuje się, gdy wywołam...
Dobra czas aby autor się wypowiedział. :) Więc wersja kolegi marek003 przekonuje mnie bardziej niż wersja kolegi adamas_nt, pewno ze względu na to że jest bardziej uproszczona bez dodatkowych kolumn. Niestety tak jak w poprzednim przypadku pozostaje kwestia odejmowania, więc marek003 skoro napisałeś Jeżeli w tabeli wynikowej miałyby być pełne ilości...
Witam Jesli chodzi o vba i makra jestem mocno początkujący ale zastanawia mnie to czy istnieje kod który będzie powtarzał czynność w kolejnych arkuszach o innych nazwach. Chodzi o to,że mam trzy arkusze dane wejsciowe , zmiany, dane po zmianach. I chciałbym aby ten ostatni arkusz był nowym wyjściowym dla kolejnych 2 (zmiany 2 i dane po zmianach 2) itd....
Jeżeli dla dnia roboczego wszystko jest ok :?: :D to problem powstaje w weekend i œwięta. Co jest ok :?: W którym pliku i w którym arkuszu (zakładam, że rozróżniasz te dwa pojęcia :D ) :?: Jak wygląda Twój plik Raporty zmianowe.xlsm , jak ułożone są tam dane i kto, kiedy wprowadza tam dane z poszczególnych zmian, a kto je tam zeruje :?: :cry:...
żeby kopiowało tak jak kopiuje ale bez otwierania np. zmiana1 i zmiana2 Makro działa w chwili otwarcia arkusza "podsumowanie". Wszystkie dane które były wprowadzone w zmiana1, zmiana2, zmiana3 makro kopiuje i wykasuje dane z arkuszy zmiana1, zmiana2, zmiana3. Jak w piątek nie otwierac "podsumowanie", dane pozostaną aż do poniedziałku, a raczej do czasu...
Mam kilka pytań odnośnie Twojego problemu. Ale po kolei. Spróbujmy najpierw formułami bo makra (moim zdaniem używa się wyłącznie w przypadku gdy zabraknie powyższych. Zacznijmy od: 1) Zapętlenie daty. Czy to ma być stały przedział dni w ilości (jak piszesz) 84? Jeżeli tak to w komórkach od Z13 wstaw formułkę dodającą 1 do komórki powyżej. =Z12+1 W tym...
Nie ma makra które by działało w tym samy czasie co dokonujesz zmian w arkuszu. (albo działasz ty albo makro)
"dodawanie" (Arkusz 3, G2) dodawało go automatycznie do listy do Arkusz1 jako kolejną pozycję Tylko, że musisz zablokować makro, które tam występuje (Blokada). Zmiana nazw zakładek: ''Arkusz3''=>''Odczyt skanerem''; ''Odczyt skanerem''=>''Lista'' 885424
Przed zmianą wyboru w komórce A3 należy wyczyścić komórki J3:L3. Wtedy formuła wykorzysta dane z tabelki. To czyszczenie można ewentualnie zautomatyzować makrem zdarzeniowym reagującym na zmianę w komórce A3. To makro jest w module arkusza Zabudowa, ale jest w tej chwili zapisane tylko dla komórki A3. Jak będziesz chciał wprowadzać dane także w innych...
Dziękuję! [syntax=text] Sub makro_1() Dim Zakl As Worksheet 'pojedynczy arkusz Dim Nazwa As String 'nazwa arkusza Dim Numer As Long 'numer arkusza Dim LiczbaArkuszy As Long 'liczba arkuszy w pliku LiczbaArkuszy = Worksheets.Count Sheets(Array("Arkusz2", "Arkusz3", "Arkusz4", "Arkusz5", "Arkusz6", "Arkusz7", _ "Arkusz8", "Arkusz9", "Arkusz10", "Arkusz11")).Select...
Mam problem z napisaniem makra które działało by przy następującym zdarzeniu: Zmiana wartości w komórce a1 -(lista rozwijana) powodowała by odpowiedni wpis do komórki b12. (ten sam arkusz) np. komórka a1 - wybór z listy - "spec" w komórce b12 - pojawia się zapis - "4210" oraz w komórce b13 - pojawia się zapis - "4260" i tak dla kilkunastu pozycji z...
Mam stworzony arkusz w którym w kilku komórkach użytkownik wprowadza pewne parametry i chciałbym żeby tylko do tych komórek miał dostęp. W innych komórkach makro dokonuje obliczeń obliczenia te widać ale użytkownik nie może mieć w to ingerencji ponieważ boję się że ktoś coś pomiesza bądź usunie formule. Używając tego parametru umożliwie aby makro wprowadzalo...
Nawet nie czyści swojego arkusza tylko codziennie wrzucany jest nowy plik na którym pracują pracownicy Ale pytanie zostaje, czy "Arek" co dziennie zaczyna wpisywać od B4? Tak codziennie każdy pracownik w swoim arkuszu zaczyna od B4. Na koniec dnia ja to wszystko kopiuje do arkusza PH1 i arkusz ten przesyłam dalej a plik na którym pracowaliśmy beckupuje...
Wstawiłeś 2x .Find, a za drugim razem powinno być .FindNext. Ta całą pętla For powinna wyglądać tak: [syntax=vb]For r = 1 To UBound(szukaneTabl) 'przepisanie wartości tabeli wscel.Range("A" & wstaw) = szukaneTabl(r, 1) wscel.Range("B" & wstaw) = szukaneTabl(r, 2) Set c = wsbaza.Range("A1:A" & ost_wiersz_bazy).Find(What:=szukaneTabl(... 1),...
Witam, Mam uprzejmą prośbę o pomoc. Założenia są takie: chce z pliku MS Excel z danymi „wyeksportować” do pliku w formacie „.pdf” zaznaczone / zdefiniowane obszary z dwóch arkuszy. Napisałem mokro w VBA Ms Excel, które to robi. To makro działa - ale nie działa tak jakbym chciał. Makro zapisuje plik w formacje pdf - ale nie z...
Andie, bardzo dziękuję za Twoją odpowiedź. Sprawa niestety wygląda tak, że wartości komórek J4, J5 to również wynik formuł w nich zawartych, a te odnoszą się do kolejnych komórek z formułami... dość to rozbudowane, dlatego załączam prosty plik (w załączeniu; rozszerzenie zmieniłem z .xlsb na .txt ponieważ nie mogłem załączyć pliku z rozszerzeniem .xlsb),...
to one nawet tego nie zauwazaja ze ta opcja sie zmienila A nie zapomniałeś włączyć na końcu przeliczeń automatycznych xlCalculationAutomatic ? a w tym drugim otrzymuje blad na "ShowAllData" Jeżli umieściłeś makro w module a nie na arkuszu, musisz dodać ActiveSheet albo odwołać się do konkretnego arkusza: [syntax=vb]If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData...
O ile mi wiadomo takie cuda nie są możliwe Oj, zapomniałeś o zdarzeniu 'BeforeSave'. Przy "zapisz jako" argument SaveAsUI przyjmuje wartość True. Przy "zwykłym zapisz", False. Można to wykorzystać (zapisać z podstawioną nazwą, następnie "zCancelować")... W sumie lepiej byłoby (przy w/w zdarzeniu) wyeksportować arkusz do nowego pliku (będzie bez makr),...
Witam jak zmienić w exelu 2003 domyślnego koloru obramowania komórki z czarnego na inny kolor? Chodzi o komórkę która jest widoczna zaraz po uruchomieniu programu. Czy jest to w ogóle możliwe? Tak, to jest możliwe. 1. Nagraj makro formatowania komórki. Prawdopodobnie trzeba je będzie trochę przerobić, ale to zostaw na później. Najważniejsze abyś przy...
Jeżeli przez 10 dni nie ma żadnej reakcji, to powinieneś się zastanowić, czy pytanie jest zrozumiałe. Teraz podbiłeś pytanie, ale nic w nim nie uzupełniłeś. Załącznik nie zawiera żadnych makr ani formuł, tylko losowo wpisane liczby 1, 2, 3. Piszesz, że w pierwszej tabeli nie będzie pustych wierszy, a wiersz 25. (w arkuszu) jest pusty. Zatem nie wiadomo,...
Załączam przykładowe rozwiązanie z użyciem makr. Raczej jako ciekawostkę. Koder ze mnie marny, ale działa jak chciałem. Plusy: - sprawdzanie poprawności nazwy pokoju - sprawdzanie, czy przydzielona liczba osób zmieści się w pokoju - można przydzielić dwa nazwiska do jednego pokoju - makro działa na dowolnej liczbie pokoi zdefiniowanej w arkuszu (max...
Musiałbyś stworzyć makro w arkuszu (np. poprzez nagranie i modyfikację) kopiujące dane do drugiego arkusza. Potem trzeba ustawić wyzwalacz makra (np. przy każdej zmianie, raz dziennie itp.). Tutaj masz prosty przykład https://googlesheets.pl/co-zrobic-by-ark... Niestety nie używam arkuszy google...
Wybacz, że drążę, jednak uruchamiam makro i wydruk bez jakiejkolwiek modyfikacji pliku (poza usunięciem niepotrzebnych arkuszy) i wszystko działa poprawnie z grafikami większymi niż wielkość w arkuszu. podgląd wydruku działa poprawnie, zapisany plik pdf też (widać znaczne zmniejszenie zdjęć ws do oryginału). Stąd wątpliwość, czy jakakolwiek zmiana w...
Zauważ, że arkusz niue nazywa się "mm.dd.yyyy" tylko ma konkretną datę jako nazwę więc lepiej w ten sposób: select.end ale tak też można. I druga rzecz. Ta funkcja też ma pewien błąd. Trzeba podać datę początku i datę końca. Nie wiem co chciałeś osiągnąć chyba że jakimś kodem którego akurat ja nie stosuje/nie znam. [syntax=vb] Range("H2").FormulaR1C1...
Dzięki za wyjaśnienie JRV , robiłem podobny błąd w innych przypadkach. Mam prośbę, mógłbyś zaproponować rozwiązanie dla poniższej sytuacji. Mianowicie mam w jednym arkuszu dużą liczbę nazw, które będę chciał później pogrupować, w tym celu chciałbym aby makro zmieniało nazwy na podstawie bazy w drugim arkuszu (załączyłem przykład o co mi chodzi), próbowałem...
Chyba się nie rozumiemy. Napisałeś kod w "sekcji" Change arkusza (monitorującym czy w arkuszu nastąpiły zmiany) Czyli oczekujesz że jeżeli "coś" zmienisz w arkuszu to uruchomi się makro. Ograniczyłeś że ta zmiana ma dotyczyć komórki N5. Jednak jak sie okazuje komórka n5 nie zmienia się gdyż jest w niej formuła - zmienia się tylko wynik (nie robisz tego...
To proste, mam arkusz w którym dość często wprowadzam zmiany, ale w normalnym trybie w arkuszu działają różne makra które miedzy innymi ukrywają wedle potrzeby wiersze i kolumny. Kiedy potrzebuję wprowadzić w arkuszu zmiany to mam jeden przycisk którym w arkuszu odkrywam wszystkie wiersze i kolumny, ale w tej sytuacji muszę włączyć tryb projektowania...
Z tym, że makro uruchomi się przy każdej zmianie w arkuszu, bez względu na to w której komórce nastąpiła aktualizacja wartości.
Do szczęścia mi brakuje aby efekt makra robił się na arkuszu "wynik" a wartości były brane z arkusza dane. :please: Efekt taki jak na zrzucie 961076 dla wielu "statusów" można uzyskać poprzez makro w załączonym pliku :spoko: 961080
Widzę że powiązałeś te funkcje ze sobą znajdę chwile czasu to rozgryzę to. powiązałeś miesiące do zmiany i tu jest mały problem bo miesiace sie zmieniaja prawidłowo ale kolory dla zmian juz nie Bo naciskam zmiany 2 i 3 i tak samo. poprawiłem zakres bo daleś do T za krotki do AG. pod lista rozwijania jak by można ustawić zmiany żeby się kolorowały na...
Witam serdecznie Buduje makro (pisze to za duże słowo) które ma pomoc przy generowaniu co-tygodniowego raportu. Dane wpisywane są kolejno w wierszach wraz z data i godzina (format: dd/mm/rrrr gg/mm/ss) w kolumnie C Szukam rozwiązania które przefiltruje zawratość kolumny C pozostawiajać tylko wiersze zapisane w określonym czasie Daty graniczne są wprowadzane...
Wykorzystaj zdarzenie arkusza "przy zmianie" (Worksheet_Change) gdzie zakresy (Target) możesz określać warunkowo. Np If Target.Address(0, 0) = "A1" Then 'tu sie dzieje jesli zmiana w A1 ElseIf Target.Address(0, 0) = "C8" Then 'tu sie dzieje jesli zmiana w C8 'itd End If
Witam. Ponieważ na innym forum nie uzyskałem jak dotąd pomocy to może tutaj znajdzie się pomocna ręka. Mam problem , którego ja sam nie mogę rozwiązać od jakiegoś czasu , a który nie pozwala mi spać (autentycznie - to nie przenośnia). W załączniku mam tabelkę. Arkusze "target" oraz "wykonanie" to łącza do skoroszytów , które będą ulegały zmianie. Zmiana...
po wprowadzeniu zmian w arkuszu wypełnianym w czasie kontroli powiększył się obszar który trzeba skopiować więc powiększyłam go również w arkuszu zbiorczym i w makro. niestety firma się rozwija i danych z kontroli w jednym okresie kontrolnym jest od 400 w górę. każdy nasz inspektor wypełnia taki arkusz w czasie kontroli potem arkusze z całej Polski...
Dzień dobry, mam skoroszyt w którym jest 3200 arkuszy i każdego arkusza mam do skopiowania klika wybranych danych do kolejnych kolumn kolejnych wierszy podstawowego arkusza BAZA. Usiłuję napisać makro, które z każdego z tych arkuszy by przenosiło wybrane dane, utknąłem na takim etapie jak procedura podstawowa ma wrócić po kolejne dane do tego wybranego...
Witam, Zielony z makro szukam pomocy :-) Uprościłem pytanie, poszukuję makra które uruchamiałoby się automatycznie po wprowadzeniu zmiany w arkuszu dane C3, makro powinno zapamiętać i zapisać poprzednią wartość C3 do arkusza zestawienie C5, przy kolejnym wpisie do C3 w danych, kolejny zapis w C6 w arkuszu zestawienie itd. Mógłby ktoś pomóc w stworzeniu...
Nie podałeś właściwego pliku :cry: , nie znam Twojej drukarki etykiet :cry: Spróbuj zamiast tego zarejestrowanego makra (z powtórzonym 3x wydrukiem :D ) poeksperymentować z poniższym kodem :spoko: Oczywiście z właściwym plikiem i z zainstalowaną w systemie drukarką Citizen :idea: [syntax=vbscript]REM ***** BASIC ***** Sub Drukuj() Dim oDoc as Object...
Cześć. Mam dwa pytania/ prośbę o pomoc. W załączniku wstawiłam przykładowego excela... Mam zrobione cenniki, które zawierają wiele arkuszy, plik jest bardzo ciężki i ciężko działa. Chciałam go jakoś uszczuplić. Kluczowym problemem jest sprawna zmiana języka. Przeniosłam z zakładki pierwszej do ostatniej tylko to co jest niezbędne do poprawnej zmiany...
Dzień dobry, Aby uniknąć migotania ekranu przy zmianie aktywnego arkusza należy na początku makra dopisać linijkę: [syntax=text]Application.ScreenUpdating = False[/syntax] a na końcu linijkę: [syntax=text]Application.ScreenUpdating = True[/syntax] Czy jest możlwe jeszcze jakieś usprawnienie, to trudno powiedzieć bez wglądu w strukturę danych. Jeżeli...
Nagraj makro i dokonaj potrzebnych zmian.
Rzeczywiście, do końca to "w = w+2" nie działa, Sprawdza się gdy pierwszy wiersz to liczba nieparzysta a następny parzysta, Jak odwrotnie to już nie. Ale gdyby wstawić na górze arkusza jeden wiersz to pary parzysta, nieparzysta zamienią się i makro zadziała a potem 1 wiersz usunąć Wiem, że jest to nieeleganckie rozwiązanie, ale na ten moment nie widzę...
Wyraziłeś się precyzyjnie. Tylko, że tym razem piszesz coś innego.;) [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 16 Then r = Target.Row Dim n As Worksheet Set n = Sheets("Nieprawidlowosci") ow = Cells(Rows.Count, "A").End(xlUp).Row nw = n.Cells(Rows.Count, "B").End(xlUp).Row + 1 If nw < 4 Then nw = 4 If...
Dołączyłem marko kopiujące dane dla grup . Wszystko działa prawidłowo. Makro nie kopiuje (co jest zrozumiałe) guzików do wyświetlania stanów towaru w poszczególnych salonach. Czy jest jakiś sposób żeby po wyborze grupy np lodówki pokazywały się guziki do wyświetlania stanów. Jest jeszcze jeden problem który mnie nurtuje. Co tydzień do tabeli w arkuszu...
JRV Wiec chyba jest jednak prostsze rozwiązanie i tu Makro jak najbardziej wchodzi. Odnośnie twojego pytania. Funkcja wyszukaj pionowo pobiera dane z tabeli w arkuszu DATACODES Natomiast tabela w arkuszu work jest potrzeba tylko aby automatycznie zrobić formatowanie i to jest potrzebne do wydruku tylko i wyłącznie. Czy jest możliwość napisać takie Makro...
dodanie takiego makra jak poniżej, nie wyświetla mi napisu "hello" Popełniasz błędy: - wprowadzając "prywatne makro arkuszowe" do modułu uniwersalnego :cry: , jeśli to samo makro wkleisz do modułu arkusza "zamówienia" i dokonasz zmiany treści komórki - zamiast ujętej tam formuły wprowadzisz tam 1 - to uzyskasz Twój pożądany efekt - "hello" :D ; - nie...
Mam stworzony plik excel. Założenie jest jego takie: W arkuszu zrodlo jest baza osób które mogą lub już/jeszcze nie mogą mieć wykonane badanie. Makro, które mam w pliku kopiuje mi wiersze posiadające informację zaproszenie do arkusza korespondencja . Na podstawie danych z tego arkusza powstanie korespondencja seryjna i zostaną rozesłane zaproszenia....
Witam serdecznie, Mam następujący problem, udostępniam innym użytkownikom z mojej firmy pliki .xlsx do wypełnienia, które ze względu na późniejszą obróbkę makrami są poblokowane. Blokada polega na haśle w ochronie skoroszytu --> chroń strukturę i okna --> Struktura (nie chcę żeby pozostałe osoby widziały ukryte zakładki). Sęk w tym, że do późniejszych...
makro zmiana nazwy arkusza makro nazwa arkusza makro kopiowanie arkusza
zmywarka bosch moduł układ odkurzacz samsung obroty zawór dwubarowy krups
lodowka whirlpool mikrokomputer cobra1
Przecięta taśma enkodera w drukarce - co robić? Demontaż i naprawa żelazka Braun FreeStyle 4674