Witaj. Można spróbować dopisać sobie w makro: On Error Resume Next If Cells(Target.Row, 5).Value = "" Then Cells(Target.Row, 5).Value = Now On Error GoTo 0 Linijki On Error są opcjonalne, ale jak w kolumnie E będziesz miał w zwracanej formule błąd, to makro też wyłoży się błędem. Po wymuszeniu działania w przypadku napotkania błędu wartość jest aktualnie...
Ano nie działa, bo pusta komórka jest traktowana, jako zero.
a moze mni ktos napsać jak to dokładnie zrobic bo za bardzo nie wiem
Powinieneś załączyć przykładowy plik Excela, bo za dużo jest niejasności w tym, co napisałeś. Przykładowy kod, który działa wg Twojego opisu: [syntax=vbscript]Sub AddSheets() ' zakładamy, że nazwy nowych arkuszy ' są w komórkach od B5 w dół Dim ostw As Long, w As Long ostw = Arkusz1.Cells(5, 2).End(xlDown).Row For w = 5 To ostw Sheets.Add(After:=Sheets(Sheets.Count))....
Nie sprawdzałem działania, ale: Błąd 1: nieprawidłowa instrukcja Rows.Count (x 1 Up, powinno być XLUP). Lepiej: FinalRow = Cells(Rows.Count, 1).End(xlUp) Lub FinalRow = ActiveSheet.UsedRange.Rows.Count Błąd 2: Pętla For. Jeżeli przypisujesz wartości zmiennej i , to: Next i lub (również prawidłowo) samo Next bez jawnego nazwania zmiennej....
także wszystko powinno działać No właśnie nie. Co do twojego kodu to jak chcesz to [syntax=vbscript]Sub Makro_K() On Error Resume Next Range("I20:O119").SpecialCells(xlCellTyp... = "=IF(R9C4=R18C,""X"","""")" End Sub[/syntax]
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Tak, tak rozumiem tylko jak to sie mówi: " A u mnie to działa normalnie " ciekawe od czego to zależy... ?hmm Niestety Excel to wredny typ. Pusta komórka czasem nie jest pusta a tego nie widać i wiele innych podstępów Micro$hita ... potestuje u mnie jeszcze i dam Ci znać jak coś wyknuje jeszcze Pozdrawiam .... a rzeczywiście .... zwielokrotniłem twoje...
Jak zmieniłeś nazwy arkuszów ("Arkusz1" to teraz "BAZA" a "Proszki" to "MAŁE") to w całym kodzie makra trzeba je zmienić, a nie tylko w jednej linii. Poza tym (nie chce mi się tego mocno analizować dlaczego) ale makro odczytuje ostatnią pustą komórkę w kolumnie B arkusza "Dane" jako "zapisaną". Nie wiem czego - może ktoś z kolegów wyjaśni. Dlatego dołożyłem...
Mało szczegółów, to i kod taki sobie. ;) Super, bardzo mi pomogłeś. Udało mi się ogarnąć makro z drukowaniem. Dziękuje :) Chciałbym jeszcze dodać do kodu aby drukowanie było możliwe tylko przy wpisanym numerze, jeśli komórka będzie pusta lub błędnie wpisana to może wyświetlać jakąś informację.
(at)PRL Przepraszam za złe wytłumaczenie mojego problemu. Postaram wytłumaczyć jaśniej: 1. W arkuszu "MENU" w komórce F5 makro wstawia na przykład liczbę 1 2.W arkuszu"AAA" i "BBB" muszą zaciągnąć się funkcje 3.Drukowanie arkusza "AAA" do domyślna drukarkę 4. Makro sprawdza czy w arkuszu "MENU" w komórce G13-jest rożna od pustej: 4.1 jeżeli komórka...
Nie wiem, czy dobrze zrozumiałem. Filtrowane mają być tylko kolumny, czy również wiersze? Najlepiej zawsze pokazać w załączniku oczekiwany wynik. Napisałem makro zdarzeniowe ukrywające kolumny z tygodniami z wyjątkiem tej wpisanej w polu "LICZBA TYGODNIA". Makro jest umieszczone w module arkusza. Pusta komórka w polu "LICZBA TYGODNIA" odkrywa wszystkie...
A czy makro nie może być przerwane w momencie kiedy napotka pierwszą pustą komórkę w kolumnie A? Na ten moment makro długo działa chyba z uwagi na to czyszczenie kolumny B. W moich danych nie ma pomiędzy pustych komórek, tak jak w twoim pliku. Np. wklejam do pliku 100 wierszy (ciągiem, nie ma pustych pomiędzy) i te 100 ma ponumerować. Co więcej: Za...
Na chwilę obecną mam VBA, które działa w następujący sposób: Jeśli w kolumnie "6" w arkuszu1 zaznaczę "x" to kopiuje odpowiednie komórki do pierwszego wolnego wiersza w innym arkuszu. Aby odwrócić działanie tego makra, dobrze byłoby wiedzieć gdzie te "odpowiednie komórki" lądują w 2-gim arkuszu. No wiesz, żeby nie biegać i szukać po wszystkich szufladach......
No więc tak: 1. Są 3 wartości w tabelce: - B1 - pusta - B2 - data - B3 - wartość Makro miałoby wyciąć B2 i wkleić do B1, wyciąć B3 i wkleić do B2, i wtedy komórka B3 zostaje pusta, więc ją można usunąć. 2. Tam gdzie są 2 wartości makro nie ma nic do roboty, bo nie ma pustej komórki która mi przeszkadza 3. Analogicznie do 1 przykładu 4. Makro musi przewidzieć...
Witam! Potrzebuję pomocy bardziej zaawansowanych użytkowników. W skoroszycie „Plik1” mam takie makro: [syntax=vbscript] Sub przeniesienie() Worksheets("arkusz1").Select path = "C:\Users\Martyna\Desktop\najnajnowsze\P... Set fileName = Workbooks.Open(path) For wiersz = 2 To 5000 sheetName = Range("M" & wiersz) If sheetName <>...
Dziekuję bardzo za odpowiedź, makro prawie działa tak jak chciałem. Ma tylko jeden problem łączy dane w wiersze które nie powinien. Dla przykładu pierwszy wiersz w Arkuszu2 powinien mieć dane od A3:A18 z Arkusza1 później drugi wiersz w Arkuszu2 powinien mieć dane od A20:A22. Punktem który ma definiować kolejne wiersze jest pusta komórka
Przepraszam, tak wyraziłem swoją myśl mało precyzyjnie. W kolumnie B od wiersza B1 do wiersza od B2 do B2000 znajdują sie dane. Są w tym własnie wierszu są one wprowadzone w sposób ciągły i nie zawierają pustych komórek. Pusta komórka to koniec danych do zliczania. W pliku zamieściłem linie oddzielającą dane raportowe od podsumowań - sugeruja one wiersz...
Witam. Nie mogę sobie poradzić z marko do excela. Makro miało by wykonywać zadanie. Mam 2 kolumny danych: 1 3 5 3 5 6 7 7 7 Makro miałoby czyścić komórki w kolumnie 2 w momencie, gdy w kolumnie 1 komórka jest pusta ( w przykładzie w wierszu 2, 4, 5 miałoby wyczyścić komórki w kolumnie 2). Poproszę o jakieś sugestie. Pozdrawiam serdecznie
Dobra chyba wiem gdzie się mijamy, ja nazywam pierwszą komórkę każdej kolumny nagłówkiem. Komórka z wartością /Delivery-Header/Delivery-Number (F1) i wszystkie komórki pod nią które mają wartość inną niż pusta komórka mają trafiać do kolumny A w pliku B. Jeśli w pliku Order, /Delivery-Header/Delivery-Number zmieni położenie do np XZ1 także ma trafić...
If rCell.Value = "" Then rCell.ClearContents End If Jak stosujesz taki kod ("jeśli komórka jest pusta to ją wyczyść" :D ) - to trudno się dziwić Excelowi, że długo sprawdza co autor miał na myśli :please:
Dziękuję, ale chyba nie o to mi chodzi. Moje makro działa do momentu usunięcia duplikatów w drugim arkuszu. Teraz dla każdego dopiero co wklejonego wiersza potrzebuję mieć dzisiejszą datę w kolumnie AE. Myślałam, żeby zrobić to za pomocą If komórka pusta then albo For each puste... no ale próbuję i nie wychodzi :/
Nagraj makro i dostosuj do swoich potrzeb. Dzięki. Nie pomyślałem i rzeczywiście udało się. Będę tylko wdzięczny jak ktoś mi podpowie co należy dopisać jeżeli chcę np edytować komórkę w kolumnie C pod ostatnią wypełnioną komórką (w kolumnie są też puste komórki) Dodano po 1 Mam takie teraz makro: [syntax=vbscript]Sub wstawianie_bezduplikatów() Sheets("Arkusz1").Select...
Witam! Potrzebuję makro, które w momencie gdy w pliku "plik w którym ma być makro do wstawiania" w kolumnie J (w przedziale J2:J23) znajdzie się wartość inna niż pusta komórka skopiuję dla "użytego" wiersza dane z zakresu kolumn K:Q do arkusza o nazwie identycznej z wartością w komórce J, do pierwszego wolnego wiersza w kolumnie B w pliku który ma stałą...
Jeśli chcesz sprawdzać cały kopiowany zakres, to to Range(Cells(3, 1), Cells(ow, ok)).Copy Destination:=Sheets(1).Range("B" & pw) musisz zapętlić (For 1 to ow, z inkrementacją pw). Trzeba tylko określić, w której kolumnie pusta komórka czyni wiersz "pustym" (dla instrukcji If).
Witam Mam taki problem, wykonałem makro które robi mi coś takiego że kiedy np: komórka A2 jest pusta to B2 też pozostaje pusta, jeśli coś wpiszemy w A2 to B2 wyświetla datę. Teraz chciałbym zrobić tak żeby zastosować to makro do całej kolumny a i b poczynając od drugiego wiersza i nie mogę sobie poradzić proszę o pomoc. Poniżej to co udało mi się do...
Zakładam wątek bo przejrzałem większość postów na forum i niestety nie mogę znaleźć dodam, że jestem zielony jeśli chodzi o pisanie makr Problem wygląda następująco, mam do wykonania makro które przedrukowuje z excela do pdf wraz z przygotowaniem obszaru do wydruku. Chciałbym żeby wyglądało tak że pierwsza strona składa się z 70 komórek, zaś każda kolejna...
To bylo tylko fragment makro Wstaw jak w Ciebie - 'On Error Resume Next' - gdy nie ma pustych komorek(xlCellTypeBlanks)
Nie do końca łapię co chcesz zrobić. Makro musi mieć zdefiniowane zakresy i/lub warunki, jeśli ma coś zrobić, Np jeśli w wierszu wystąpi pusta komórka w kol B, to usuń wiersz, usuń n wierszy, usuń wiersze do następnego zawierającego COŚ itp. Napisz ciut więcej lub najlepiej wrzuć przykład (plik Excela jako załącznik).
Dzięki wielkie za pomoc. Zrobiłem już kopiowanie i udało mi się zapisać parę plików pod rząd natomiast teraz zestawiłem wszystko w jednym makrze i wyskakuje mi błąd. Tworzy mi się nowy arkusz ale o nazwie "Zeszytx" za każdym razem jak puszcze makro to x jest zwiększone o 1. Moim celem było aby plik zapisywał się pod nazwa z komórki P18. Po kliknięci...
Ale ty masz zastosowany właśnie przez makro filtr zaawansowany a tylko trzeba umieć go wykorzystać (sparametryzować). Powiększ w makro filtru zaawansowanego zbiór warunków do A3. Czyli: (i tu ciekawostka) znak "równa się" czyli = (to właśnie dla excela pusta komórka w danych do filtracji [bo ma być równe "nic"] - nie ma tego opisanego w pomocy, przynajmniej...
ale czy jest możliwość aby po kliknięciu kolejny raz nie przenosiło poprzednich tylko dopisywało nowe? Jest, ale dla prostoty kodu najlepiej było by gdyby można było dołożyć kolumnę pomocniczą w której znajdowała by się informacja o tym że dany wiersz został skopiowany. Wtedy delikatna modyfikacja kodu załatwi sprawę. Ten skrypt ma jakieś ograniczenie?...
Spróbowałem. Niestety nie działa, albo jak kto woli działa tylko nie tak jak potrzeba :cry: . Mianowicie w obecnym kształcie makro przeszukuje kolumnę z typem łożyska (później będzie przeszukiwać wszystkie kolumny bazy, aby móc wpisywać różne kryteria szukania, nie tylko typ łożyska) i z jakiegoś powodu wypisuje wszystkie wersy gdzie komórka kolumny...
Witam, mam w excelu kilka arkuszy (styczeń luty...) w których występują tabele danymi o transakcjach sprzedaży różnych artykułów w danych miesiącach. Wierszy w każdym arkuszu jest różna ilość W kolumnie C określony jest rodzaj artykułu (oznaczenie: a, b, c, d, e), w kolumnach D, E, F, G mam wpisane kwoty sprzedaży w zależności od rodzaju artykułu, i...
Nie znam się na VBA exel. Potrzebuje makra które do exelu 2013, które porówna dane z 3 arkuszy, o nazwach "1", "2","3". W każdym arkuszu 1 , 2 i 3 mam jakieś dane. W kolumnie A (dla każdego arkusza) mam siedem cyferek. W kolumnie B (dla każdego arkusza) jest ciąg liczb ze znakami specjalnymi"-" i "/" W kolumnie C ( dla każdego arkusza) nazwisko Przykład...
Może takie makro: [syntax=vbscript]Sub Jedynki() If IsEmpty(Range("A2")) Then Range("A2").Value = 1 ElseIf IsEmpty(Range("B2")) Then Range("B2").Value = 1 Else Range("A2").End(xlToRight).Next.Value = 1 End If End Sub[/syntax] To makro wypełnia po kliknięciu kolejne puste komórki w wierszu 2. zaczynając od A2 (po jednej). Jeśli któraś komórka jest niepusta...
Trzeba przechować w jakimś miejscu licznik utworzonych protokołów - wybieramy komórkę w arkuszu. Proponuję utworzyć/zarejestrować makro o nazwie Auto_Open: 1. zwiększamy wartość licznika o 1 2. zapisujemy plik (licznik zostanie zapamiętany) 3. Plik -> zapisz jako (powstanie nowy plik) ... 3a) jako nazwę pliku podajemy stały "przedrostek", np. "Zlecenie...
Witam wszystkich, Od razu zaznaczam, że nie liczę na gotowca. Chciałbym poprosić Was o wskazówki / małe podpowiedzi jak napisać makro które : zakładając, że arkusz jest posortowany wg numeru zamówień Sprawdza kolumnę nazwaną " Order-ID " i jeśli Id jest np 000223 to patrzy w kolumnę klient widzi 17 , sprawdza kolumnę niżej gdzie znów jest ID 000223...
Z VBA w Excelu mam do czynienia od niedawna i chciałbym prosić o pomoc z kodem jakim dysponuję. Powstał on poprzez rejestrację makra i skopiowanie pewnej części z sieci. Ta zarejestrowana część nie daje mi spokoju bo można to osiągnąć w bardziej uniwersalny sposób dla wszystkich arkuszy w pliku. Tak więc chciałbym aby zawartość komórek w zakresie od...
Najpierw wyznacz pierwszą wolną komórkę [syntax=vbscript] lastRow = Range("BZ" & Rows.Count).End(xlUp).Row + 1 If lastRow < 3 Then lastRow = 3 End If [/syntax] nastęnie wkopiuj: [syntax=vbscript] Sheets("Dane").Range("BZ" & lastRow) [/syntax]
Wiesz, ja nadal nie jestem pewna, czy dobrze Cię rozumiem, ale wyszło mi coś takiego jak w załączniku. Po uruchomieniu makra pod przyciskiem - wstawia daty, uzupełniając puste komórki. Choć nie odmienia nazw miesięcy przez przypadki - czyli np. 2 wrzesień, a nie 2 września itd.
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
.. Stworzyłem proste makro, które sprawdza czy komórka X jest pusta, jeżeli TAK to czyści komórkę Y za pomocą Clear.Contents. Procedura wywoływana jest po przeliczeniu arkusza: Worksheet_Calculate.. Makro może i jest proste, ale powiązałeś je w arkuszu w tak zagmatwany sposób, że jego wykonanie się zapętla. Twoje makro wykonując się, powoduje wykonanie...
każde kolejne sczytanie z czytnika do Arkusza "NAZWA ODDZIAŁU" A2 kolejno wklei dane do pustej komórki w Arkuszu "DANE" Jeśli skaner korzysta tylko z komórki A2 :?: to możesz wykorzystać makro jak w załączniku 1063586
Przecież możesz wpisywać kolejne daty np po przecinku lub po "alt + enter". "Kłopot" nie jest z możliwością wpisu tylko z wynikiem w komórce M2. Ale jeżeli o to ci chodzi to troszeczkę zmieniłem w tej komórce funkcję. Jednak jest zasada by datę zawsze wpisywać w tym samym formacie (zgodnym z formatem daty w excelu). Na marginesie bez sensu jest dodawać...
Zakładając że układ kolumn i danych jest stały - nie piszesz szczegółów, wystarczy w określonej komórce wpisać (zakładając że 3 jest w komórce 1A): = 1A&" "&1C&" "$1G Jeżeli natomiast układ danych jest różny w każdym wierszu, trzeba by napisać makro uwzględniające puste komórki.
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Mnie te makra nie zawiesiły Excela ani razu, ale testowałem je na wersji 2007 i 2010. Być może problem jest spowodowany przez połączenie wklejania danych ze schowka z wstawianiem komórek. Jeśli formatowanie komórek nie ma znaczenia i kopiowane są stałe (tak to przynajmniej wygląda w przykładowym pliku), to może zrezygnować z kopiowania na rzecz przypisywania...
Dzisiaj niestety pojawił się u mnie problem, bo to makro jest częścią większego dokumentu, który ma się automatycznie wypełniać i w pewnym momencie zamiast pustej komórki w miejsce godziny wkleja się spacja (" "). Jak mogę zmodyfikować to makro, aby sortowało nie komórki puste, ale te zawierające spację? Niestety nie potrafię wywnioskować z samego kodu.
Witaj, Nie mam pomysłu na formułę, mam natomiast pomysł na proste makro, które mniej więcej robi to, co chcesz. Nie jestem najlepszym programistą VBA, ale w sumie na pierwszy rzut oka działa. [syntax=VB]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-04-16, autor Darek ' ' Kolumna A od wiersza 2 w dół zawiera działania ' W kolumnie B będą...
Nie bardzo rozumiem, o co konkretnie chodzi. Przydałby się jakiś przykład w pliku, pokazujący jakie masz dane i co z nimi chcesz robić. Generalnie do testowania liczb można wykorzystać w VBA funkcję IsNumeric, albo zapożyczoną z Excela funkcję WorksheetFunction.IsNumber. Ich działanie różni się w szczegółach, na przykład funkcja IsNumeric traktuje puste...
Jest ok. Moja wina. W kolumnie a zostawiłam pusta komórkę i wtedy makro przerywa działanie. Moja winna! 😌 Dodano po 16 Jest ok. Moja wina. W kolumnie a zostawiłam pusta komórkę i wtedy makro przerywa działanie. Moja winna! 😌
Hej, potrzebuje makro w excelu, które ukryje mi wiersze 7 i 8 gdy w komórkach B4 i B5 pojawi się wartość większą niż 85. Próbowałem przerobić kilka makr które tu znalazłem jednak nie są to zadowalające efekty. [syntax=vbnet]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = "B4:B5" Then If Target.Value > 85 Then Rows("7:8").EntireRow.Hidden...
Teraz działa dobrze ale tylko wtedy kiedy wpisuje pojedyncze wartości. Jeśli wklejam kilka wartości to wartości "AAA" nie są zamieniane. Druga sytuacja jeśli wklejam kilka wartości a pierwsza wartość to "AAA" to wszystkie wartości wklejane zostają zastąpione wartością "BBB" nawet puste komórki. (at)ElektrodaBot
Sprawa jest bardziej skomplikowana niż się na pierwszy rzut oka wydaje, bo Target.Value w zdarzeniu Change będzie też przyjmowało puste wartości (przy czyszczeniu/usuwaniu komórki), a także może być zakresem Range() np. przy kopiuj - wklej do kilku komórek (podobnie przy czyszczeniu zakresu komórek), przez co makro będzie się wywalać. Trzeba ew. je...
Witam, Mam makro jak w ostatnim fragmencie kodu w temacie: http://www.elektroda.pl/rtvforum/topic15... Makro rozwiązało problem z tego tematu, jednak pojawił się kolejny - otóż muszę w puste komórki w kolumnie A1 wstawić takie daty, żeby w kolumnie była ciągłość. Kod: Sub rows_influx() Dim i As Long i = 2 Do Until ActiveSheet.Range("A"...
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
Pewnie pierwsze dane masz w drugim wierszu, u mnie był w 3, zamień: For k=3 na For k=1 (sprawdzanie od pierwszego wiersza). Makro sprawdza kolumnę B od dołu, widocznie są u Ciebie jakieś puste wiersze ... Jeżeli wiesz ile masz komórek w kolumnie B do sprawdzenia wpisz na sztywno (3500 to ilość wierszy) : zamiast: For k = 3 To Cells(Cells.Rows.Count,...
w tym przypadku zastosowanie formatowania warunkowego nie zdałoby egzaminu, dlatego bardzo dziękuje za makro :) niestety mam z nim jeden problem makro szuka pustych komórek I zaznacza na szaro komórki w wierszach w których są dane. Czy można zmodyfikować makro tak aby zaznaczało na szaro tylko te wiersze w których wszystkie komórki są puste?
Dwie wątpliwości: 1) Czy te formuły będą takie jak w przykładzie tzn. będą się odwoływać tylko do danych z tego samego wiersza? 2) Czy to ma być kopia z zaznaczenia (zaznaczam x wierszy i to kopiuję, tylko dokąd? jak określić miejsce docelowe?), czy kopia wszystkiego co jest (do ostatniego wypełnionego wiersza w określonej kolumnie), wtedy miejsce docelowe...
jestem totalnie zielona w tym. potrzebuje makra, dzieki ktoremu excelskieruje mnie do pierwszej pustej komórki w kolumnie A. dane bowiem mają paredziesiąt tysięcy wierszy i nie moge za każxdym razem tego przewijać. dodam, że nigdy nie robiłam makra..... proszę doświadczonych o kod do wklejenia
Brak załącznika to poważny mankament! Nie wiadomo, jakie dane są w kolumnie "O". W kodzie PRL jest sprawdzany warunek: [syntax=vbscript]Sheets(x).Cells(y, "O") >= -30[/syntax]Otóż warunek ten spełniają nie tylko liczby >= -30, ale również puste komórki, dowolne teksty, w tym teksty puste, wartości logiczne. A jeśli w komórce jest wartość błędu, to program...
Witam, mam następujące wyzwanie dla ekspertów VBA. Mam kolumnę w której są dane w postaci ciągów znaków - litery oraz cyfry. Chodzi o stworzenie makra które będzie sprawdzało czy dana komórka jest pełna czy pusta. Dla pełnej komórki jej wartość powinna być zapisana następnie powinien być wstawiony separator w postaci [spacja]OR[spacja]. Makro powinno...
Bardzo dziękuję za zainteresowanie moim tematem. Dołączam pliki, które pomogą zrozumieć o co mi chodzi. Odpowiadając na postawione przez Ciebie pytania doprecyzuję o co chodzi: Pisząc o tym, że nie ma być pustych wierszy, chodziło mi o to, że każdy wiersz w zakresie zawiera formułę wczytującą dane z plików (górny zakres z "plik" i dolny zakres z "plik1")....
Kolejny błąd - przy braku wyboru z pola listy nie zmienia poprzednich cyfr na puste komórki -_-
Do trzech razy sztuka :) Czyli jeszcze raz może bardziej zrozumiale. Jeżeli w wierszu 4 wartość jest pełna to ma łączyć zawartość komórki z wiersza trzeciego Na przykład: jeżeli w wierszu 4, komórka w kolumnie AD jest pusta, to ma łączyć zawartość komórki z wiersza czwartego z tej samej kolumny. Jeżeli "AD4" nie jest pusta, to ma być łączona komórka...
Witam Mam napisane makro na wyszukanie pierwszej pustej komórki i działa dobrze, ale ja potrzebuję aby wyszukało pierwszą komórkę o zawartości 0,00 . Wartości 0,00 kopiowane są za pomocą formuły z innego arkusza. Pozdrawiam.
Sub zmiana_formatu() Dim komórka As Object Dim a As String 'a - format komórki For Each komórka In Range("A:A") If komórka.NumberFormat = "h:mm:ss" Then komórka.NumberFormat = "h:mm" If komórka = "" And komórka.Offset(1, 0) = "" Then Exit Sub Next komórka End Sub To makro przeszukuje kolumnę A i kończy działanie jeśli dwie kolejne komórki są puste....
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
I zapomnieliśmy (uzupełnione) o usuwaniu koloru wypełnienia przy ="" Dołożyłem dodatkowe makro 'odsMocno', które robi porządek we wszystkich komórkach zakresu, włączając puste - dlatego działa o wiele dłużej niż 'ods'. Przyda się być może od czasu do czasu.
Po Next dodać [syntax=vb] .Cells(w,1).value = .Cells(w-1,1).value + 1[/syntax] Powinno działać. Pamiętaj tylko, że gdy w = 1 dostaniesz error, bo spróbujesz się odnieść do Row = 0. Oraz, jeśli ta komórka nad nie będzie liczbą(bądź pusta), a spróbujesz do niej dodać 1. Można temu zapobiec dodając kilka If'ów. Jednakże myślę, że nie jest to takie znów...
co musze zrobic aby dopisac tekst w komorce A29 lub A48 i A32 i A51 To puste komórki makro określa, ile chcesz skopiować, ponieważ liczba wierszy jest różna w różnych arkuszach. Chyba że tam Wstaw komentarz.
Witam, Potrzebuje Makro które będzie automatycznie drukować mi wybrane strony wybranego arkusza po czym będzie zaznaczać następną komórkę w wybranej kolumnie i będzie drukować te same strony aż następna z kolei komórka w kolumnie będzie pusta. Da się to zrobić poprzez makro?
Witam. W jaki sposób można makrem, zaznaczyć komórki obok wypełnionych? Dokładnie chodzi o to, że w kolumnie B, mam jakieś dane (mogą być też puste komórki między wypełnionymi) i chciałbym, aby makro zaznaczyło w kolumnie C, cały zakres, od wiersza 2 do ostatniego, który jest wypełniony w kolumnie B.
Sub ZamienNaHiperlink() Dim komorka As Range Dim nazwaPliku As String Dim sciezka As String Set komorka = ActiveCell If IsEmpty(komorka.Value) Then MsgBox "Aktywna komórka jest pusta.", vbExclamation Exit Sub End If nazwaPliku = Trim(CStr(komorka.Value)) ' Buduje pełną ścieżkę z podwójnymi ukośnikami sciezka = "file:///D:\as\" & nazwaPliku &...
Makro czy funkcja w tym przypadku to żaden problem. Kłopotem jest to czy to co przedstawiłeś jest "prawdą". Czyli czy nie ma innych danych w arkuszu oprócz tej tabeli - tak jak to przedstawiłeś (bez nagłówków i innych danych w innych komórkach - inne komórki "czyste")? (A może zawsze tabela "ściągana" ma te same "namiary komórkowe"? ) Czy może jednak...
Bardzo wam dziękuję! Podziałało i znacznie ułatwi mi to pracę. Skoro, ktoś już się moim tematem zainteresował, potrzebowałbym jeszcze 3 makr, także starałem się coś wykombinować, ale ciągle mam jakieś błędy.. 1) Jeżeli któraś z komórek w kolumnie E, ma wartość "kontrakt deaktywny", makro koloruje cały wiersz w którym jest ta komórka na czarno. 2) Jeżeli...
Zarejestruj puste makro np. o nazwie "czytaj", a następnie wpisz kod: Sub czytaj() ' ' czytaj Makro ' Makro zarejestrowane 2010-06-17, autor WRYCH ' ' Klawisz skrótu: Ctrl+Shift+R Dim MyNumber wiersz = 1 Open "liczby.txt" For Input As #1 ' Open file for input. Do While Not EOF(1) ' Loop until end of file. Input #1, MyNumber...
Jak już zrobiłeś taką ładną tabelkę, to pomyśl, czy nie lepiej, zamiast zagnieżdżać wiele razy funkcję jeżeli(), dać sumowanie warunkowe albo liczbę komórek niepustych z zakresu od podanego dnia do końca miesiąca. Jedynym tematem będzie eleganckie podstawienie adresu początku zakresu do funkcji. Osobiście zaznaczyłbym dni robocze jako niepuste (dowolny...
Można na kilka sposobów. Poniżej masz jeden z nich: [syntax=vb] Sub Auto_close() ' ' Makro1 Makro ' Application.DisplayAlerts = False Range("C5:Q5").Select Selection.Copy Do ActiveCell.Offset(1, 0).Select If ActiveCell.Value = "" Then Exit Do Loop Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False...
Jak Ci wierszy przybędzie do miliona, to zaczniesz myśleć, dlaczego to tak długo liczy...;) Ale jeżeli już chcesz tak, to nie sprawdzaj w każdym przejściu pętli, czy komórka jest różna od pustej, tylko wylicz wartość końcową pętli na przykład tak: [syntax=vb] For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row Cells(x, 1) = "=IF(RC[1]<>"""",R[-1]C+1,"""")".....
Cześć, nie jestem programistą (tak na wstępie), potrzebuję małej pomocy - proste makro w Google Sheet. W kolumnie będą mi się zmieniały codziennie dane dajmy w zakresie A1:A10 i chciałbym aby codziennie uruchamiane makro (tu wiem jak je wyzwolić) brało dane z A1:A10 i wklejało do pierwszej wolnej komórki w kolumnie B. Pomożecie? Pls
Scalanie to nie jest - moim zdaniem - właściwa droga. Raczej trzeba wypełnić wszystkie wiersze w kolumnie A, posortować, w końcu usunąć zbędne wpisy. Nie jest z tym tak dużo roboty, gdy czynność trzeba powtarzać wielokrotnie, można ewentualnie napisać makro. Można to zrobić tak: 1) w kolumnie A w pierwszej wolnej komórce (arkusz ANG - PL, komórka A3)...
Cześć, może spróbuj napisać taką pętlę: [syntax=vbscript]Sub test() Dim a As Short Dim i As Short Dim y As Short Worksheets("Sheet1").Activate a = InputBox("wpisz liczbę", "szukana pozycja", 1) For i = 1 To 3000 If Cells(i, 1).Value = a Then If Not Cells(i,2).Value = "" Then Cells(y, 3).Value = Cells(i, 2).Value y += 1 End If End If Next i End Sub [/syntax]...
Witam, mam następujący problem. Potrzebuje makra, które oczyszczałoby mi komórki ze zbędnych danych. W kolumnie A mam autorów - niekiedy jest ich 900, każdy autor jest przedzielony separatorem ||, chodzi o to, aby w tej komórce byli tylko autorzy, którzy posiadają nrSAP - a konkretnie potrzebuje samego numeru. Zapis nr jest charakterystyczny, ale nie...
kopiować wartość wskazanej komórki do kolejnej pustej komórki w kolumnie innego pliku Co znaczy "do ... komórki w kolumnie innego pliku" ? Tam jest kilka kolumn, gdzie w pliku źródłowym będą komórki-dawcy danych do zestawienia ? I co znaczy "wskazana komórka", będziesz zaznaczać myszakiem daną komórę i po wciśnięciu przycisku/wybraniu makra ma przenosić...
Prot, to i tak nie ma znaczenia, jeśli chodzi o kolorowanie zakresu C25:H30. Jak C22:C23 będą puste, to kod nic nie pokoloruje na niebiesko.
Można użyć takiej funkcji UDF: [syntax=vbscript]Function Osobno(x As String) Dim ch As String Dim list ReDim list(1 To Len(x) + 5) As String Dim i As Long, j As Long, k As Long For i = 1 To Len(x) ch = Mid(x, i, 1) Select Case ch Case 0 To 9 j = j + 1 list(j) = ch Case "(" j = j + 1 k = InStr(i + 1, x, ")") If k = 0 Then k = Len(x) + 1 list(j) = Mid(x,...
To można zrobić makrem zdarzeniowym. Tylko nie napisałaś jak to dokładnie ma działać. Czy ma kasować zawartość komórki w kol. B przy każdej zmianie w kol. A, np. gdy tylko kasujemy zawartość, a nie wpisujemy nic nowego, albo gdy wpisujemy coś do pustej komórki w kol. A? Poniższe makro działa przy każdej zmianie w kolumnie A. Taki wariant jest najprostszy....
Niestety z tego co napisałeś i pokazałeś w pliku nie wynika, jak chcesz tego używać. W załączonym pliku nie ma Arkusza1a, a arkusze 2 i 3 są puste. Więc nie wiem, czy to ma być używane w jednym arkuszu, czy w kilku. Generalnie proponowałbym nadanie nazw zakresom i odwoływanie się do tych nazw w makrach. Gdy rozszerzasz taki zakres przez dodanie wiersza...
Jak najpierw przesortuję to makro nie działa To chyba 'typ zamówienia' w wierszu 2 jest pusta komorka
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...
A musi być makro? Bo najprościej to zrobić formatowaniem warunkowym, wybierając opcję "niepuste". Formatowanie warunkowe jest dynamiczne, więc zmiany zawartości komórek będą od razu uwzględnione. Tylko jeszcze kwestia formalna: co uważasz za puste komórki? W formatowaniu warunkowym Excel uważa za puste również komórki zawierające pusty tekst oraz same...
O ile z tamtą listą sobie poradziłem, to kolejna lista niestety przysparza mi problemów. Chciałbym zrobić zależną listę rozwijaną - jeśli w komórce A15 jest słowo "kuchnia" - w komórce b15 rozwija się lista dostawców z kuchni. Jeśli "bar" - rozwija się lista dostawców baru. Formuła [syntax=vbscript].Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop,...
witam wszystkich, Mam prawie skończoną część swojego projektu, jednak brakuje mi małej modyfikacji makra. Otóż makro nie do końca prawidłowo kopiuje zawartość bloku. Potrzeba mi, żeby po wypełnieniu całego pierwszego bloku danych, makro kopiowało poniżej następny blok, ale w skopiowanym bloku przenosiły się tylko wartości nagłówków oraz wartości z komórek...
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...
Witam, Potrzebuję pomocy przy stworzeniu makra lub kodu, instrukcja poniżej: Zaczynając od komórki A2 → skanuję kod kreskowy skanerem, który wprowadza mi numer artykułu w komórkę A2 i automatycznie przeskakuje do A3. Następnie musi wykonać makro z buttona "Szukaj" po czym znów aktywuje komórkę A2. Kolejno schodzi o 4 wiersze w dół i aktywuje pierwszą...
Witam! Proszę forumowiczów o pomoc. Jak przerobić następujące makro znajdujące się w załączonym pliku tak, żeby: 1) Przycisk [Dodaj] umieszczał w tabeli poniżej określoną w komórce M6 liczbę wierszy o treści wpisanej tak jak w komórkach B6:K6 2) Obecnie przy dodawaniu wpisów w kolumnach C oraz F makro wstawia puste pola, a ma wstawiać dane z wiersza...
Mam jeszcze jedno pytanko związane z listami poprawność danych. Mam 10 list w nich dodane od 15 do 20 wartości ii co jakiś czas dochodzi mi kilka wartości do rożnych list, więc za każdym razem muszę zmieniać zakres. Próbowałem robić tak aby robić zakres już na przód przykładowo o 5 komórek więcej ale wtedy zostają w liście puste pole i brzydko to wygląda....
excel makro pusta komórka komórka pusta pusta komórka
przekładnia ślimakowy falownik upload obrazek ezp2010 sterowniki
regulacja obrotów podajnika migomatu mikser zelmer predom
Mercedes W124 300D 1993 – metaliczne hałasy przy maksymalnym skręcie w lewo Rejestrator VIOFO, 70mai, BlackVue – brak tylnej kamery na zasilaczu parkingowym, działa na zapalniczce
