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,...
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...
A co w momencie gdy pod wierszami, które mają być uzupełnione są inne dane? Mam w arkuszu tabelkę, w której musze uzupełniać pewne dane. Tak samo jak u poprzedników, nie wiem ile będzie miałą wierszy w kolejnych plikach. Po użyciu row.counts wyświetla mi się błąd, że wszystkie komórki muszą być w tym samym rozmiarze (zaraz pod tabelą jest długa, scalona...
https://obrazki.elektroda.pl/2598050500_... Witajcie, chciałabym napisać makro, które będzie łączyć komórki tak jak zrobiłam to ręcznie w przypadku E01 i E02. Z pomocą formuł wypełniają mi się pewne komórki, a następnie komórki zawierające jakiś tekst kolorują się na wybrane kolory. Ostatnim etapem jest złączenie ich w jedną całość...
Pliku xlsm nie mogę załączyć Zawsze możesz załączyć plik w formacie .xls albo skompresować swój plik np. do .zip i w tej postaci załączyć. Plik tekstowy też jest OK, ale nie można go uruchomić bez danych, więc można coś przeoczyć. Nie wiadomo z którego arkusza uruchamiasz makro. Zaraz na początku obliczasz numer ostatniego wiersza w kolumnie 18. arkusza...
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ć:...
I tu się mylisz, niestety ale TAK Czy to "TAK" dotyczy pierwszego, czy ostatniego wiersza z mojego cytatu? Skłaniam się ku temu, że jednak chodzi o ostatni. Natomiast niema żadnego błedu Na pewno? http://obrazki.elektroda.pl/4256072200_1... A Twoim zdaniem co to za dziwadło? A powstało tu: http://obrazki.elektroda.pl/8661693700_1...
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...
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?...
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ą...
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...
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,...
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...
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ą...
Nie no .... jak się powiedziało A ... "A u nas to działało" jak to mówią serwisanci :) W czym problem ? ..........aaaaaaaaaaaaaaaaaaaaa............ wiem dopiero ściągnąłem twój arkusz ... a myślałem, że dobrze tłumaczysz :) zaraz postaram się poprawić już Sub Makro1() kolumna = 1 licznik = 0 ostatni = ActiveSheet.UsedRange.Rows.Count For i = 1...
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...
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...
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...
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...
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...
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),...
http://obrazki.elektroda.pl/3025550100_1... Mając do dyspozycji jedną matrycę 8x8 czerwonych diod LED o boku 60,2mm oraz mikrokontroler ATtiny861 pozostałe po innych projektach postanowiłem zbudować to, co każdy elektronik chociaż raz w życiu zbudować musi: zegar ;). Ze względu na charakter wyświetlacza miał to być zegar binarny, ale...
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...
makro ostatni zapisany wiersz makro ostatni wiersz makro ostatni zapisać wiersz
zasilanie cursor pompa wspomagać renault laguna szybko rozładowuje baterie
alarm pilot proxima alarm pilot proxima
Schemat instalacji elektrycznej wycieraczek Mercedes MB 100 – opis pinów, przekaźnik, kolory przewodów Kod błędu FMI 5 w Zetor Proxima CL 100 - co oznacza?