Wielkie dzięki za pomoc! Zmieniłem trochę twój kod do moich celów. W twoim kodzie makro kończyło pracę gdy w pierwszej kolumnie napotkało pierwsza pustą komórkę. Potrzebowałem mieć pewność, że wszystkie dane zostaną skopiowane. Dlatego też zmieniłem pętle DO WHILE na pętle FOR i użyłem funkcji adamas_nt . [syntax=vb] Sub Copy() Dim myPath As String...
Na podstawie pliku czas_pracy.xls przygotowałem przykładowe makro. W skoroszycie czas dodałem w komórce A2 ilość pracowników wyszukaną funkcją =ILE.NIEPUSTYCH(A3:A5000). Dodałem nowy skoroszyt "Warunek" w którym znajdują się komórki z funkcjami wyszukującymi interesujące nas godziny : =BD.MIN(dane!$A:$D;C$1;$A$1:$B$2) i =BD.MAX(dane!$A:$D;D$1;$A$1:$B$2)...
1. Jest to drugi plik - z_którego_kopiuje.xls (26.5KB) - (niesteety nie załapały się polskie znaki) 2. Imiona będą się powtarzały dla każdej czynności. Nie przewiduję, żeby w zakresie wystepowała pusta komórka. Jeżeli tak się stanie to chciałbym, żeby kopiowało mi do ostatniego imienia. Tzn. Jeżeli komórka C4 będzie pusta to chciałbym, żeby mi tak czy...
Wtrącę się ale kolega adamas_nt już ci raz pokazał jak znaleźć ostatni wiersz. Spójrz na pierwszy kod i na zmienną "ostWiersz" (druga linia procedury Kopiuj) Tak na chłopski rozum to tą linię trzeba tłumaczyć tak: Ustaw się na ostatniej komórce w kolumnie A i "idź" do góry po pustych komórkach. Jak znajdziesz ostatnią pustą (przed komórką z wpisem)...
dzięki mickpr za pomoc ale chyba nie o to chodziło. Mam tabelkę złożoną z 3 kolumn. Są w nich oceny, nie wszystkie jednak mogą być wpisane, nieraz sa wszystkie 3, nieraz dwie a nieraz wcale. Chciałbym aby w kolumnie 4 excel zwracał mi ostatnią cyfrę, lub pusta komórkę, jeśli wszystkie 3 kolumny nie zawierają cyfry. W sieci znalazłem taką funkcję: =ADR.POŚR(ZNAK(64+MAX(JEŻELI(CZY.PUSTA(D...
To nie będzie najszybszy sposób, ale pętla jadąca komórka po komórce i sprawdzająca czy w danej komórce jest (at). Jak znajdzie to kolejna pętla, która jedzie po kolejnych symbolach i sprawdza, który symbol to (at). Jak już wie który to numer symbolu to cofa się aż do momentu aż będzie spacja a potem idzie do przodu też do momentu aż będzie spacja....
Witam! Szukam funkcji która wyszuka i wstawi mi (obok siebie) komórki (zawartość komórki) z wiersza pełnego różnych informacji. Np Wiersze (między pełnymi komórkami jest różna ilość pustych komórek): 3 22 4 88 cw d aa 7 31 2 75 ah e bb Potrzebuje aby wyglądało to tak: 3 4 aa 7 2 bb Czyli chcę aby wstawiło mi wartość pierwszej niepustej komórki, trzeciej...
Dziękuję wszystkim za pomoc i podpowiedzi. Uzyskałem efekt, który chciałem osiągnąć, po dodaniu kolumny pomocniczej z funkcją "Jeżeli.Błąd(Wyszukaj.Pionowo....." i po zastosowaniu poniższego kodu w moim pliku z przykładem. [syntax=vbscript]Sub Dodaniewartoscizprzeciwnejlisty() lLstRw = Cells(Rows.Count, 6).End(xlUp).Row lLstRw2 = Cells(Rows.Count, 1).End(xlUp).Row...
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
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...
[syntax=vb] Sub kopiarka() Dim kom() As Variant ReDim kom(22, 1) As Variant Dim MyDir As String Dim CurrentFile As Variant Dim i As Integer Dim ChosenFile As String ChosenFile = Application.GetOpenFilename(FileFilter:=... Files (*.xls), *.xls", Title:="Wybierz jeden dowolny plik z katalogu źródłowego:") If ChosenFile = "False" Then Exit Sub Workbooks.Open...
Na formułach można spróbować to zrobić tak Zakładając, że mamy zajęte kolumny A oraz B - wstawić pusty wiersz pustą kolumnę między nie (w ten sposób kolumna B przejdzie do C). Zakładam, że dane są od pierwszego wiersza. kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę =JEŻELI(CZY.PUSTA(C2);B1;C2) od B2 można wszystko rozciągnąć...
Tak szczerze, zaraz wytłumaczę dlaczego "gotowiec" by mi się przydał: znam się tak "trochę" na excelu, ale na podstawowych funkcjach itp, nic nie wiem na temat makr, vba itp i moje rozumowanie w przypadku twojej odpowiedzi wygląda tak: " ustalasz ilość wierszy do wyszukiwania na podstawie ostatniej nie pustej komórki w kolumnie E" - GDZIE USTALAM TZN...
Witajcie experci excelowi ponownie Kolejny raz potrzebuje Waszego wsparcia. Mam następujący problem do rozwiązania: Są kolumny z datami, wg poniższego przykładu: U V W X Z 2011-03-08 2011-03-08 2011-03-09 2011-05-20 2011-03-08 2011-01-10 2011-01-10 2011-05-10 2011-03-08 2011-01-07 2011-01-07 2011-02-01 2011-03-08 2011-02-10 2011-02-14 2011-03-04 i teraz...
Witam, mam w sumie prosty problem ale nie wiem jak go ugryźć. Mianowicie: potrzebuję stworzyć makro , które będzie zaznaczało kolumnę do ostatniej nie pustej (ctrl+shift+arrow) wykonywało pewne działanie (powiedzmy dodawanie wartości w dwóch sąsiednich komórkach) i wyrzucało wynik w nowej kolumnie, ale tylko do wiersza, który jest nie pusty. Chodzi...
Znacznie prościej napisać taki filter w C czy C++ lub innym przyzwoitym języku. O ile 1,2,3 itp nie puste to można załatwić nawet formułami, to z ostatnim jest problem.
Ten kod przypisuje kolejno teksty adresów do tej samej zmiennej i dopiero ostatni tekst , tzn. $B$34 przetwarza. Dlatego to nie może działać. Ale jeśli oczekujesz konkretnej pomocy, to załącz plik z tym problemem, nie musi być oryginalny, jeśli zawiera wrażliwe dane, ale w tym samym układzie. I wyjaśnij dokładnie jak ma to działać. Czy osoba wypełniająca...
Żeby nie wyświetlał wartości zerowych w kolumnie F można użyć formuły sprawdzającej czy istnieje któraś z wartości z formuły np.: =JEŻELI(CZY.PUSTA(D7);"";B7*C7*D7/100000... Przy braku ilości kolumna F będzie pusta, sumowanie będzie działać. Odnośnie kolumny C31 można zastosować podobne rozwiązanie i wykorzystać dodatkową kolumnę od D31 (czcionka w...
Do While Worksheets(1).Cells(Wiersz, kolumna).Value <> "" 'Tu rób co do ciebie należy lub nie rób nic Wiersz = Wiersz + 1 Loop W zmiennej "Wiersz" będziesz ostatnią sprawdzaną pustą komórkę. Zmienna "kolumna" <- tu podaj którą kolumnę będziesz sprawdzał To rozwiązanie mimo że zadziała, nie jest dobrym sposobem z dwóch powodów: 1. jest czasochłonne...
Witam, potrzebuję pomocy w następującej kwestii: chciałbym wyodrębnić w arkuszu pewne dane i umieścić je w odpowiednich komórkach. Dane są skopiowane z wyników aplikacji rekrutacyjnej linkedin (z kodu html). Po wklejeniu ich do arkusza znajdują się w pierwszej kolumnie. Co powinienem zrobić aby automatycznie umieścić je w odpowiednich komórkach? Załączam...
Próba odpowiedzi na problem Pana okondy. Ponieważ napisał Pan, że słabo zna Excela starałem się opisać wszystko dość dokładnie. Niestety, nie napisał Pan, której wersji Excela Pan używa, ale ponieważ załączony przykład jest w formacie .xls , więc przyjąłem, że jest to wersja 2003 i moje wyjaśnienia odnoszą się do tej wersji. W innych wersjach szczegóły...
Jeszcze mam drugie pytanie, w którym momencie trzeba zastosować ? To był tylko przykład żebyś zrozumiał jak działa pętla. Do komórek się odwołujesz .cells(numer wiersza, numer kolumny), są też inne sposoby, ale na razie stosuj ten. Pętlę zastosuj jakąkolwiek np: [syntax=vbnet] dim a as integer a=1 Set a1 = ThisWorkbook.Sheets("Arkusz1") Set a2 = ThisWorkbook.Sheets("Arkusz2")...
Potrzebuję pomocy w Excelu. Muszę zrobić coś aby klikając przycisk "Display Photo" w jednym arkuszu excela zczytał on nazwy z wiersza obok "Suma z Quantity", a następnie w komórkach nad nimi wstawił odpowiednie zdjęcia. Były by one umieszczone w tym samym skoroszycie, w ostatnim arkuszu. I tu mogłyby być zrobione np. 2 kolumny gdzie w jednej jest nazwa,...
troszkę nie kminię pomysłu , daj przykład paru komórek jak powinny wyglądać Przecież autor załączył fotkę Proponuje wpisać w A1 1 i w A2 1 zaznaczyć A1 i A2 złapać z róg i skopiować w dół do A32 A33 wpisać =A1+1 i skopiować w dół do A64 Zaznaczyć komórki od A33 do A64 złapać za prawy dolny róg i przeciągnąć/skopiować w dół aż do ostatniego wiersza...
Prawie dobrze. Sama pętla jest OK. Może źle liczysz kolumny (Offset). If kom2.Value <> "kk" And kom2.Offset(0, 13).Value = "tak" Then tu: warunkiem kopiowania jest dowolna wartość z wyjątkiem tekstu "kk" w kolumnie "I" oraz tekst: "tak" w kolumnie "V" (kol. "I"+13), wielkość liter ma znaczenie. Jeśli możliwe jest wpisanie...
Program masz "prawie" gotowy. Pomyśl, potrzebujesz odwołać się do Nr wiersza komórki spełniającej kryteria (tutaj zmienna "abc", zadeklarowana jako 'Range'). Będzie to wartość właściwości 'Row'. Następnie należy znaleźć lub określić Nr ostatniej w wierszu. Zadziałaj podobnie (metoda End), jak masz to z licznikiem pętli. Pozostaje przeliczenie (wymnożenie)...
Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...
Dobry wieczór, Zastosowana funkcja ILE.NIEPUSTYCH (COUNTA) pomija przy zliczaniu tylko komórki faktycznie puste, a te które zawierają formułę już nie są puste (nawet jeśli formuła zwraca pusty tekst). Inaczej zachowuje się funkcja LICZ.PUSTE (COUNTBLANK), która zlicza nie tylko komórki faktycznie puste, ale również te, które zawierają puste teksty....
Opis jest niezbyt jasny. Czy chcesz wypełniać puste komórki w kolumnie H tekstem z kolumny I, czy chcesz w innej kolumnie np. J uzyskać efekt połączenia kolumn H i I (po weryfikacji). Jeśli to pierwsze, to raczej nie formułą tylko makrem. Jeśli to drugie, to możesz użyć formuł. Ale nie takich jak próbowałeś. Nie można używać symbolu zastępczego gwiazdki...
Mogę mieć plik w tym samym miejscu i z tą samą nazwą. Do tego dążę - żeby zautomatyzować. Nie chcę tabeli przestawnej bo muszę pracować na tych danych. Przerabiałam to już i się to nie sprawdziło. Dobra odpuśćmy ten temat. Czy możesz mi powiedzieć jak ponumerować wiersze, aby numery szły kolejno, ale jeśli wiersz się powtarza to zwróci ten sam numer?...
Witam, Mam następujący problem w Excelu: w arkuszu "Basic" mam dane w dwóch kolumnach - A i B. Od A2 i od B2 (wyżej tytuły). W kolumnie A mam kolejno daty (codzienne) od najnowszej do najstarszej (lata 2002-2010). W kolumnie B odpowiadające datom wartości zmiennej. Chcę skopiować dane z kolumny B do innego arkusza "Divided" w następujący sposób: w kolumnie...
To może tak: - w ListoBoxie którego używasz nie można zastosować siatki, - siatkę można zastosować w komponencie ListView, który jest inną kontrolką niż ListBox (ma inne właściwości i inaczej się do niego ładuje dane). Mam nadzieję że wstawiłeś ListView tak jak pisałem w poprzednim poście, a nie tylko zmieniłeś nazwy ListBoxów?? - ten kod który Ci podałem...
hurra, sam doszedłem gdzie był błąd, teraz działa a przed chwilką przeczytałem twój post, ale satysfakcja jak się coś samemu rozwiąże hehe może nei jestem taki tępy :) słuchaj mam ostatni problem w zestawieniu mam 4 kolumny (zerknij na obrazek wklejony przeze mnie wcześniej) w żółtej kolumnie mam ocenę z klasy 1 np jest to ocena 5 w zielonej kolumnie...
Powiedzmy że działa - potestuj. Trochę info o pliku: Podstawa: Makro sprawdza w nagłówku (w wierszu drugim) gdzie jest tekst "Zadanie" i "Grupa interwencyjna" jak również w wierszu trzecim szuka ostatniej niepustej komórki. (po tym rozpoznaje ile jest poszczególnych kolumn. Jeżeli zmienisz nazwy dodawać dowolną ilość kolumn do zadania i do pracowników....
Dzień dobry, Oczywiście, najlepiej wprowadzać nowe komórki do środka zakresu i wtedy będzie się on poszerzać automatycznie. Ale nie zawsze tak jest wygodnie, bo dane mają określoną sekwencję i powinny być dopisywane na końcu. Tu problem jest większy, bo sumy są u góry zakresu. Gdyby były u dołu po wstawieniu nowych danych Excel automatycznie skorygowałby...
Co prawda to twoja praca domowa, niemniej: Excel działa na danych dynamicznie. Bez makra "zapisywanie" do komórki "stałej" danej z jednej nie da się zrobić * . Ja widzę to tak (dwa sposoby): 1. Tabela. W trzech wersach pierwszej kolumny trzy (czy więcej) urządzeń. W nagłówkach kolumn tej tabeli od razu wpisane kolejne daty z kalendarza. Wpisujesz czas...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 wstawia pusty wiersz. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Makro, które utworzyłam nie wyrzuca mi błędu, ale jedyne co robi to przechodzi od komórki P1 do pierwszej pustej. [syntax=vbscript]Function PrzejdźDoOstatniego1() Dim ile...
Cześć, W jaki sposób mógłbym przenieść dane z jednego arkusza w tym wypadku Nowe dane do arkusza obliczenia odpowiednio dostosowując formatowanie komórek do arkusza docelowego i ustawiając odpowiednią kolejność danych. W arkuszu Obliczenia w kolumnie rachunek dane są przechowywane jako tekst natomiast w Nowych danych jako numer lub ogólne. Dodam, że...
Nie bardzo rozumiem, po co ta cała zabawa z zerami, zamianą na puste, usuwaniem komentarzy. Po co wyświetlać zera gdy brak danych? Po co w ogóle tworzyć te komentarze z zerami? Poza tym ostatnia część kodu (usuwanie komentarzy) w ogóle by nie zadziałała, bo komórki z komentarzami były puste, a funkcja End uwzględnia zawartość komórki, a nie komentarze....
[syntax=vbscript] 1.=WYSZUKAJ(2^99;B:B) 2.=WYSZUKAJ("ŻŻŻŻ";$B:$B) [/syntax] Witam, Koledzy,potrzebuję pomocy odnośnie wyszukania ostatniej niepustej komórki w kolumnie. Podane przykłady formuł dają taką możliwość,pierwsza na cyfry,druga na wartość tekstową,aleee. Ale,gdy przefiltruję kolumnę pod kątem danej ,potrzebnej nazwy,wartość wyszukana pokazuje...
Witam, w ostatnim czasie chciałem utworzyć userform, w którym dokonywane będą skany kodów kreskowych (długość 14 znaków). Poniżej poszczególne etapy pracy formularza: 1)Skan kodu kreskowego w textbox, 2)Kopiowanie wartości text box (automatycznie/ textbox change() do akrusza karkulacyjnego, 3)Wyczyszczenie pola textbox oraz kolejne skany w kolejnej...
Korzystam z formuły sumującej dane dla konkretnego miesiąca czyli w arkuszu "lipiec - suma" (arkusz podsumowujący) mam formułę: suma('lipiec - suma :lipiec (1)'!H1), która sumuje mi wszystkie dane z pól H1 z zakresu wszystkich arkuszy pomiędzy "lipiec - suma" i "lipiec (1)". Ponieważ tworzę arkusz "lipiec-suma" na samym początku miesiąca (potrzebuję...
Analiza trwa godzinę?? Na pewno kod można zoptymalizować, danych nie ma aż tak dużo. Jak dla mnie kilka minut to już by było za dużo. Tak na szybko (bo kod za długi żeby cały analizować ;P) parę uwag: - w przycisku ANALIZUJ znowu zgubiłeś Application.ScreenUpdating =... i Application.Calculation = ... Przez to na pewno wolniej działa. Wyrób sobie dobry...
Tak, trzeba tylko znaleźć ostatni niepusty wiersz ("dziurę"). W przykładzie sortowanie wg kolumny A zakresu "A2:Hw", gdzie "w" to ostatnia niepusta komórka w kolumnie A, "jadąc" od góry. w = Range("A2").End(xl... Range(Cells(2, 1), Cells(w, 8)).Sort Key1:=Range("A2")
Prosta pętla z porównaniem na offset'ach. Nie wiem jak VBA potraktuje przedstawiony ciąg. To apostrofy zdaje się. Tego znaku używa się jako prefiks do zmuszenia Excela, aby liczbę traktował jako tekst... Może badać tylko ostatni znak: [syntax=vb]tmp = Cells(1, 1) If tmp = Empty Then MsgBox "Pierwsza komórka nie może być pusta" Exit Sub End If For Each...
Naciskając przycisk CANCEL chciałbym aby on nie wymazywał zapisu w Msg Box a jedynie opuszczał komórkę i nie przechodził do następnego Msg Box-a Niestety inputbox już taki jest że nie da się w nim "przechwycić" Cancel Po naciśnięciu Cancel "funkcja inputbox" zwraca pusty ciąg czyli "" Ostatecznie można dodać warunek że jeżeli wartość = "" to kończ...
Range("G6:G89").Select Jak go zmienić, żeby zakres brał pod uwagę wszystkie niepuste komórki w tej kolumnie? Więc tak, jeżeli chcesz, żeby z całej kolumny zaznaczył zakres składający się z niepustych komórek to będzie takie makro: Sub proba() Dim x As Double Dim zakres As String For x = 1 To ActiveSheet.Cells(ActiveSheet.Rows.C... "G").End(xlUp).Row...
:) Proszę bardzo, ale a kolei nie musiałeś krzyczeć :) :) Zaznaczę, że moje ostatnie wypowiedzi były z uśmiechem :) w dodatku ze "strasznym" błędem ortograficznym (za moich czasów nie było "dysortografii" i choć mam dobrą pamięć wzrokową nie spojrzałem jeszcze raz i stąd błąd - już nie będę poprawiał może moderator mi wybaczy) ... Dobra, przepraszam...
U mnie ten kod dokładnie taki jak wkleiłeś działa i kopiuje... Wejdź do kodu i wciskając F8 prześledź krok po kroku, czy kod wykonuje się tak, jak trzeba... A, jedna uwaga - w tej chwili kopiujesz wszystko do tej samej komórki, bo zmienna ost_w nie jest zwiększana. Przerób na: [syntax=vb]wiersz = wswyn.Range("B65536").End(xlUp).Row + 1 For i = 19 To...
Alert nie ma znaczenia - błąd musi być gdzieś indziej. W jaki sposób masz "zorganizowaną" poprawność danych? (przydałby się przykład) Czy to jest lista wpisana z ręki w "samej deklaracji" poprawności? Czy to jest lista z odwołania do listy w arkuszu? Czy to jest lista ze zdefiniowanej nazwy która z kolei odwołuje się do jakiegoś zakresu? A jeżeli jest...
Dzień dobry, Excel nie jest stworzony do obróbki tekstów, ma ograniczony zestaw funkcji tekstowych, więc tego typu zadania są dość trudne i rzadko daje się znaleźć rozwiązania uniwersalne. Dane wejściowe muszą być dokładnie zdefiniowane, bo trzeba określić jakieś zrozumiałe dla Excela kryteria wyszukiwania. Dlatego ważny jest w takim przypadku załącznik...
Generalnie to działa :) Jestem wdzięczny. Jedyny problem to taki, że kod nie kończy tam, gdzie chcę. Dajmy na to ostatni wiersz ma nr 4021 i jest pusty w kolumnie A. Rozumiem, że końcówka kodu będzie wyglądała tak?: Dodano po 25 Nie, to bez sensu. Przecież formuła nie zakończy się, dopóki nie zatrzymamy tradycyjną metodą "zamknij program". Nie mam pomysłu...
Bardzo dziekuję za pomoc. Dodano po 2 Ok. Działa. Dzięki. PS. Możecie polecić jakiś podręcznik/ stronę inernetową w której są opisane polecenia VBA i ich zastosowanie tak aby można byloby się uczyć samemu? Dodano po 16 Z kolumną J jednak nie dokonca jest w porządku ponieważ aktualizuje komórki aż za tabelkę. Wydaje mi się że w przypadku kolumny J ten...
Każdy wiersz w bazie OUTPUT odpowiada innemu plikowi (dla przykładu załączyłem tylko jeden) Makro powinno pobrać zakres z kolumny D z pliku 1 671 913 2.xlsx i porównać go z wierszem 2 w pliku Input_Output_813_804_823_824_v11.xlsx Jeśli np. "EW2 "= D2 to w arkuszu OUTPUT kolor tła w danej komórce powinien zmienić się na zielony, a jeśli dane się nie...
wpisywane "ręcznie", a nie poprzez formuły - jak ogarnąć drugą część mojego problemu? Żeby wykorzystać makro zdarzeniowe :D to proponuję wykorzystać jednak inną kolumnę np. wolną obecnie kolumnę A :spoko: . W załączonym pliku proponuje w przedostatniej komórce kolumny A wprowadzić wartość 1 , a wówczas cały ten wiersz (od B do AH) zostanie wstawiony...
Witam, Potrzebuję pomocy w napisaniu formuły jeżeli. Dane do komórek od wiersza 3 do 12 są wpisywane ręcznie (jeżeli jest pusta to 0 a jeśli wprowadzone są dane to 1). Dane do poszczególnych komórek muszą być wprowadzane jeden pod drugim więc od wiersza 3 do ostatniej wypełnionej komórki powinny być same jedynki a potem same zera. Potrzebuję formuły...
To może tak: [syntax=vbnet][/syntax] Sub Skanuj() ActiveCell = InputBox("tu coś wpisz") ActiveCell.Offset(1,0).Select End Sub [/syntax] To najprostsza wersja. Przed pierwszym skanowaniem ustawiasz kursor gdzie trzeba a potem miejsce będzie zmieniało się automatycznie. Chyba, że potrafimy jakoś określić to miejsca, to niczego nie będziesz musiał robić...
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...
Ja w tym kodzie błędów nie widzę - makro działa tak, jak je zapisałeś. Nie kończy się na wierszu 16, tylko ponieważ jest ono uruchamiana w zdarzeniu Change komórki, polecenie wpisujące coś do komórki: [syntax=vb]... Cells(c.Row, 12) = DateAdd("m", Cells(c.Row, 9), Cells(c.Row, 11)) ...[/syntax]powoduje ponowne wywołanie zdarzenia zmiany (co może wyglądać...
Nic tak nie uczy jak przykłady, a tych jest na forum dostatek. Szukaj pod hasłem "Excel Dir", "Excel lista plików" i coś na temat pętli. Np For Each element In kolekcja , gdzie kolekcja to zakres komórek z nazwami katalogów. Np coś takiego [syntax=vb]Sub bla() Dim zakres As Range, kom As Range Dim kat As String, sKat As String, plik As String Set zakres...
Rozumiem, że nazwy funkcji na angielskie trzeba zmienić. Bo polskich wersji funkcji to chyba jeszcze nie ma? Gdyby ktoś chciał wiedzieć, to ta formuła mnoży numery wierszy w zadanej kolumnie przez 0 jeśli komórka w tym wierszu jest pusta lub 1 jeśli jest zapełniona. Następne wybiera maksimum ze zbioru tych iloczynów, które jest numerem wiersza w tej...
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...
Witajcie, Z Excela jestem zupełna noga :) Dlatego zwracam się z prośbą do fachowców. Muszę mieć takie rozliczenie pracy jak w załączniku. Problem pojawia się przy tankowaniu. Chcę aby arkusz obliczał średnie spalanie po tankowaniu oraz średnie spalanie w skali miesiąca. Tankowanie zawsze do pełna, co 2-3 dni. Z poprzedniego miesiąca ostatni stan licznika...
Heja, Potrzebuje makro-automat który: (...)54467664.png Makro miałoby w kolumnie B o zakresie do ostatniej komórki z wartością, w tablekach jak na obraku, sprawdzić czy w tabelce jest puste pole, jeżeli tak to przenosi wartość z B2 na B1 a B3 na B2, jeżeli w tabelce B4 i B5 nie ma pustych pól to pójdzie dalej, analogicznie jak do pierwszego przykładu...
Jak rozumiem, dane masz w arkuszu Wk (aktywnym) i chcesz je przekopiować do arkusza Ww (zestawienie)? Jeśli tak, po lewej stronie musi być odniesienie do arkusza, do którego kopiujesz dane (Ww), a po prawej - arkusza źródłowego (Wk). Dlatego też dziwię się, że piszesz że to zdziałało odwrotnie. Jeden szczegół na który nie zwróciłem uwagi - jeżeli w...
:arrow: wozo :) zwolnij troszeczkę. Zawsze jeżdżę zgodnie z przepisami :-) Wiem że jak spojrzysz w lustro to wydaje się, że Ty jesteś najważniejszy na świecie, Nie żartujesz? Nie słyszałem żebym miał sobowtóra :-) ... spójrz na nowe i stare wątki z excelem - więc ... Widziałem , widziałem -szacunek. Dziś dzień Babci (Jutro Dziadka) Niestety od ponad...
Witam, próbuje stworzyć formułę która zwróci mi pozycję ostatniego wystąpienia 'x', czyli dla: 1 kolumny zwróci 5 2 zwróci 9 3 zwróci 10 itd. 4 zwróci 13 to uzyskuje dzięki formule PODAJ.POZYCJE wypełnianiem tej tabeli zajmują się inne formuły przez co wszystkie komórki są niepuste i PODAJ.POZYCJE wariuje, raz pokazuje dobrze a raz nie
Dzięki, naniosłem poprawki i makro wygląda w ten sposób: 1 czesc: jest ktoś w stanie zobaczyć i ewentualnie poprawić '2 część' makra?
w odwołaniu do towaru masz " =JEŻELI(CZY.PUSTA(B4);"";WYSZUKAJ.PIONOW... " Ostatnie 0 oznacza koniec danego arkusza? jestem zielony i wole się na bierząco juz niektórych rzeczy dowiadywać. Z góry dziękuje. wszystko działa jak powinno :)
Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...
Dzień dobry potrzebuje takiego makra (3 pliki załączone) pewnie jakieś pętle będą potrzebne 1. kliknij w START w pliku Start.xlsm 2. Otwórz pliki Raport skrócony.xlsx i raport_roznic_vat_i_pogrupowan.xlsx 3. w pliku raport_roznic_vat_i_pogrupowan.xlsx od arkusza 3 w tym wypadku Immomok Sp. z o. o. do ostatniego arkusza (co miesiąc może być inna liczba)...
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))....
End(xlDown) liczy zakres do pierwszej pustej komórki . U Ciebie są przerwy we wpisach, dlatego tak działa. A tak w ogóle to niepotrzebne są te nawiasy ws1.Range(ws1. ( Cells(2, iCol - 1), ws1. ( Cells(2, iCol - 1).End(xlDown) ).Copy Cells(3, iCol) zobacz jak działa to: ws1.Range(ws1.Cells(2, iCol - 1), ws1.Cells(Rows.Count, iCol - 1).End(xlUp)).Copy...
:) Ale nie ma tego złego ... Ściągnąłem od ciebie metodę sprawdzenia ilości wierszy. Do tej pory zawsze robiłem to w pętli warunkowej dopóki ostatnia komórka nie była pusta. Tak samo tu chciałem zrobić. A tak w jednym wierszu kodu można zamknąć takie sprawdzenie. :) Miło tak czerpać wiedzę. I ta nuta rywalizacji. :) No ... idę spać.
Wartość ujemna w ostatniej linii spowodowana jest tym, że zużycie wody w danym miesiącu jest liczone jako: stan końcowy licznika - stan początkowy licznika = zużycie wody Stąd więc pusta komórka ze stanem końcowym jest traktowana jako zero. Zero minus wartość od niego większa zawsze da liczbę ujemną. Tak też napisałem w 1 poście, że w operacji biorą...
Makro działa tak jak je napisano. Dla niego OstW to wiersz 30 ponieważ jest pusty. Na próbę możesz wpisać coś w puste komórki w kolumnie A i sprawdzisz, że działa do końca. Dodane: Do ustalenia ostatniego wiersza w arkuszu wygodniej użyć: OstW = Zakres.End(xlDown)
Najprościej: Otwórz te dwa pliki. Otwórz nowy trzeci plik i w nim skorzystaj z funkcji jeżeli() w połączeniu z wyszukaj.pionowo() [z zerem jako ostatni argument]. I jeżeli będzie to "ok"/albo komórka pusta, a jak nie to niech zwróci np kod którego brakuje. Skopiuj funkcje w dół i już.
nie, nie raczej żeby się to samo z siebie zrobiło, ale widze że chyba przeceniłem excela. To jak to zrobić w VBA?? rejestrator makra mi pokazał coś takiego: Dodano po 4 Ktoś musi je wpisać :) Wklepanie dwóch prostych formuł, skopiowanie jednej z nich przy użyciu kombinacji skrótów klawiszowych w dowolną ilość komórek w kolumnie zajmuje <5 sekund....
Tu jest szukanie ostatniego, niepustego ActiveSheet.Paste , to wcześniej powinieneś wybrać (Select) lewą, górną komórkę obszaru, lub cały, o tym samym rozmiarze zakres. Nie mam Twojego pliku docelowego, więc pisze wszystko "na czuja". Musisz analizować otrzymany "materiał do przemyślenia" i sygnalizować co, w której linijce nie działa prawidłowo.
Ma i to duży. Ale my nadal nie wiemy jaki. Może zamiast dodawać dwie komórki sumuj (jeśli o to chodzi) od pierwszej do ostatniej niepustej w wierszu.
Dzień dobry, Nie można było z tym przykładem od razu? Po pierwsze - w funkcji WYSZUKAJ.PIONOWO drugim argumentem jest zakres danych. W tym zakresie danych w pierwszej kolumnie szukamy nazwy towaru, a z drugiej kolumny odczytujemy jego cenę. Zakres danych znajduje się w innym arkuszu, dlatego do jego zdefiniowania wygodnie posłużyć się nazwą, która będzie...
Ale... U mnie jest normalny pusty skoroszyt na pełnym ekranie, a widzisz tylko pewien zakres komórek? jeśli tak to ustaw kursor w pobliżu granicy nagłówka ostatniej widocznej kolumny tak, aby pojawiła się podwójna strzałka kliknij prawym i odkryj, tak samo zrób z wierszami.
Przetestowałem rozwiązanie które otrzymałem i w zasadzie działa dobrze. Jednak ze względu na wymaganą strukturę potrzebowałbym modyfikacji... Zakładając że dane wyglądają jak w pliku bazowym ZPPel.xlsm wyniku wygenerowania pliku .csv czy .txt otrzymuję przykładowy plik ZPP 2016-02-04.txt Natomiast potrzebowałbym formatowania jak w pliku 2.txt które...
Moim skromnym zdaniem niepotrzebnie aktywujesz kolejne obiekty. -szukanie pierwsze pustej najlepiej zrealizować przez skok z ostatniej komórki kolumny: end(xlUp).row +1 (nagraj Ctrl+strzałka w górę). Szkoda czasu na pętlę. -arkusz można sortować odwołując się do nazwy/indeksu (nie musi być aktywny) Najwięcej czasu pochłania zapewne kopiowanie i tu nic...
Witam, Dzięki za odpowiedź. Niestety specyfika użytkowa tego arkusza oraz same działania użytkowników wymuszają na mnie takie rozwiązania. - Dany arkusz jest żyjącym dokumentem. Dostęp do niego mają różne działy. - Niestety część osób nie może mieć dostępu do edycji. Tylko do odczytu (np. produkcja). - Dział planowania oraz liderzy projektów potrzebują...
Ode mnie propozycja połączenia klasycznej formuły z funkcją UDF, która jest bardzo prostą adaptacją funkcji VBA Split: =JEŻELI.BŁĄD(WYSZUKAJ("żżż&... Jeżeli brak tekstu spełniającego...
Witam. Widziałem podobny temat ale odnośnie MS Excell. Link do tematu: Ja mam pytanie o darmowy arkusz kalkulacyjny z Google drive więc założyłem nowy temat. Mam w jednej kolumnie dane aktualizowane poprzez formularz. W jednej komórce np. G3 chciałbym otrzymywać zawsze aktualne dane z formularza -czyli ostatnią niepustą komórkę z zakresu B2:B102 Jak...
Aby odczytać ostatnią wartość w zakresie kolumnowym można użyć formuły: =INDEKS(z; MAX(JEŻELI(CZY.PUSTA(z); 0; WIERSZ(z))) – WIERSZ(z)+1) Jak poprzednio formułę można uprościć jeśli zakres zaczyna się od pierwszego wiersza: =INDEKS(z; MAX(JEŻELI(CZY.PUSTA(z); 0; WIERSZ(z)))) Twoja formuła nie podaje ostatniej wartości z kolumny tylko największą.
Witam serdecznie, chciałbym aby excel w googlach docs wypełniał mi komórkę kolorem w każdym wierszu - znalezioną pierwszą niepustą wartość ORAZ znalezioną ostatnią niepustą wartość ORAZ wszystkie pomiędzy tymi dwoma wartościami. Działa dla ostatniej komórki - ustalam formatowianie warunkowe dla całego zakresu i formatuj komórkę jeśli : jest równe =ArrayFormula(INDEKS(A1:IN1;...
Dzień dobry, Potrzebuję zrobić statystykę od kiedy do kiedy trwała dana oferta. Poszukuję sprytnej formuły która bedzie znajdowała pozycję pierwszej i ostatniej niepustej komórki. 1.17 2.17 3.17 4.17 1 1 1 1 1 Potrzebuję informacji ze oferta 1 trwała od 1.17 do 2.17 a oferta 2 od 2.17 do 4.17 Bardzo proszę o pomoc :) Dodano po 2 Niestety wiadomość sie...
Witam serdecznie, mam podobny problem lecz jednak inny "...chciałbym aby excel zwracał mi wartość pierwszej i ostatniej (w osobnych komórkach) niepustej komórki w danej kolumnie." Ten problem jest rozwiązany lecz mam problem z tym, że kolumna jest w tablicy z której tworzone są wykresy dynamiczne bazujące na pierwszej i ostatniej niepustej komórki w...
Dzień dobry, Mam za zadanie wyszukanie ostatniej akcji, skopiowanie jej do dodatkowej kolumny, oraz w kolumnie obok przypisanie odpowiedniej daty wykonania tej akcji. O ile z wyszukaniem ostatniej akcji nie mam problemu, tak nie wiem jakiej formuły użyć do dat. Pozdrawiam
Witam ekspertów excela :-) Panowie i Panie mam gorącą prośbę zrobienia makra do pliku Chciałam ułatwić sobie pobieranie danych w pracy, jednak nie mamy specjalisty, który umiałby stworzyć odpowiednie makro, dlatego przychodzę z prośbą, gdyż dla Was nie jest to pewnie w ogóle skomplikowane :) i jedynie potrzeba trochę czasu Obecnie muszę wszystko cały...
No trochę źle wyjaśniłam o co mi chodzi Wiec Arkusz1 to wzór, tak bym chciała, aby wyglądały wszystkie tabele, ale to rozwiązanie sprawia, ze kopiuje się znacznie więcej wierszy niż jest to potrzebne w danejtabeli (po 1700 tyle ile jest w tabeli źródłowej (tabela źródłowo, może być bez obramowani a i nagłówków, bo i tak dane będę importowane...
szkoły raczej zapraszają do siebie egzaminatorów z innych szkół, zaufanych kolegów , którzy już nie pierwszy raz sprawdzają u nich prace egzaminacyjne Nie wiem co to ma znaczyć, chyba nie sugerujesz, że raczej egzaminy są ustawione... nie narzucam nikomu mojego sposobu myślenia. Natomiast Ty ze swoimi poglądami na temat Visual Basic itp Jeśli Ty nie...