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))...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
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. 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...
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]
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...
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,...
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...
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...
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ć...
Cześć, nie jestem biegły w VBA i zwykle swoje makra tworzę przez nagrywanie. Potrzebuję makra, które będzie wyszukiwać pierwszy wolny wiersz, zaznaczy zakres kilku kolumn (np. od A do B) i będzie sumować wartości. Cały szkopuł jest w tym, że dane, które będą sumowane miewają różną liczbę wierszy. Dlatego nagranie sumy nie zdaje egzaminu, bo zawsze sumuje...
Sama się o to prosisz (.UsedRange = zakres, gdzie zakres=Empty). Dalej nie rozumiem: jak chcesz to realizować? UsedRange to zakres, w którym znajdują się dane. Albo określisz wspólny PrintArea dla wszystkich arkuszy, lub chociaż ostatni wiersz, albo tablica dla każdego arkusza z zapisanym adresem zakresu w postaci tekstowej. Całe to makro (załącznik),...
Hej Zacząłem właśnie uczyć się samemu VBA i utknąłem z jednym problemem. Moje Makro ma a zadanie przy każdym uruchomieniu wyszukać ile wierszy jest zapisanych w pliku w kolumnie D i w tylu też wierszach w kolumnie T wpisać cyfrę "1". Zrobiłem pętle która przechodzi do pierwszego pustego wiersza i zwraca jego adres i wartość dla uzyskania liczby wierszy...
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 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...
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...
Jak już chcesz usuwać wiersze z zakresu, to wykonaj pętlę od ostatniej zapisanej do pierwszej komórki - mniej problemów. Po drugie: te selecty to są zupełnie niepotrzebne. To makro może być w następującej postaci: [syntax=vb]Sub usun() Dim lLstRw As Long 'ustalenie ostatniej zapisanej komórki w kolumnie A lLstRw = Cells(Rows.Count, 1).End(xlUp).Row...
Cześć, dzięki za podesłane rozwiązanie niestety dla mnie nie jest do końca przydatne ze względu na to że, chodziło mi o "ZAPIS NOWEGO PLIKU POD NAZWĄ Z ARKUSZA" jak zostało to opisane poniżej. Potrzebuję dla generatora pytań napisać makro które pozwoli mi na zapisanie nowego Zeszytu(pliku) pod nazwą z Arkusza(Dane). Tak abym mógł wprowadzić kilkadziesiąt...
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...
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...
Ok. Rzeczywiście małe zamieszanie się wdało w moje tłumaczenia. Bijąc się w pierś jedną ręką, wyjaśniam niezwłocznie wszystkie zawiłości ręką drugą. Chodzi mianowicie o dwie funkcjonalności: 1.Po wypełnieniu którejkolwiek z komórek z danego zakresu (C3:F1000), makro przypisuje aktualną datę do drugiej kolumny wiersza, w którym nastąpiła zmiana. Gdy...
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...
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....
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, (at)JRV >> Sprobuj do exportu ActiveSheet.PageSetup.Orientation = xlLandscape Jest inna metoda trzeba dodać formatowanie stron, ale trzeba je dodać przed zapisaniem obszarów w Array (po zapisaniu obszarów w Array formatowanie stron działa tylko dla pierwszego zakresu). [syntax=vbscript]With ActiveSheet.PageSetup .LeftMargin = Application.CentimetersToPoints(0.5)...
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...
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...
W notatniku jak wstawie kursor na ostania "linie" danych wyświetla mi się ilość wierszy. Jest ich ponad 2 miliony. Potrzebuje wybrać z notatnika ok 100000 wierszy. Taka ilość mi się zmieści w arkuszu Excela. Tylko jak je mam wybrać? z Excela umiem wybrać interesujące dane. Z notatnika już nie umiem. Importując dane z notatnika do Excela. Jak ja to robię....
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...
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...
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,...
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...
Witajcie Potrzebuje ustawić zakres komórek, przy kliknięciu których uruchamia sie makro potrzebuje ustawić 2 zakresy a mianowicie "J3:J"&lrow oraz "L3:M"&lrow czyli w kolumnie j oraz l do m ale do ostatniego wiesza w kolumnie a i tu prosba. jak zapisac te zakresy Kiluk
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...
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 ostatni zapisany wiersz makro makro ostatni zapisany wiersz
zmywarka amica migające diody tda2030a zasilanie klejenie żywicą metal
powietrzna pompa ciepła kompresor srubowy
Synchronizacja jazdy suwnicy – falowniki Danfoss, ABB, Siemens, eliminacja ukosowania, PLC Radio samochodowe traci fale podczas jazdy – antena elektryczna, zakłócenia, słaby odbiór FM