Jeśli dobrze zrozumiałem chodzi o coś takiego: [syntax=vb]Sub FirstAndLast(ByVal c As Integer, ByVal cellRow As Integer, ByVal cellCol As Integer) Dim i As Integer Dim first As Integer Dim last As Integer lastindex = Cells(ActiveSheet.Rows.Count, c).End(xlUp).Row For i = 1 To lastindex If first = 0 And Cells(i, c).Value <> "" Then first = i End...
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")
Cóż, tak zaprojektowana baza jest... A nie będę brzydko mówił. Podsumowując, to sprawa ma się tak - w SQLu tego nie zrobisz w racjonalny sposób (a pisanie 49 IIFów to nieporozumienie). Nie wiem, czy Access obsługiwał procedury składowane i wykonywanie budowanych zapytań (coś w rodzaju EXECUTE STATEMENT), bo wtedy przy kolumnach nazwanych w ułożony sposób...
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...
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...
Użyj dodatkowo funkcji SUMY.CZĘŚCIOWE. Zobacz w załączniku.
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?...
To nie ma związku z formułami. W wierszu oznaczonym poprzednio komentarzem 4) zamiast lw było wpisane 12, więc pętla w ogóle się nie wykonywała (od 13 do 12 nie ma żadnej wartości). Poza tym ponieważ lw szuka ostatniego zajętego wiersza w kolumnie A, a w tym ostatnim wierszu była teraz formuła zwracająca pusty tekst, więc dodałem jeszcze w pętli warunek...
O, teraz widać. Zdaje się, że szło by coś wykombinować. Po mojemu: 1) trzeba znaleźć ostatnią niepustą (Nr wiersza) w kolumnie A. Gotowe przykłady z PODAJ.POZYCJĘ do odszukania w Internecie. 2) funkcja WIERSZ(), sprawdzenie parzystości (funkcja MOD), odejmowanie Nr wierszy + sprawdzenie czy reszta z dzielenia przez 5 równa zero (5 element segmentu)...
Makro jak wyżej działa :) i wiem że mogę wyszukać nazwę jaką chcę. Chodzi mi tylko jak ustawić aby funkcja If działała w kolumnie z daną nazwą, do ostatniego niepustego wiersza. Ponieważ ta kolumna ma stałą nazwę ale może mieć różne położenie w arkuszu.
zastosowanie zapisu np. =JEŻELI(B1="";"";JEŻELI(D1="";"";SUMA(B1... nie pomaga. A powinno. Spróbuj =JEŻELI(LUB(B1=0;D1=0);"... Ostatnia wartość: Jeśli kolumna nie ma dziur (każdy wiersz jest wypełniony), to zlicz niepuste i podstaw jako argument funkcji ADR.POŚR. =ADR.POŚR("A"&ILE.NIEPUSTY...
Na początku musisz ustalić długość kolumny, którą będziesz przeszukiwać tzn. ostatnią niepustą komórkę. Możliwe jest to za pomocą: Application.WorksheetFunction.CountA(... Do wyszukania wartości użyć można: Selection.Find() Cały wiersz zaznaczasz za pomocą: Rows().Select Zaznaczony wiersz kopiujesz: Selection.Copy Wklejasz: Range().Select...
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....
Niestety ostatnie makro nie daje żadnego efektu końcowego. Jedyny problem jak przesunąć miejsce wklejania o jeden w dół. [syntax=applescript]With ActiveWorkbook Range("A2:D2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("Suma.xlsx").Activate 'tutaj trzeba by dodac zeby wybieral komorke pod ostatnia niepusta komorka kolumny...
Hej, nie wiem czy dokładnie o to Ci chodziło ale zrobiłem coś takiego: Sub kopiowanie_kolumn() Workbooks("plikA").Activate Dim nazwa As String Dim i As Integer Dim finalrow finalrow = Range("A1").End(xlToRight).Column nazwa = InputBox("Wprowadź nazwę kolumny: ") For i = 1 To finalrow If Cells(1, i) = nazwa Then Cells(2, i).Select Range(Selection, Selection.End(xlDown)).Select...
cbrman Dzięki wielkie za pomoc :D Wyszło krótko i zwięźle. I działa jak należy. [syntax=vb] ' wyznaczenie ostatniego niepustego wiersza w kolumnie A lLstRw = Cells(Rows.Count, 1).End(xlUp).Row ' wykorzystanie wyniku do zdefiniowania potrzebnego zakresu i jego uzupełnienia danymi z komórki V1 Range("V1", "V" & lLstRw).FillDown[/syntax]
Zastosuj pętlę For. Sprawa jest dość prosta: 1. Znajdź Nr wiersza ostatniej niepustej w kolumnie A 2. Podziel (zaokrąglając w górę) liczbę z pkt.1 przez ilość kolumn wynikowych, a otrzymasz liczbę wierszy do skopiowania na jeden przebieg. Lub przez liczbę wierszy, żeby otrzymać ilość kolumn (dla ew reszty +1 kolumna). 3. Kopiuj w pętli, gdzie licznikiem...
[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...
Hej, mam takie prostackie pytanie:) W jaki sposób można wskazać za pomocą wybranej wartości w combobox kolumnę o takiej samej nazwie w pierwszym jej wierszu i jej ostatni niepusty wiersz? Chociaż jakąś podpowiedź;] [/align][/code][/quote]
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...
Dzień dobry, Trzeba wyraźnie napisać jak to ma działać. Z opisu zrozumiałem, że mają być blokowane wszystkie komórki w kol. J od drugiej do ostatniej zapisanej. W drugim przykładzie jest już od komórki pierwszej, teraz okazuje się, że mają być blokowane tylko komórki niepuste. To trzeba się zdecydować, bo napisać można wiele wariantów, na przykład jeśli...
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.
Po wstawieniu tego przed pętlę w zmiennej ost_wiersz będziesz miał numer ostatniego niepustego wiersza w wybranej kolumnie. Masz w kodzie dwie pętle, a nie napisałeś w której z nich "zakres często się zmienia i raz jest 30 wierszy a raz 500", stąd nie wiem co rozwijać. Generalnie: [syntax=vb]For licznik = 19 To ost_wiersz Step 1 ...reszta kodu...[/syntax]
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...
fragment: [syntax=vbscript] .Cells(Ow - 1, 6).Copy .Range(Cells(Ow, 6), Cells(Ow + Nw - 2, 6)).PasteSpecial _ Paste:=xlPasteFormulas[/syntax] zastąp tym: [syntax=vbscript].Range("F" & Ow - 1 & ":F" & Ow - 1).Copy .Range("F" & Ow & ":F" & Ow + Nw - 2).PasteSpecial _ Paste:=xlPasteFormulas[/syntax] i zmień nazwy kolumn w zakresie....
Możesz dokładniej wytłumaczyć (może załącznik zamieścić?) co chcesz osiągnąć, bo nie rozumiem? :) Jeżeli wyszukać ostatni niepusty wiersz w kolumnie z formułami, to np.: ost_wiersz = ActiveSheet.Columns(2).Find(... After:=ActiveSheet.Cells(1, 2), _ SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row...
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...
Witam Jestem początkujący w temacie VBA. Mam problem z napisaniem makra które wyszukało by wartości z zakresu A5 do ostatniej niepustej komórki w kolumnie A arkusza "kartoteka zlecen produkcyjnych" w arkuszu "kartoteka indeksow" zakres A2 do ostatniej nie pustej komórki w kolumnie A i jeżeli znajdzie taką samą wartość przekopiował wartości z kolumny...
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...
Formułę sama pisałam, jest bardzo długa to nie chciałam jej tu umieszczać, ale jeżeli to ma pomóc to poniżej jeszcze raz z całą formułą. Poprawiłam też trzeci wiersz. Autofill zaczęłam od B2, zliczanie niepustych odniosłam do kolumny A, która jest niepusta i zamieniłam xlUp na xlDown. Teraz jest lepiej, coś działa. Uzupełnia całą kolumnę B formułą,...
Dziekuje za odpowiedz z kursu napewno skorzystam i wezme sie za prace... poszedlem troche na latwizne i udalo mi sie przerobic czyjes makro i smiga wysmienicie moze komus tez sie przyda pozdrawiam Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz As Long Dim sciezka As String ' okreslam sciezke szukania...
niby działa ale zeby zobaczyć wynik trzeba zaznaczyc komorke. Ja to widzę tak: zaznacz zakres do ostatniej pełnej, potem dodaj i pokaz i wypełnij wynikiem do ostatniej pełnej / względnie ostatniego pełnego wiersza. any ideas?
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. O takim zautomatyzowaniu myślimy? Przydatne skróty: 1. Ctrl+strzałka w dół - przejście do ostatniej niepustej (Np w kolumnie D) 2. Ctrl+Shift+Strzałka w górę - zaznaczenie...
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...
*Aldrin jezeli dobrze Cie rozumiem to dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Dodano po 14 wstepnie widze, ze ten skrypt bedzie mi pomocny :) Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz...
Witam Proszę o pomoc. Potrzebuje wykorzystać poniższy kod do wyszukania określonego tekstu w skoroszytach zapisanych w katalogu "DANE" i skopiowania całego wiersza do skoroszytu "Zbiorczy" Jednym zdaniem chodzi o wyszukiwanie tekstu w wielu plikach xls i zapisywanie ich do jednego arkusza. Czy jesteście w stanie mi w tym pomóc? kod: Sub OperacjeHurtowe2()...
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
A pierwszy wiersz w kolumnie B masz wypełniony? Zliczasz niepuste komórki i jeśli pierwsza jest pusta, nie wyszuka Ci ostatniej wartości. Wówczas zmień linijkę: [syntax=vbscript] For r = 2 To Application.CountA(Sheets("baza").Range(... [/syntax]
Pozwolę sobie na kilka uwag. :arrow: JVR -Niesłusznie zakładasz, że wiersz z sumami będzie równy dolnej granicy obszaru 'UsedRange', wcale nie musi tak być. Autor, nagrywając makro, nacisnął Ctrl+DownArrow szukając ostatniego, niepustego wiersza w kolumnie 'M' i tego bym się trzymał (przykład kolegi cbrman ) Po drugie: rejestrator zwykle zapisuje formułę...
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...
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
Kombinacji dużo, bo to moje pierwsze w życiu makro, a nauczyciela brak ;) Oczywiście dziękuję za propozycję rozwiązania. Rozjaśniła mi co nieco, jednak makro wywaliło się na pustej komórce, które niestety mogą się zdarzać: https://obrazki.elektroda.pl/4107276500_... Jedyna kolumna, w której na pewno będą dane to "A" i sprawdzenie...
Witam Mam taki trywialny dla większości z Was problem. Potrzebuję zrobić import wartości z kilku kolumn z jednego skoroszytu (powiedzmy kolumn A, C, G) - ale od wiersza nr 8 do ostatniego niepustego- do drugiego skoroszytu. Plik, z którego pobieram dane każdorazowo ma inną nazwę, więc niezbędne pewnie będzie wskazanie pliku na komputerze. Idealnie byłoby,...
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 do napisania makro, które będzie kopiować dane z pewnego arkusza (nazwa arkusza nie zmienia się, ilość danych również) z dużej ilości plików o zmiennej nazwie (liczba skoroszytów może się zmieniać). Pierwszy problem polega na określeniu ostatniego niepustego wiersza w każdym z tym plików (określenie kolumn nie jest konieczne gdyż ich liczba...
(...) lko wartości liczbowe, czy również daty? Są tam wartości liczbowe. AI: Z jakiej wersji programu Excel korzystasz? Czy używasz jakichś dodatkowych narzędzi lub dodatków, które mogą wpływać na formuły? Nie używam żadnych dodatków. Jeśli jakieś byłyby potrzebne do rozwiązania zadania proszę o informacje. Bezpośrednia odpowiedź na pytanie Aby stworzyć...
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...
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...
Faktycznie - nieopatrznie pomyliłam pliki. W załączniku to o co mi chodziło. Generalnie Chcę zrobić coś takiego (piszę skrótowo, merytorycznie): [syntax=vb] For j=3 to ostatnia_kolumna For i=7 to ostatni_wiersz Jeżeli wartość komórki (i,j) jest niepusta to weź jej etykietę (komórkę (4,j)) i przypisz ją po kolei (bez odstępów) do odpowiedniej kontroli....
Musisz wyznaczyć ostatnią zapisaną komórkę w danej kolumnie, przykład dla kolumny D: cbrman wydaje mi się, że jeżeli będzie pusta komórka lub kilka w ciągu danych, to raczej Twój kod nie zadziała. Pokaże adres niepustej komórki przed pierwszą pustą. Dodatkowo paweltsg nie napisał niestety, czy chodzi mu o kolumnę, czy wiersz.
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...
Cześć, Tak się zastanawiam czy istnieje sposób na założenie filtra tak by pokazywał dany zakres np. A1:a100 i filtrował nawet jeżeli komórki są puste ? Między wartościami są puste komórki, a chciałbym aby w filtrze było widać wszystkie wartości, nie tylko do pierwszej niepustej komórki. Do tej pory w kolumnie obok wstawiłem spacje. Zrobiłem to też w...
1. W zmiennej MyPath brakuje kocowego slash'a. 2. Jeśli wszystkie arkusze, to pętla For Each arkusz w otwieranym pliku. 3. Dla zakresów docelowych musisz utworzyć licznik wierszy (inkrementacja wewnątrz pętli) Zamiast kopiować całe zakresy przez Select-Copy_Paste i wyrzucać puste w kolejnej pętli, czy nie lepiej kopiować tylko niepuste wiersze/kolumny...
Można wykorzystać skróty klawiszowe. Załóżmy taką sytuację: W kolumnie B ciąg jakiś danych, w C3 formuła do skopiowania http://obrazki.elektroda.pl/3064735200_1... Podręcznikowo: chwytasz za uchwyt C3 i przeciągasz w dół. Na skróty: 1. Klik w B3 2. Ctrl+strzałka w dół (przechodzę do ostatniej niepustej) 3. Strzałka w prawo (przejście do kolumny...
Nie jestem pewien, czy nie mylisz nazewnictwa. Pole to komórka, formularz to arkusz? Ale pomijając to, nie potrzebujesz pętli tylko funkcji wyszukującej ostatniej, niepustej komórki i wpisaniu tekstu do następnej. Być może w kodzie arkusza w zdarzeniu "Przy zmianie", ale to zależy od odpowiedzi na pytanie i działaniu (tajemniczego) pola wyboru. Zarejestruj...
DELPHI. Mam problem. Utworzyłem tablicę StringGrid 4 x 100. Na formularzu widoczne jest tylko pierwsze 10 wierszy (tak chcę). Wczytuję do tej tablicy różne ilości wierszy z pliku tekstowego (odpowiednie części łańcucha do odpowiednich kolumn). Po wczytaniu tablica na ekranie pokazana jest od 1. wiersza. Chciałbym by program automatycznie ustawił aktywną...
Przecież do tego nie potrzebne Ci jest żadne makro. Sama napisałaś Problem dotyczy genralnie wypelnienia kolumny B funkcja wzgledem wszystkich niepustych wierszy (ciagly obszar od A1) w kol. A. Korzystając z przykładowego pliku stwierdzam, że wystarczy w komórce B1 wpisać: =+A1 Po podwójnym kliknięciu na prawy dolny róg komórki B1 osiągniesz to o czym...
To pewnie będzie trzeba zmienić podejście. Masz dane z ostatniego miesiąca (ile wierszy?) i potrafisz go przekonwertować do wymaganej postaci, masz z poprzednich miesięcy (znowu ile?) i to wszystko potem musisz złączyć (czy tu nie wejdziemy w ograniczenie Excela?) i przetwarzać? Dobrze to rozumiem? Jeżeli potrafisz przekonwertować plik w rozsądnym czasie...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...
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")...
[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...
Witam! Chciałbym uprościć sobie codzienne wpisywanie danych na koniec zmiany roboczej, bo obecnie muszę codziennie wypełniać 5 różnych skoroszytów (plików raportu) stworzyłem plik o nazwie „!wpisywanie” który po uzupełnieniu zawiera wszelkie dane potrzebne do uzupełnienia każdego z pliku raportów i chciałbym go odpowiednio zaprogramować...
Mam plik, który składa się z określonej liczby rekordów. Kolumna B do nazwa jednostki. Mam za zadanie napisać programik, który dla każdej jednostki wylosuje po 5 rekordów (bez powtórzeń) i przepisze je do nowego arkusza. Udało mi się zrobić coś takiego: [syntax=vb] Private Sub funkcja_losująca() Dim ost As Long Dim ark1 As Worksheet Dim ark2 As Worksheet...
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...
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....
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?
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...
Witam. Widziałem podobny temat ale odnośnie MS Excell. Link do tematu: http://www.elektroda.pl/rtvforum/topic24... 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...
Witam! Mam plik raportu do którego przenoszę dane na zakończenie pracy z pliku „plik testowy” oba pliki znajdują się w różnych lokalizacjach – w załączniku oba pliki na wzór – ogólnie przenoszonych danych jest ok. 30 wierszy z różnej ilości kolumn dla maszyny 1 i maszyny 2, ale opiszę swój problem na zamieszczonych plikach przykładowych....
Witam, dawno nie pisałem w sprawach Excela( :D ) ale może ktoś wie o co tu chodzi... Ogólnie stworzyłem sobie listy wyboru dynamiczne(w sensie że jedna lista zależy od drugiej) i ogólnie wszystko gra, listy w zależności od wczesniejszych danych ładują poprawny zakres danych i by grało wszystko elegancko gdyby nie pewna rzecz.... Mianowicie. Jeżeli otworzę...
excel ostatnia niepusta komórka ostatnia przeszkoda ostatnia komórka
orange neostrada tranzystorów tester opticum combo
piekarnik halogenowy whirlpool pralka świeci serwis
Kody do pilota uniwersalnego dla TV Manta Peugeot 206 1.4 16V 2004 - Check Engine po wymianie sondy lambda
