Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
Oczywiście. Co prawda w batchu też by się dało ale wygodniej zrobić to PowerShellem. Wtedy można to zupełnie zautomatyzować. Np.: foreach ($i in get-childitem *.csv) { if ($i.name -eq "1.csv") {(get-content $i)[0..((get-content $i).count-1)]|add-content wynik.csv} else {(get-content...
Nowa propozycja: [syntax=vbscript]Sub Wypełnij() Dim ost As Long ost = Range("B2").End(xlDown).Row ' ostatnia komórka wypełniona w dół ' ost = 2000 Range("A2").FormulaLocal = "=H2&B2&D2" 'to można pominąć, a formułę wpisać ręcznie Range("A2").AutoFill Destination:=Range("A2:A" & ost) Range("E2").FormulaLocal = "=C2&"" ""&D2" 'to można pominąć, a formułę...
Coś w tym stylu. Makro będzie trzeba przerobić, żeby zamiast 'Target', zapamiętywało ostatni wiersz i od niego do końca kopiowało. To jest uzależnione od tego, jak wpadają dane do 'D402'. P.S. Dlaczego nie chcesz, żeby makro, które dodaje wiersze do 'D402' dodawało też wiersze do plików Joanny i Katarzyny? To się robi jakiś bezsens wg mnie. Tym bardziej,...
Witam serdecznie, Potrzebuje napisać makro, które znacząco przyspieszy mi prace. Chodzi o to by dzieliło gotowy raport na części i każdą z nich zapisywało w oddzielnym pliku pod nazwą taką jak wartość w kolumnie. Dla ułatwienia (w celach poglądowych) stworzyłem mocno uproszczoną wersję tego raportu. Chodzi o to żebym mógł szybko podzielić ten raport...
Skoro się dopiero uczysz VBA to zacznij od dobrych praktyk, a jest nią deklarowanie zmiennych. Poczytaj o deklarowaniu zmiennych i ich typach. Staraj się nie używać Selectów, zamiast (tu jest także odpowiedź na Twoje pytanie): [syntax=vb]Range("T2").Select Selection.AutoFill Destination:=Range("T2:T" & wier), Type:=xlFillCopy[/syntax] Możesz napisać:...
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
Cześć Od kilku dni rozkminiam makro, które pomoże mi zautomatyzować pracę. Co tydzień pobieram dane z różnych arkuszy kopiując do jednego arkusza. Żmudne i nudzące zajęcie. Nie jestem programistą, ale z pewnością da się to jakoś ogarnąć makrem. Dla zobrazowania pokazuję fragment pliku. To czego potrzebuję to: - w jednym arkuszu (w przykładzie jest to...
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
Ok sory źle to wytłumaczyłem, więc tak : 1. Wchodzisz do pliku rejestr 2. Uruchamiasz makro przyciskiem "wygeneruj zlecenie cent" 3. Makro przypisane do tego przycisku robi to: a. Generuje kolejny numer w najbliższym pustym wierszu. b. Otwiera wzór zlecenia o nazwie zlecenie cent C. Kopiuje nowo nadany numer w rejestrze i wkleja go do otwartego wzoru...
Oczywiście, ale :) Excel lubi płatać figle. Zapisz jeden wiersz z CheckBoxem, skopiuj go 100 razy, po czym usuń przez zaznaczenie 80 wierszy. Ile jest CheckBoxów w arkuszu? I co będzie gdy uruchomisz powyższe makro? Raczej użyłbym czegoś w stylu For wiersz = 1 To Range("A65536").End... 'tu drukowanie zaznaczonych w gałęzi...
Nie mogę zrezygnować z excela, w nim są zapisywane dane niezależnie ode mnie. Ja mam te dane tylko analizować. Nie mogę też wprowadzać danych bezpośrednio do accessa. Po otworzeniu Bazy chciałbym, żeby nowe dane były dopisane do tabeli. Nie mogę pobierać całego excela na raz ponieważ modyfikuję te wpisy, które już mam w bazie danych. Teraz pobieram...
Mam makro po którego uruchomieniu wyświetla się forma z checklistą, polem umożliwiającym wpisanie tekstu, kilka optionbuttonów i 66 checkboxów po kliknięciu zapisz wszystkie dane zapisywane są do odpowiednich komórek, jednak jeśli, któreś z pól, lub żadne nie zostanie uzupełnione i tak można zapisać w tym wypadku bezwartościową informację. Takie działanie...
Pisząc kod jak poniżej: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$A$1" Then wszystko działa tak jak chciałem, ale tylko w zakresie podanej komórki. A czy można i jak zapisać aby działało w całej kolumnie? I jeszcze jedno pytanie: Wiersz = ActiveSheet.Cells(ActiveSheet.Rows.Count... "D").End(xlUp).Row -formuła wyszukuje...
Od razu przyznaję, że jestem noobem, ale po przebytym google'owaniu. Zarejestrowałem sobie makro, ale muszę sobie edytować parę rzeczy w kodzie, żeby działało ono na dowolnym arkuszu. I tutaj pytania: W kodzie mam np. zapisany taki zakres komórek: Range("G6:G89").Select Jak go zmienić, żeby zakres brał pod uwagę wszystkie niepuste komórki w tej kolumnie?...
Musisz określić ostatni zapisany wiersz w danej kolumnie, np. poprzez (dla kolumny A): [syntax=vb]Dim lOstRw& lOstRw = Cells(Rows.Count, 1).End(xlUp).Row[/syntax] Później w komórce poniżej ostatniej zapisanej wpisujesz formułę sumowania dla zakresu od wiersza 1 do ostatniego zapisanego wiersza w danej kolumnie (dla kolumny A): [syntax=vb]Cells(lOstRw,...
Najprawdopodobniej co jest możliwe, aby to zrobić za pomocą formuły tablicowej. Ale po prostu zrobić, ich funkcja lub makro do rozwiązania. Jak już powiedziałem, specjalista w dziedzinie funkcji tablicowych, a następnie Maciej Gonet. Ja również jestem samoukiem i lubię makra. Specjalne literatury nie cieszył się, tylko F1 i analizy innych makr. W Twoim...
Witam! Od jakiegoś czasu poszukuję bezowocnie rozwiązania do następującego problemu: Buduję arkusz do rozliczeń i podliczeń różnych rzeczy dla pracowników mojego znajomego, ponieważ jednym z założeń jest prostota obsługi, próbowałem dokopać sie do funkcji lub makra automatycznie powiększającego tabelę o kolejny wiersz przy naciśnieciu klawisza enter....
Dziękuję za ostatni kod bardzo mi pomógł. Mam jeszcze jedną pewnie ostatnią prośbę. Chciałbym że dla każdego pliku w katalogu po operacji zapisania pliku, excel sprawdził jedną kolumnę w której raz na jakiś czas pojawi się "+" i jeśli się pojawi to żeby nazwa pliku została zapisana do worda. (Tak żebym miał w wordzie na koniec listę plików w których...
Up Witam, Mam mały problem i mam nadzieję, że pomożecie mi. Potrzebuje makro które: 1. Przeszuka mi około 60 arkuszy pozycje np. 'Malina'. Informacja szukana znajduję się zawsze w kolumnie 'B'. 2. Potem skopiuje cały wiersz z tą informacją. Bo potrzebne mi są wszystkie informacje z wiersza gdzie znajdziemy 'Malina'. 3. Zapisze mi to w arkuszy o nazwie...
chciałbym poinformować,że nie dawno odkryłem VBA Hmm... Skoro odkryłeś, może warto nauczyć się go wykorzystywać? Do rozwiązania swojego zadania potrzebujesz kilku rzeczy: 1. Określić nazwę folderu nadrzędnego. Tu można wykorzystać FileSystemObject, Np [syntax=vbscript]Dim oFSO As Object, srcFldr As String, parFldr As String Set oFSO = CreateObject("Scripting.FileSystemObject...
Udało mi się nieznacznie poprawić kod. Wszystkie potrzebne dane po użyciu makra uzupełniają się w danym wierszu formularza ale dzieje się to w sposób niekontrolowany. Oznacza to że raz pobiera dane w sposób pożądany a raz nie pobiera wcale lub kopiuje dane w zupełnie inne miejsce. Może wynikać to ze złego zdefiniowania programu. [syntax=vb] Option Explicit...
Teraz jest ok. Scieżka nie jest wymagana więc uruchomienie makra na komputerze przy innej sciezce pliku nie jest tez problemem. Co mi jednak wyskoczylo jeszcze to dwie rzeczy. Plik lista.xls zmodyfikowalem tak, aby dostosować go do własnych potrzeb. Przykładowy plik wrzuciłem w załącznik. Powstają dwa problemy: Pierwszy to fakt, że raport zwrotu pobierany...
stąd: ostWrs = .Cells(.Rows.Count, "B").End(xlUp).Row Wydaje mi się że nie to chcesz docelowo uzyskać. Myślę że chcesz określić do którego wiersza wpisać dane więc jak na sztywno wpiszesz że ostWrs = 8 to zacznie wpisywać od 9 ale ... dla zrozumienia i nauki: rozbijmy to : ostWrs = .Cells(.Rows.Count, "B").End(xlUp).Row Count to "liczba/ilość wszystkich/kiego"...
To dlatego że trochę zamieszałeś z opisem ;) Pisałeś o podziale według dwóch kolumn A i B - przy takim założeniu musiały by to być niepowtarzające się pary. Póki co linijkę: If tabl(i, 1) = c And tabl(i, 2) = druga_kolumna Then zamień na: If tabl(i, 1) = c Then i powiedz czy to jest to, o co Ci chodzi? Jeżeli chodzi o dynamiczna...
Ale jakich makr nie umiesz stworzyć? Ja tego nie zrozumiałem. To po kolei: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB - mniej ważne gdzie to wklejasz, ważniejsze co dokładnie. Czy umiesz określić zakres do kopiowania? np. A5:Z123, albo kolumny A do Z od wiersza 5 do ostatniej wartości w kolumnie C (nie może być w tej kolumnie...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
Chyba jednak się nie zrozumieliśmy... Załączam zrobiony na szybko załącznik ilustrujący ideę. Zależy mi na pominięciu okienka wyszukaj/zamień. Bo w tej chwili żeby powyższy sposób zadziałał muszę na dzień dobry wywołać okno wyszukiwania czyli ctrl+f, Nigdzie nie pisałem o tym okienku. Nie musisz go wywoływać. Wyszukujesz za pomocą funkcji wyszukaj.pionowo....
Ok a czy dalej warto korzysta z tzw summary table aby szybciej generowac np raporty, np wszystkie zamówienia w tabeli z dnia sumuje i wrzucam jako jeden wiersz do drugiej tabeli z której jest odczyt danych do raportu? 1. Sumowanie "aktywne" do innego miejsca w bazie relacyjnej .... jest to obecne w branży. Czy coraz więcej, czy mniej? Na pewno to nie...
Jeżeli jednak chcesz wpisać do aktywnej komórki formułę łączącą dane z arkusza wsh, z ostatniego wiersza i kolumny 9 to należy to zapisać następująco:[syntax=vb] Row_komorki = ActiveCell.Row Column_komorki = ActiveCell.Column ActiveCell.FormulaR1C1 = "='" & wsh.Name & _ "'!R[" & ost_w - Row_komorki & "]C[" & 9 - Column_komorki & "]"[/syntax]
Udało mi się zrobić coś takiego: W kolumnie A znajduje się kilka plików do znalezienia w kolumnie B wyświetlane są wyniki [syntax=vbscript]Dim fldr As FileDialog Set fldr = Application.FileDialog(msoFileDialogFold... fldr.Show f = fldr.SelectedItems(1) ostatniwiersz = Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To ostatniwiersz ibox = Cells(i,...
Niech zgadnę - ten kod z dodatkowym kopiowaniem 7 komórek w każdym wierszu działa strasznie wolno i chcesz zrobić to na raty? Tak czy inaczej: na końcu makra trzeba przechować numer ostatniego wiersza z pliku źródłowego, a skoro i tak coś jest przechowywane, to można też zapamietać numer ostatnio wpisywanego wiersza w pliku docelowym. Wartości te można...
teraz potrzebuję aby makro na podstawie danych z Arkusza2, w którym znajduje się tabela nazwisk i przynależności do grup odpowiednio grupowało wiersze z nazwiskami należącymi do odpowiednich grup np A,B,C,D ,obliczało konkretne wartości dla tych nazwisk - i to mam już gotowe i działające we wstępnym kodzie poniżej (do dopracowania) chciałbym jeszcze...
Postanowiłem potrenować szare komórki odrobinę ;) W załączniku folder "ćwiczebny" (należy rozpakować i zapisać na dysku/pulpicie). Do działania makra potrzebne są referencje "Microsoft Word x.xx Object Library" (w załączonym pliku włączone). W przykładzie wyekstrahowanie Nr dokumentu i daty. Z pozostałymi parametrami można podobnie. Pozostaje jedynie...
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....
Cześć, W załączniku przesyłam screen z Excela. Chciałbym żeby makro: 1. Przeszukało kolumnę data 2. Przy dacie o dzień wcześniejszej niż ostatnia sprawdziło czy w kolumnie wynik znajduje się plus. 3. Jeśli tak, to chciałbym żeby nazwa z kolumny 1 została zapisana w pliku Word. 4. W przypadku, jeżeli pole jest puste, chciałbym żeby arkusz się zapisał...
makro ostatni wiersz makro ostatni zapisany wiersz ostatni zapisany wiersz makro
wymianie uszczelki głowicą głowica passat odciąć zapłon mondeo
Ustawienie rozrządu Peugeot 807 2.0 HDI 136 KM Regulator obrotów: żarówka działa, silnik nie zmienia prędkości
