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...
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,...
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ć:...
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...
Hmmm... Kilka uwag na początek: Po pierwsze primo: jeżeli chcesz uniezależnić program od nazw arkuszy, wystarczy zamiast: kolejnym wierszu.
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...
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))...
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...
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?...
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...
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...
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,...
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 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...
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...
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....
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łę...
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...
Najpierw musisz sprawdzić który wers masz aktywny (zaznaczony): aktywny_wiersz = Selection.Row Potem sprawdzić ile jest maksymalnie wierszy zapisanych (w przykładzie maksimum sprawdza w kolumnie A): ostatni_wiersz = Cells(Rows.Count, "A").End(xlUp).Row A potem zwykłe przypisanie - nawet nie kopiowanie: For x=1 to 4 Cells(ostatni _wiersz+1, x)=Cells(aktywny_wiersz,...
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...
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...
Witajcie, mam dość według mnie ciężki temat do zrobienia. Chciałbym aby makro kopiowało dane uzupełnione przez pracowników z poszczególnych arkuszy do Arkusza PH1 i wklejało dane jedno pod drugim. Czyli sprawdzało który wiersz jest ostatnim w którym już są dane w PH1 i wkleiło je pod nimi. I tak po kolei z każdego arkusza pracownika do PH1. Ilość zapisanych...
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...
Dzień dobry, Poszukuję rozwiązania, które pomoże mi przyspieszyć pracę. Otóż w Skoroszyce o nazwie np Dane 1.0 mam 25 arkuszy o różnych nazwach. W każdym z tych arkuszy jest aktualnie zapisanych około 200 wierszy z danymi w 25 kolumnach. Program, do którego trzeba później wyeksportowac dane może je przyjąć gdy są zapisane w jednym arkuszu. Aktualnie...
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...
W załączniku są pliki końcowe, które bedą używane i teraz fajnie by było, gdyby znalazły się jeszcze następujące rozwiązania: 1. W pliku czerwony1 , jeśli dodatkowo wartości w kolumnach M i U zostaną zmienione na kolor czerwony , to nie zważając na to, czy w kolumach odpowiednio AM i AQ są wpisane godziny , kopiowałoby te wartości razem z wartością...
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),...
We wszystkich excelach można to zabezpieczyć. Podczas zapisywania pliku (zapisz jako ...) po pojawieniu się monitu jak ma się nazywać plik i gdzie ma być zapisany wciskasz Narzędzia i wybierasz"Opcje ogólne ... " tam ustawiasz hasło. Co do drugiego punktu to będzie ciężko Owszem możesz zablokować górne wiersze i pierwsze kolumny - ale górną i ostatnią...
Witajcie, mam dość według mnie ciężki temat do zrobienia, częściowo poruszany w tym wątku. Chciałbym aby makro kopiowało dane uzupełnione przez pracowników z poszczególnych arkuszy do Arkusza PH1 i wklejało dane jedno pod drugim. Czyli sprawdzało który wiersz jest ostatnim w którym już są dane w PH1 i wkleiło je pod nimi. I tak po kolei z każdego arkusza...
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ł...
ostatni zapisany wiersz makro ostatni zapisany wiersz makro ostatni wiersz
blokada kierownica scenic microsd aplikacji stratny regulator
dioda mrugająca radiocd mitsubishi
Ford Mondeo Mk 1 – lokalizacja złącza wiązki elektrycznej pod słupkiem B, opis usterki Błąd H91 w pompie ciepła Panasonic 12 kW - jak naprawić?
