Wygląda mi to na jakieś "kombinowanie" i, znając życie, nie będzie to działało tak, jak chcesz - bo zaistnieją jakieś warunki, których teraz nie przewidzisz, ale tak na szybko można próbować takim makrem, jak w załączniku. Cała "sztuka" to dodawanie / usuwanie wierszy od końca, żeby zakres się w pętli nie przesuwał. Usuwanie zakłada, że usuwasz wiersze,...
Jeżeli przez 10 dni nie ma żadnej reakcji, to powinieneś się zastanowić, czy pytanie jest zrozumiałe. Teraz podbiłeś pytanie, ale nic w nim nie uzupełniłeś. Załącznik nie zawiera żadnych makr ani formuł, tylko losowo wpisane liczby 1, 2, 3. Piszesz, że w pierwszej tabeli nie będzie pustych wierszy, a wiersz 25. (w arkuszu) jest pusty. Zatem nie wiadomo,...
Sprobuj takie makro [syntax=vb]Sub sortgodz() With ActiveSheet.UsedRange .Sort key1:=.Columns(4).Cells(1), header:=xlYes Set bt = .Find("Zast") r = Cells(Rows.Count, 4).End(xlUp).Row + 1 Rows(bt.Row).Cut Rows(r).Insert shift:=xlDown End With End Sub [/syntax]
Nagłówki będą wszystkie w np wierszu nr 2. Jeśli chodzi o ciągłość to np od wiersza 3 do 20 będzie coś wpisane i dopiero wiersz 21 będzie pusty i wtedy makro ma się przerwać. Ale chce żeby samo się dostosowało jeśli wpisze coś w wiersze 21-23 to przerwie się wtedy na wierszu 24 bo on będzie pusty jako pierwszy po dopisaniu
Tak jak masz funkcję [syntax=vb]Private Sub GetDataFromRow(iRow As Integer) With ThisWorkbook.Worksheets("baza") Me.TextBox1.Text = .Range("A" & iRow) Me.TextBox2.Text = .Range("B" & iRow) Me.TextBox3.Text = .Range("C" & iRow) Me.ComboBox2.Value = .Range("D" & iRow) Me.ComboBox1.Value = .Range("e" & iRow) Me.TextBox6.Text = .Range("f" & iRow) Me.ComboBox3.Value...
Nie sadze zeby bylo cos co zrobi to automatycznie. Trzeba napisac skrypt uzywajac VBA.
To ja też podam przykład... Jak makro zacznie działać, to najpierw w J1 znajdzie się pierwszy kraj, a skończy ostatnim krajem. Bez sensu. Przecież nie będziesz widział zmian w J1!
Zobacz, czy to zadziała: [syntax=vbnet]Const ci = 6 Const co = 9 Const r0 = 2 Sub ReCalc() Dim ar As Integer ar = r0 While Cells(ar, ci).Value <> "" If ((Cells(ar, co).Value < Cells(ar, ci).Value) And IsNumeric(Cells(ar, ci).Value)) Then Cells(ar, co).Value = Cells(ar, ci).Value End If ar = ar + 1 Wend End Sub Private Sub Worksheet_Activate()...
Witam! Bardzo proszę o pomoc, mam następujący problem chciałbym aby makro wstawiało pusty wiersz po określonej liczbie w moim przypadku chodzi aby wiersz pusty był wstawiany przed ostatnią liczbą mniejszą od 1 000 000 (wartości zawsze posortowane są malejąco) np mam taki ciąg: a 6 541 237 b 3 214 578 c 1 002 478 tutaj makro wstawia pusty wiersz d 987...
Klasyczne pola wyboru czy opcji przy dużej liczbie kontrolek są trudne do obsługi. Sugerowałbym raczej rozwiązanie zastępcze z użyciem VBA. Coś takiego wstawiłem do przykładowego arkusza. W kolumnach B i C są tam wstawione do komórek znaki Unicode przypominające znak akceptacji i pusty prostokąt. Do obsługi tego jest makro zdarzeniowe, które reaguje...
A może wrzucę przykładowy arkusz, to może będzie prościej. Link dobry, ale dotyczy on kolumny, a mnie by interesowało, żeby dopisywał kolejny wiersz z wartością o 1 większą niż poprzedni.. Podałem Ci "wędkę" ale widzę, że Ty chyba oczekujesz na gotowe :) Owszem da się, tylko trzeba przykład podany w linku przerobić na swoje potrzeby. Nie jest to trudne.
Pewnie pierwsze dane masz w drugim wierszu, u mnie był w 3, zamień: For k=3 na For k=1 (sprawdzanie od pierwszego wiersza). Makro sprawdza kolumnę B od dołu, widocznie są u Ciebie jakieś puste wiersze ... Jeżeli wiesz ile masz komórek w kolumnie B do sprawdzenia wpisz na sztywno (3500 to ilość wierszy) : zamiast: For k = 3 To Cells(Cells.Rows.Count,...
Jest tam makro. Otwórz pusty arkusz i uruchom makro DwaDzieścia :)
To w pętli, to pusty pierwszy warunek, czyli liczba rozpoczynająca równa jest 0. Tylda to negacja, wszystkie takie "pierdółki" znajdziesz w dowolnym kursie C , niekoniecznie dla mikrokontrolerów. A _BV(n) to makro - oznacza to samo, co (1<<n) . Pozdrawiam, Daniel
Cześć, pracuję nad plikiem Excel, w którym potrzebuję połączyć teksty. Próbowałam rozwiązać to za pomocą dwóch warunków JEŻELI. Pierwszy warunek JEŻELI (AD4""; AD3&": "&...) sprawdza, czy komórka AD4 nie jest pusta. Jeśli nie jest pusta, to łączy zawartość komórki AD3, dwukropek i spację. Drugi warunek JEŻELI (AD4""; AD4&", "; "") sprawdza, czy komórka...
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Dziekuję bardzo za odpowiedź, makro prawie działa tak jak chciałem. Ma tylko jeden problem łączy dane w wiersze które nie powinien. Dla przykładu pierwszy wiersz w Arkuszu2 powinien mieć dane od A3:A18 z Arkusza1 później drugi wiersz w Arkuszu2 powinien mieć dane od A20:A22. Punktem który ma definiować kolejne wiersze jest pusta komórka
W 'Workbook_BeforeClose' kopiujesz zakres, otwierasz 'główny', określasz pierwszy pusty wiersz 'Cells(Rows.Count, "A").End(xlUp).Row + 1', wklejasz, 'Me.Save'.
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...
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...
Sprawa jest bardziej skomplikowana niż się na pierwszy rzut oka wydaje, bo Target.Value w zdarzeniu Change będzie też przyjmowało puste wartości (przy czyszczeniu/usuwaniu komórki), a także może być zakresem Range() np. przy kopiuj - wklej do kilku komórek (podobnie przy czyszczeniu zakresu komórek), przez co makro będzie się wywalać. Trzeba ew. je...
Witaj, Nie mam pomysłu na formułę, mam natomiast pomysł na proste makro, które mniej więcej robi to, co chcesz. Nie jestem najlepszym programistą VBA, ale w sumie na pierwszy rzut oka działa. [syntax=VB]Sub Makro1() ' ' Makro1 Makro ' Makro zarejestrowane 2011-04-16, autor Darek ' ' Kolumna A od wiersza 2 w dół zawiera działania ' W kolumnie B będą...
Dlaczego myslisz, ze wklejenie makra w jego opisie odniesie jakis skutek? Opis zostaw pusty, dodaj makro, nastepnie wybierz wyswietl makra -> edycja i dopiero tam wklejasz kod.
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Jeżeli umiesz wpisywać dane z formularza, co zakładam, skoro gdy makro będzie tworzyć arkusz to przydzieli mu nazwe z formularza(to potrafie akurat zrobić ) to problemem może będzie znalezienie ostatniego wiersza. Opcja bardzo prosta Dim PierwszyPusty As Long PierwszyPusty = Range("A1").End(xlDown).Row + 1 Pod PierwszyPusty masz indeks pierwszego pustego...
Żebyśmy się zrozumieli. Nie wiele potrafię, to jest fakt niezaprzeczalny :) Poza tym makro czyszczące dane z bloku pierwszego jest celowo przypisane tylko do pierwszego bloku ponieważ: Tych bloków/tabel w praktyce będzie wiele.. 20, nawet 40. Czyszczenie każdego z nich byłoby karkołomnym. W rzeczywistości działa to tak: Wypełniam pierwszy blok danymi,...
Dziękuje JRV - Twój sposób również zadziałał, ale ostatecznie skorzystałem z tego, że makro otwiera pustą prezentację z utworzonym już wzorcem dokładnie takim jaki mnie interesuje, a dodawanie kolejnych slajdów udało mi się rozwiązać w taki sposób: [syntax=vbscript] PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1, ppLayoutTitleOnly...
Cześć. Można próbować tak: [syntax=vbnet]Sub Makro1() Const oc1 = 1 ' wyjście do kolumny 1 Const oc2 = 3 ' wyjscie do kolumny 3 Const wks = "Sheet2" ' arkusz wyjsciowy ' Sheets(wks).Cells.Delete ' mozna odkomentowac aby czyscic caly arkusz przed wykonaniem makro Dim x, r, c As Integer r = 2 c = 2 x = 1 Do While Cells(r, 1).Value <> "" Do While...
Witam, wiem że był podobny temat, jednak tamten mi nie pomógł a ciężko znaleźć jakiekolwiek informacje w internecie. Od kilku dni męczę się z tym kodem, chciałbym aby po kliknięciu przycisku dodawał się nowy arkusz z nazwą pierwszego + kolejny numer po prawej stronie według kolejności, mam makro tworzące kolejny arkusz, lecz pusty oraz mam makro kopiujące...
Funkcja wyskakuje ponieważ zakresem jest cała kolumna ( range(A:A) ), a u Pana pierwszy wiersz jest pusty więc od razu jest Exit For. Jeśli nagłówek przesunie Pan o oczko w górę lub określi zakres np A3:A3000 powinno pójść :)
Cześć, oglądam tutorialu o VBA, próbuje coś napisać, ale programowanie zawsze mnie przerastało. Proszę o pomoc przy stworzeniu makro. Posiadam plik Excel z 6 arkuszami (nazwy od A do F). W każdym z arkuszy 3 górne wiersze są zajęte przez nagłówki kolumn (dane zaczynają się od 4 wiersza). Chciałbym aby makro w pierwszej kolejności czyściło arkusz A w...
Tak jak adamas_nt pisał pewnie podajesz w b2 bez "\" (więc dir nie sprawdzi katalog i plik pusty) [syntax=vbscript] Sub Krok1_Tworzenie_bazy() 'Import danych tekstowych i stworzenie bazy Dim Katalog As String 'wskazany przez użytkownika katalog, w którym znajdują się pliki tekstowe Dim Plik As String 'nazwa wczytywanego pliku tekstowego Dim Sciezka...
Z przedstawionego teraz opisu wygląda, że Tobie nie jest potrzebne kryterium filtrowania, a wynik filtrowania - to znaczy czy wszystkie komórki w wyniku filtrowania są jednakowe, czy są różne. Jeśli jest tak w istocie, to możesz spróbować takiego makra: [syntax=vbscript]Sub Wart_zakresu() Dim zakres As Range, rws As Long, wynik Set zakres = Range("A1").CurrentRegion.Columns(1)...
Witam, jako początkujący w VBA zaciąłem się nad zagadnieniem jak skopiować dane z kilku zakresów w jednym arkuszu do drugiego arkusza w momencie wyboru i wskazania konkretnej komórki. Mam arkusz formularza, z którego chcę uruchamiając makro, otworzyć arkusz rejestru i bez przeszukiwania pierwszego wolnego wiersza wskazać dowolną zaznaczoną przez siebie...
Hmm a jeśli wykorzystałam poprzednie makro, które napisałam, które wstawia dodatkowy wiersz jeśli suma>20 i odwołuje się do niego. Natomiest nowe makro ma wyszukiwac pustego wiersza i wklejać do nowo otwartego pliku zakres 1:pusty wiersz do określonej zakłądki AERO. Mam coś takiego, ale wyrzuca mnie(po wstawieniu Breakpointu) w odwołaniu do otwarcia...
Witam, Próbuję napisać swoje pierwsze MAKRO w VBA i ugrzązłem w połowie pracy. Dlatego też proszę o pomoc w celu naprowadzenia na rozwiązanie problemu. Celem programu jest przetwarzanie danych z jednego skoroszytu i zapisywanie ich w drugim. Na dane składają się uszeregowane w interwałach miesięcznych dane spółek notowanych na GPW z uwzględnieniem kryterium...
Tak tez probowalem,ale Jak w komorce zaznacze archiwizuj wiersz i ten wiersz zaznaczam, wycinam, w drugim arkuszu znajduje pierwszy wolny wiersz i wklejam. Super tylko, ze jak zrobic ,by wycial ten z zaznaczona komorka i znalazl pierwszy wolny wiersz. W tym drugim arkuszu. By tam wkleic. Ok probowalem makro zrobic nawet na zasadzie, by w tym drugim...
Doprecyzujmy: pismo z urzędu jest zwykle na papierze, czy chcesz to zamienić na tekst w Wordzie? Jeżeli tak to temat jest bardzo trudny, są różne kulawe narzędzia (w samym VBA nie słyszałem), ale nie wiem czy wogóle da sie to zrobić. Jeżeli już mamy tekst to trzeba określić w jaki sposób znajdziemy każdy element, który nas interesuje. Jeżeli przy tym...
Niestety nie mogę zobaczyć Twojego kodu (służbowy komputer - nie wolno nic pobierać), ale schemat na wyszukanie numeru pierwszego wolnego wiersza jest taki: [syntax=vbscript] Dim Y as Long Y = Cells(Rows.Count, "A").End(xlUp).Row+1 [/syntax] Jeżeli chodzi o sprawdzenie czy Range jest pusty to można użyć np. WorksheetFunction.CountA. Jest mnóstwo podpowiedzi...
Oki, tylko że jeśli postawisz kursor w danej tabeli, to masz już z autoamtu przygotowany pusty wiersz do wprowadzania danych, tak działa lista-tabela. 912568 1. Czy chodzi ci zatem o to, żeby prócz tego wiersza z gwiazdką, makro wstawiało dodatkowy pusty wiersz, jako "kolejny" (wtedy będą dwa puste, w tym jeden z gwiazdką) ? 2. Czy wystarczy może tylko,...
Przepraszam, tak wyraziłem swoją myśl mało precyzyjnie. W kolumnie B od wiersza B1 do wiersza od B2 do B2000 znajdują sie dane. Są w tym własnie wierszu są one wprowadzone w sposób ciągły i nie zawierają pustych komórek. Pusta komórka to koniec danych do zliczania. W pliku zamieściłem linie oddzielającą dane raportowe od podsumowań - sugeruja one wiersz...
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
Na formułach można spróbować to zrobić tak Zakładając, że mamy zajęte kolumny A oraz B - wstawić pusty wiersz pustą kolumnę między nie (w ten sposób kolumna B przejdzie do C). Zakładam, że dane są od pierwszego wiersza. kolumna B1 będzie zawierać formułę =C1 Kolumna B2 będzie zawierać formułę =JEŻELI(CZY.PUSTA(C2);B1;C2) od B2 można wszystko rozciągnąć...
Tego załącznika nie da się odczytać. Jest uszkodzony. Zresztą już jego wielkość 256 bajtów wskazuje, że jest praktycznie pusty.
Błąd pojawia się na linijce Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats... Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Wtedy w arkuszu DANE OD PLANISTY przechodzi na ostatni wiersz arkusza pomimo tego że wcześniej zaznaczył od wiersza H9 w dół uzupełnione wiersze po czym zrobił to z kolumnami w lewo jednak...
Dzień dobry, Jeśli to ma być zrobione jednorazowo, można użyć Filtra zaawansowanego, jak w pliku przykładowym. Danym trzeba nadać nagłówek, potem taki sam musi być w zakresie kryterium. Jako kryterium wpisać gwiazdkę. Wybrać opcję filtrowania Kopiuj w inne miejsce. Jeśli lista nie zawiera duplikatów, można też użyć funkcjonalności Usuń duplikaty. Należy...
Nie wykrzacza się, ale nic nie kopiuje. Arkusz pozostaje pusty...
Witam, czy jest jakiś sposób aby w ThisWorksbook nowo tworzonego arkusza za pomocą VBA umieścić wpis określonego Makra (bo normalnie ThisWorkbook jest pusty) ? Pozdrawiam: keszybz
Trochę dużo tych możliwości. Wszystko będzie dobrze jeśli Nr zamówień w Arkusz1 będą kolejnymi liczbami. Formuły w kolumnach E, F zostaw lub przenieś do Arkusz3, jeśli przeszkadzają. Jeśli Arkusz1 wypełniany/uzupełniany jest makrem, to należy je (wg mnie) zmodyfikować, aby dane układały się w kolejności. Przy okazji można dopisać linijkę z następnym...
Nie znam przykładów Freddiego ale poszukam. Dzięki za wyjaśnienie ogólnie wolę makra chyba że rejestr jest pusty w miarę.
Mam trzy arkusze, w których rozliczam stany magazynwe. Pierwszy to dokument, gdzie w zależności od wyboru dokumentu PZ, bądź WZ zapisuję stany magazynowe do arkusza rejestr (wydania, bądź przyjęcia). Na podstawie drugiego tworzę rejestr wydań, i wszelakiego rodzaju bilanse. Chciałbym aby z arkusza dokument kopiowały mi się dane do arkusza rejestr (aby...
Przedstawione makro kopiuje drugi wiersz arkusza "Schell" z każdego pliku umieszczonego w podrzędnym katalogu o nazwie "xls" do pierwszego pustego wiersza arkusza o indeksie 1. Nie można skopiować pliku do pliku. Natomiast można skopiować całe arkusze lub wyznaczone zakresy poszczególnych arkuszy. Opisz stosując właściwe nazwy obiektów. Lista plików...
Witam wszystkich forumowiczów Mam problem z prostym makrem, mianowicie potrzebuję aby w każdym arkuszu makro automatycznie wstawiało pierwsza pustą kolumnę. W moim makrze wstawiane jest tyle kolumn ile arkuszy w zeszycie i to tylko w akurat podświetlonym arkuszu. Wiem, że mógłbym to zrobić operacją na wielu arkuszach ale niestety potrzebny jest mi automat....
No sumy częściowe jak najbardziej mi pozwolą posortować i zsumować odpowiednią kolumnę. Chyba nie dość dokładnie opisałem w czym rzecz ;-) Suma, 30 (pusty wiersz) Miałem na myśli makro, które znajdzie wiersz podsumowujący i wstawi poniżej pusty wiersz (lub 2, 3 wiersze ...) poniżej. Dokładniej, muszę popracować w dwóch, trzech wierszach poniżej nad...
Witam! Potrzebuję makro, które w momencie gdy w pliku "plik w którym ma być makro do wstawiania" w kolumnie J (w przedziale J2:J23) znajdzie się wartość inna niż pusta komórka skopiuję dla "użytego" wiersza dane z zakresu kolumn K:Q do arkusza o nazwie identycznej z wartością w komórce J, do pierwszego wolnego wiersza w kolumnie B w pliku który ma stałą...
Heja, Potrzebuje makro-automat który: (...)54467664.png Makro miałoby w kolumnie B o zakresie do ostatniej komórki z wartością, w tablekach jak na obraku, sprawdzić czy w tabelce jest puste pole, jeżeli tak to przenosi wartość z B2 na B1 a B3 na B2, jeżeli w tabelce B4 i B5 nie ma pustych pól to pójdzie dalej, analogicznie jak do pierwszego przykładu...
Witam. Tworzę duże (jak na swoje możliwości) makro i niestety napotkałem na parę trudności. Mianowicie: Ustawiam się na pierwszej pustej komórce w danej kolumnie i chciałbym wypełnić tą kolumnę poniższą formułą do pierwszego pustego wiersza (tzn. jeśli nic nie ma w kolumnie A, B, C etc.) Niestety opcja z "H2:H" nie jest tutaj skuteczna, gdyż ten zakres...
Nie wiem jak napisać pętlę, która będzie potrafiła kopiować tylko niepuste komórki ze wskazanej kolumny. Załóżmy, że w Arkuszu1 w kolumnie A jest 2000 komórek, z czego dane znajdują się tylko w 500 z pustymi w różnych miejscach pomiędzy. Chciałbym napisać makro, które utworzy nowy plik we wskazanej lokalizacji (stałej - U:\Lukasz\Raporty\) o zmiennej...
Cześć. Posiadam dwie takie same tabele w dwóch arkuszach (jeden dokument), w pierwszym ma tylko jeden wiersz w którym wpisuje dane np. data, imię, nazwisko. I potrzebuje aby kopiowało się w pierwszy wolny wiersz do drugiej tabeli. Taka baza danych, którą uzupełniam przez tabele w pierwszym arkuszu. Wydaje się łatwe, ale już trochę siedzę i nie potrafię...
Na chwilę obecną mam VBA, które działa w następujący sposób: Jeśli w kolumnie "6" w arkuszu1 zaznaczę "x" to kopiuje odpowiednie komórki do pierwszego wolnego wiersza w innym arkuszu. Aby odwrócić działanie tego makra, dobrze byłoby wiedzieć gdzie te "odpowiednie komórki" lądują w 2-gim arkuszu. No wiesz, żeby nie biegać i szukać po wszystkich szufladach......
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...
Koledzy posiadam takie makro kopiujące z plików do jednego arkusza. Wszystko działa, problem polega na tym że zaszyte mam gdzie makro ma zaczynać kopiowanie i zazwyczaj kończy na pierwszy wolnym polu. Z tego powodu czasem omija dane jak komórka jest pusta. Czy ktoś mógłby zasugerować jak powinno wyglądać makro kopiujące cały arkusz? Option Explicit...
Cześć, widziałam no forum już https://www.elektroda.pl/rtvforum/topic2... podobny temat, ale próbuję zastosować UpdateRemoteReferences = False i niestety nie działa. [syntax=text] Sub Kopiowanie_z_pliku() Dim Dane As Variant Dim FileName As String Dane = Application.GetOpenFilename( _ FileFilter:="Microsoft Excel Workbooks, *.xls; *.xlsx; *.xlsm",...
Działa. Dzięki. Robiłem coś takiego, ale w zły sposób, bo włączałem nagrywanie, minimalizowałem i tworzyłem nowy plik na pulpicie. W makro bylo tylko "minimalizacja" A trzeba wybrać menu plik, nowy "pusty skoroszyt"
Dzięki wielkie. Imię dodaje tylko do pierwszego wiersza z danego skoroszytu. Ale najważniejsza jest prędkość. Zrobię testy i zaprezentuje wyniki:) Czas na wyniki testu:ść Ilość plików: 142 stare makro: 1. wczytywanie z formularzy: 35sek 2. Dodawanie: 1min 2sek Nowe makro: 1. wczytanie plus dodanie 20sek :D Podsumowanie: Podczas używania starego makra...
Witam, to mój pierwszy post na forum elektroda. Dopiero zaczynam z VBA i mam mały problem. Problem do rozwiązania wygląda tak: Kolumna Wiersza 1 aaa 2 aaa 3 aaa 4 5 bbb 6 bbb 7 bbb 8 9 c n+1 W arkuszu mam taką serię w kolumnie A. Wartość każdej komórki nie ma żadnego znaczenia. Chciałbym aby makro sprawdzało czy komórka jest pusta i jeśli jest pusta...
A dlaczego warunkujesz działanie działanie Textboxów w Arkuszu1 od stanu filtrowania w Arkuszu2 (który jest całkowicie pusty) ? Popraw makro w zapisie "Arkusz1" zamiast "Arkusz2" i będzie działać :D
Tam w tej komórce z FZ występuje numeracja pierwsze Fz to FZ1 ale nie wiem czy numer tutaj ma znaczenie. Ma o tyle, że do tej pory sprawdzałem, czy wartość komórki = FZ, teraz trzeba sprawdzić, czy w łańcuchu znaków, będącym wartością komórki, znajduje się fragment FZ. Dodatkowo w komórkach A pod fz znajdują się głównie cyfry bądź puste pole więc może...
Hej! Po pierwsze bardzo dziękuję że odpisales bo juz mialem wywalić ten sprzet na śmietnik ze zlosci. pisalem nawet do producenta wyswietlacza ale jakas firma w japoni i chyba nie odpisuja po angielsku. Rozumiem ze po podlaczeniu pinu 6,7,8,9 należało by podłączyc pokolei 3 składowe RGB np z dvd, poszczegolne składowe mozna wyciagnac chyba ze złącza...
To jest NIE-SA-MO-WI-TE! Działa! Excel/programowanie jest przepotężne. Robiłem ten "kod" za pomocą nagrywania makro oraz dodawałem coś od siebie, żeby to działało automatycznie. Asem w kodowaniu VBA nie jestem, ale jeżeli mój działał, to działał, a że działał tak sobie, to zwróciłem się o pomoc do (jak widać) odpowiedniej grupy użytkowników. (^_^)...
Witam. W przypadku kwerendy więcej niż 2 linie, zaproponować, co następuje: 1. Makro, który odświeża dane pierwotnie ociera wszystkich wierszy w kwerendzie. 2. Makro organizujące dane okresowo sprawdza, czy drugi wiersz jest pusty. 3. Gdy kwerenda jest przygotowany, makro będzie kontynuować prace.
Obecnie przedstawię poczynione przeze mnie próby. Na marginesie - wydaje mi się , że marek033 oraz adams_nt są na urlopie (i to całkiem słusznie) W przedstawionej tabeli w komórkach znajdują się formuły (= = jeżeli( - co prawda komórki w tabeli mam puste (w których miesiącach nie wpłacono) - ale (uwaga), makro ich nie traktuje jako puste. Jedynie te...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Witam Tabela z uprawami - po wprowadzeniu działek do arkusza (kolumna C i D) okazuje się ze na niektórych polach jest więcej niż jedna uprawa. Wtedy wstawiam wiersz poniżej danej działki i wpisuję kolejne uprawy na danej działce (tylko kolumna E, G, F, natomiast C i D zostają puste w tym wypadku). Podobnie z usuwaniem zbędnych wierszy w danej działce....
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...
Witam eksperci. Moja przygoda z vba zaczęła się jakiś czas temu, ale nadal raczkuję w tym temacie i wciąż natrafiam na przeszkody. Proszę o pomoc w tym temacie-mam tabelkę: Load NumberPartNumber 111111111aaaadddrrrr 2222222sssskkkk 33333wwww 44444444mmmmaaaaa 5555555xxxxccccvvvvmmm 666666ssssjjjjoooo 77777777bbbbbgggg load to kolumna A part-B Numer...
witam :) Próbuje napisać mały programik jednak cały czas mam jakieś błędy, a na niektóre rozwiązania brak mi pomysłów. To mój pierwszy program, dotychczasowe wypociny opieram na tym co wyczytałem w internecie. Chciałbym stworzyć makro w Excelu, miałby to być wykaz uwzględniający wszystkie informacje z pozostałych zakładek (które edytowane są ręcznie)....
Interesujace... Otwórz jeszcze okienko "Makra" i zobacz czy jest tam pusto. Druga sprawa, po próbie skopiowania tej całej tabelki wciśnij klawisze Win+V i zobacz czy zawartość tego schowka jest taka sama jak schowka Office. Jeśli nie masz włączonej historii w schowku Windows to zrób to najpierw: Ustawienia (systemu) -> Schowek -> Historia schowka https://obrazki.elektroda.pl/4632169700_...
Cześć, mam makro, które wkleja mi konkretne wartości z różnych kolumn z pliku Dane do nowego pliku. Niestety nie umiem przerobić tego makra tak, żeby otwierać ten plik z którego wklejam tylko raz. Bo teraz za każdym razem przy kopiowaniu z kolumny A muszę otworzyć plik, a potem jak kopiuję z kolumny C znowu otwiera mi się okienko w którym muszę wybrać...
Sprawdź wartość zmiennej plik przed pętlą. Jeśli pusta, to nieprawidłowy lub pusty folder...
Witajcie, mam taki problem: Tworzę sobie aplikację do awizowania gości, żeby było wiadomo kto wjeżdża do firmy, kto w niej jest i kto jest za nią odpowiedzialny itp. Ogólnie 8 różnych danych, które zapisują się w arkuszach różnych. Pierwsze pole na moim userformie to combobox, w którym wybierasz firmę o ile jest na liście. Arkusz jest tak stworzony,...
*adamas_nt dzieki, sprawdze co do pkt.2 cos mam, ale bede mial prosbe o weryfikacje oraz pomoc w dodaniu kilku rzeczy. mam takie makro: Sub Arkusz3_Przycisk1_Kliknięcie() Dim LastRow As Long Range("B2:AI2").Se... Selection.Copy 'Sheets("Arkusz3").Sel... If WorksheetFunction.CountA(Cells) >...
Chcę uzyskać przeniesienie całych wierszy z Arkusza1 do Arkusza2 jeśli zostanie spełniony określony warunek. Jeśli w kolumnie stan pojawi się wartość "Zakończony" to całe wiersze mają być przeniesione do Arkusza2, natomiast w Arkuszu1 wykasowane. W załączniku plik Excel Cześć! Rozumiem, że chcesz, aby wiersze z Arkusza1, które spełniają określony warunek...
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Cześć! :) Mam taki problem: Mam plik Excela z listą osób: Liczba porządkowa (kolumna B), imię i nazwisko (kolumna C), potem miesiące (od stycznia do grudnia) i suma w kolumnie P. Chciałbym zrobić makro, za pomocą którego wyskoczy mi InputBox, w którym będę mógł dopisać na końcu listy nową osobę. Ponadto chciałbym, aby obok nazwiska tej osoby pojawiała...
Witam, Mam problem z makrem, które dzieli duży plik na zakładki, filtrując po nazwie miasta. Makro działa w pętli, pobierając nazwę miasta z tabeli, ale przerywa działanie, gdy w zestawieniu brakuje danego miasta. Jak zrobić, aby zapisało pustą zakładkę i przeszło do następnego rekordu w tabeli.
Witam wszystkich forumowiczów. Bardzo proszę o pomoc z prostym ale przerastającym moje (mam nadzieję, że niedługo) możliwości dotyczące tworzenie makr w VBA. Potrzebuję makra które po naciśnięciu dowolnego autokształtu "kopiuj" skopiowałoby wszystkie wiersze z pliku 1.xls do pliku 2.xls (wklejanie począwszy od pierwszego pustego wiersza w pliku 2.xls...
Witam ponownie - chciałam się spytać, czy dużym problemem jest przerobienie tego makra, aby wykonywał dokładnie tę samą czynność, ale dla arkusza, który ma 10 kolumn? To w zasadzie zupełnie inne podejście do działania takiego makro, więc łatwej przeróbki nie ma :) Spróbuj czegoś takiego: [syntax=vb] Sub Makro3() Range("A1").Select Range(Selection,...
Tak też uczyniłem. Niestety nic z tego. Działa tylko pierwsze pole wyświetlacza (1,1) i zmieniają się na przemiennie dwa znaki - czarny kwadracik i spacja... Ja się nie dziwię że nie działa :( Przy inicjacji LCD używa się opóźnień , a w kodzie biblioteki w komentarzu stoi JAK BYK: Ldi R30, 28 Ldi R31, 78 Rcall _lcd_delay ; 20 ms delay at 4 MHz ; ......
Witam Próbuje stworzyć makro które będzie kopiowało dane z excela do pliku csv a następnie wysyłało go na serwer ftp, ale że jestem zielony z VBA idzie mi to bardzo opornie, proszę o pomoc. O co dokładnie chodzi? Plik źródłowy wygląda tak: [syntax=tex] A B C D E F 1 Header Date Hour inflow outflow other 2 3 Name1 2016-03-03 06:00 20,0 1,0 text1 4 Name2...
Witaj. Można to zrobić makrem, które zadziała mniej więcej w ten sposób: Posortować kontenery grupy B po miastach rosnąco oraz po wagach malejąco Posortować kontenery grupy A po miastach rosnąco oraz po wagach rosnąco Przenieść pierwszy dostępny kontener z listy źródłowej do docelowej. Jeśli waży więcej niż 700kg - to kończy wpis, wybierz następny kontener....
Dzień dobry, Zawracam się z prośbą o pomoc. Starałem się przeszukać forum, niestety nie znalazłem pomocy dla rozwiązania problemu. Chciałbym utworzyć makro, które znacznie usprawniłoby moją pracę. Mianowicie, (jak w załączonym pliku) potrzebowałbym kodu, który kopiowałby po kolei każdą komórkę z kolumny "A" z arkusza#2 i wklejał ją w kolumnie "C" 14...
A czy makro nie może być przerwane w momencie kiedy napotka pierwszą pustą komórkę w kolumnie A? Na ten moment makro długo działa chyba z uwagi na to czyszczenie kolumny B. W moich danych nie ma pomiędzy pustych komórek, tak jak w twoim pliku. Np. wklejam do pliku 100 wierszy (ciągiem, nie ma pustych pomiędzy) i te 100 ma ponumerować. Co więcej: Za...
Nie wiem, ale z Twojego pliku widać, że można tutaj zastosować bardzo prosty trick rozwiązujący ten problem - wprowadzenie na początku tabeli dodatkowej kolumny z identyfikatorem (numerem) trasy Umożliwi to dokładne wychwycenie wszystkich wierszy z określonym identyfikatorem Powiem szczerze nawet o tym myślałem, ale po pierwsze arkusz generowany jest...
Dzięki wielkie za pomoc. Zrobiłem już kopiowanie i udało mi się zapisać parę plików pod rząd natomiast teraz zestawiłem wszystko w jednym makrze i wyskakuje mi błąd. Tworzy mi się nowy arkusz ale o nazwie "Zeszytx" za każdym razem jak puszcze makro to x jest zwiększone o 1. Moim celem było aby plik zapisywał się pod nazwa z komórki P18. Po kliknięci...
Można to zrobić tak jak napisałeś, albo bardziej "łopatologicznie" - użyć tego co masz i na wynikach (od drugiego) użyć funkcji TRIM (żeby pozbyć się spacji na początku) i dokleić kropkę na końcu - mniej elegancko, ale dużo prościej. Przy tym rozwiązaniu trzeba też pominąć ostatni element w tablicy (pusty ciąg). Które rozwiązanie wybierasz?
Twój pomysł nie będę się wtrącał - ważne że sam myślisz. Kłopot jest w tym że po znalezieniu ciągu twoje makro szuka dalej więc pobiera pusty ciąg i znajduje ten pusty ciąg w kolumnie D więc zapełnia go danymi które notabene też sa puste. Trzeba by było przerwać makro (lub przeskoczyc do końca) jeżeli nastąpiło znalezienie jakiejś danej. np po każdym...
Bardzo dziękuję wszystkim za zainteresowanie tematem. Być może, ale to tylko spekulacja, ponieważ w momencie zakończenia procedury arkusz z którego była wywoływana jest już ukryty, to program może mieć problem z zakończeniem procedury. No właśnie jest dokładnie na odwrót. Przy odkrytych arkuszach widać, że coś jest nie tak Można spróbować wykonywać...
(at)ElektrodaBot /* Program realizujący obliczanie i wysłanie przez moduł HC-05 (Bluetooth z interfejsem SPP, czyli RS-232) wyniku funkcji kwadratowej y = 0.3187x^2 + 2x - 7 na podstawie x odebranego wcześniej także za pomocą HC-05. Szczegóły: http://mikrokontrolery.blogspot.com/...
Ktoś mógłby pomóc? Ok, to tylko wyjaśnij: - skąd będziesz kopiował ? czy na pewno z tego arkusza Raport gdzie są przyciski ? - gdzie chcesz wklejać te dane ? gdzie jest słownik wiążący używane kody i zupełnie inne nazwy arkuszy ? skąd makro :D ma wiedzieć gdzie Ty masz ochotę wkleić aktualne dane ? - jakie jeszcze niespodzianki przygotowałeś dla osób...
makro pierwszy pusta makro kopiować pusty makro pusty komórka
hasło karty pamieci pokrywa pompy odpływowej otwieranie centralnego zamka awaryjne
Volkswagen Golf Plus 5: Immobilizer aktywny i niedziałające przyciski na kierownicy Wymiana czujnika temperatury paliwa Hyundai i30 1.4 CRDi