Szukam rozwiązania jak sobie z tym poradzić Na podstawie Twojego przykładowego pliku (tego drugiego :D z nagłówkami ) widzę, że we wszystkich wypadkach występowania błędu #N/D konieczne jest tylko zdublowanie pozycji z kontami "5". Jeśli to było by tylko tak - to można wykorzystać do korekty proste makro jak w załączonym pliku. Po uzupełnieniu pliku...
Naprawdę nie ma żadnej możliwości by sformułować kod, który skopiuje mi z folderu np. 5 najnowszych plików ? Kopia 5 najnowszych (bat). [syntax=dos](at)echo off setlocal EnableDelayedExpansion set "zrodlo=C:\pliki" set "cel=C:\pliki2" for /f %%a in ('dir %zrodlo% /b /s /o-d') do ( set /a licz+=1 if !licz! leq 5 copy %%a %cel%)[/syntax]
Teraz jasne jest.
Obojętnie który wiersz, byle był zaznaczony od początku (czyli od kolumny A).
Zerknij do załącznika. Kod zoptymalizowałem przy okazji... Zrobiłem przykładowe kopiowanie z trzech kolumn, aby było łatwo połapać się przy modyfikacji.
Jest błąd, kilka minut Dodano po 6 Przepraszam za pomyłkę. Stałe. Pan będzie zastąpić innym 'c.Column <> 12 Then flag ' na 'c.Column < 11 Then flag '
No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...
Witaj Zamiast tego Rows(1).Copy Destination:=Rows(ost_wiersz) wpisz Rows(ost_wiersz) = Rows(1).Value Dodano po 2 z wiersza „A” "A" to jest kolumna
Zamień Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("wiersz") = Target.Row End Sub na Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("N1") = Target.Row End Sub Usuń nazwy 'wiersz'. Odwołania w formułach =INDEKS('ZB1'!A:A;wiersz) Zamień na =INDEKS('ZB1'!A:A;'ZB1'!N1)....
Odwołaj się w pętli do arkusza źródłowego/docelowego przez Worksheets("nazwa_arkusza"), a po kropce do konkretnej komórki: albo w postaci .Range("E" & i) albo w postaci .Cells(i, 5), gdzie i - nr wiersza źródła (ew. jeżeli zrobisz w pętli for each c in ...., to możęsz użyć c.Row). Do tego druga zmienna np. j dla wiersza arkusza-celu, czyli: j = 1 for...
Ponieważ w Outlooku nie pracował, bo go nie używają. Ale wiem, że może mieć także makra i uruchamiania, może automatycznie zapisać plik w odpowiedniej lokalizacji i również rozpakowac go.
Dwie wątpliwości: 1) Czy te formuły będą takie jak w przykładzie tzn. będą się odwoływać tylko do danych z tego samego wiersza? 2) Czy to ma być kopia z zaznaczenia (zaznaczam x wierszy i to kopiuję, tylko dokąd? jak określić miejsce docelowe?), czy kopia wszystkiego co jest (do ostatniego wypełnionego wiersza w określonej kolumnie), wtedy miejsce docelowe...
Mam jednak pytanie jak to się dzieje że wkleja to w odpowiednie miejsce? Cały mechanizm makra polega na przechodzeniu krokowym (założyłem wstępnie od wiersza 1 do 10 - ale to można odpowiednio dostosować do potrzeb) wzdłuż kolumn arkusza 1 i porównywaniu wartości z odpowiednimi komórkami arkusza 2 :D Jeśli makro napotka w którymś wierszu inne wartości...
Robiłem kiedyś na swoje potrzeby taki pliczek, udostępniam go w załączniku. Zakłada on, że wszystkie pliki mają jednakowy układ i format treści. Kopiuje całe wiersze do zakładki "Wyniki". W żółtych polach podaje mu się dane do pracy, takie jak: - ścieżka do katalogu z plikami źródłowymi, - rozszerzenie plików które mają zostać wyszukane w tym katalogu,...
Czy wiesz, że w "Arkusz2" prawdopodobnie w wyniku kopiowania, wklejania a następnie usuwania wierszy jest ponad 500 przycisków o nazwie "CommandButton1"? Kiedyś był już podobny temat poruszający ten problem. Kopiowanie i wstawianie wiersza z przyciskiem działa OK, ale usunięcie wierszy powoduje układanie się obiektów w stosik, z których widoczny jest...
Proponuję zrobić przykładowy plik z danymi i dokładny opis czego oczekujesz od tego makra :?: Czy w gotowym arkuszu ma sprawdzić kolumnę A i w zależności od kryterium tekstowego skopiować określone wiersze do drugiego arkusza :?: Czy też po zmianie wartości w kolumnie A na określony tekst, kopiować ten wiersz do drugiego arkusza :D :?: A co wtedy ma...
Nie w każdym wierszy w arkuszu 1 będzie wduszony przycisk add Hmm.. Oznacza to, że w każdym wierszy jest przycisk ? te wiersze przy których zostanie wpisane hasło 'add' Oznacza to, że nie ma przyciskow... makro należy znaleźć hasło, czy jest w określonej kolumnie? Dodano po 1 Najlepiej dołączyć przykładowy plik
Dlaczego zmienna 'l' jest nadawana z wartości ostatniego wiersza (+1) z pliku 'b', a nie z 'a'?[/quote]
kopiowanie warunkowe wierszy Excel
Witam. Chciałbym prosić o pomoc w stworzeniu formuły, która będzie kopiowała wiersze z arkusza bazy do innych arkuszy. Kryterium kopiowania musi byc wartość w kolumnie A (gniazdo główne). Czyli jeżeli w kolumnie A jest Flowpack 1 to kopiuj wszystkie wiersze Flowpack 1 do Arkusza Flowpack 1. Jeżeli w kolumnie A jest Flowpack 2 to kopiuj wszystkie wiersze...
[syntax=vbscript]Sub DodajDoBazy() Warunek = 123 owv = Cells(Rows.Count, "V").End(xlUp).Row nwa = Cells(Rows.Count, "A").End(xlUp).Row + 1 For x = 1 To owv If Cells(x, 22) = Warunek Then Range(Cells(x, 22), Cells(x, 26)).Copy Range("A" & nwa) nwa = nwa + 1 End If Next End Sub [/syntax]
Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS
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))...
Chciałbym napisać makro No właśnie. Jeśli wiesz jak zajmie Ci to 5 minut. Chcesz się dowiedzieć, czy dostać gotowca (w takim przypadku wrzuć plik z przykładem)? Po mojemu trzeba zadziałać przy pomocy dwóch, zagnieżdżonych pętli, znając ilość kolumn (End(xltoright).column), Nr pierwszego wiersza z nazwiskiem i Nr pierwszego wiersza w arkuszu docelowym....
Wyszło świetnie. Dziękuję za pomoc. pomogło
Witam Mam taki problem posiadam arkusz1 i chciałbym za pomocą przycisku skopiować wiersz 1 do arkusza2 pod ostatni wypełniony wiersz. Problem w załączniku. Dzięki za pomoc
A to wyłączyli wszystkie wyszukiwarki - google i naszą "forumową" :?: :cunning: Ja sam ostatnio wrzucałem ze dwa makra wykorzystujące kopiowanie wyfiltrowanych danych: - https://www.elektroda.pl/rtvforum/viewto... ; https://www.elektroda.pl/rtvforum/viewto... Jak masz dodatkowe wymagania odnośnie daty...
Tak "skok" to wiersz()*3 (funkcja wiersz() zwraca nr wiersza w której jest wpisana ta funkcja) w związku z powyższym: -3 i -4 to "korekta" początku Jeżeli zmienisz komórki z danymi i komórki z "wynikami" może być konieczność skorygowania właśnie tego początku i ewentualnie kolumny w funkcji adres.
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty przygotowujesz dla Waszych klientów , jeśli więcej...
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...
Czyli typowa gospodarka magazynowa? W załączniku przykład wykorzystania 'dialog box'. W zasadzie jest wszystko o czym piszesz: -wyszukiwarka - wpisz w Combobox (nie wybieraj z listy) początek frazy, Np "ś" -dopisywanie kolejnych wierszy w różnych arkuszach (tu wz, pz) Oczywiście chodzi o formę, nie treść. P.S. 1. Pojęcia nie mam skąd mam ten plik. Najprawdopodobniej...
Przetestuj poniższy kod. Założenia: - dane wejściowe są analizowane od drugiego wiersza kolumny A - dane wyjściowe będą od pierwszego wiersza kolumny C - szukamy ciągu FKxxxx (gdzie: xxxx - cyfry) bez spacji. Jeżeli pomiędzy FK a cyframi wystąpi spacja to taki ciąg nie będzie brany pod uwagę. [syntax=vb]Sub kody_RegEXP() Dim lLstRw& Dim i& 'od...
W chwili gwałtownego wypięcia dysku uszkodziłeś system plików i nie koniecznie fizycznie dysk. Stąd problem z operacjami na jego niesprawnym systemie plików. W jaki sposób dokonywałeś sprawdzenia dysku za pomocą chkdsk? Uruchomiłeś tryb testowania z linii poleceń czy tylko to co zaproponował Windows? Powinieneś uruchomić wiersz poleceń i spróbować go...
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
Po złożeniu zamówienia w necie kumpel przepisuje teks na kartkę i mam zabawę wklepywania danych do excela. W excelu napisałbym mu makro ze skrótem klawiaturowym, ale z programowania jestem prawie zielony. Czy jest jakiś prosty sposób dodania do paska skrótów do aplikacji bądź skrótu klawiaturowego kopiującego zaznaczony tekst ze strony internetowej...
Mam problem .Chciałbym przekopiować zawartość z dysku z windowsem 98 ,lecz windows na moim współczesnym komputerze się nie odpala jedyne co mi zostało to kopiowanie przy pomocy wiersza poleceń . Chodzi mi tutaj o przekopiowanie całego dysku . Czy w wierszu poleceń są na to jakieś komendy?
Spróbuj kopiować w trybie edycji komórki (klawisz [F2], dwuklik), nie do arkusza.
Na tą chwilę nie bardzo wiem, jak to poprawić. A przecież specjalnie Ci podpowiadałem :D możesz łatwo uchwycić obszar do aktualnego czyszczenia :arrow: jako obiekt Selection :D tzn. trzeba to zrobić raczej tak :spoko: [syntax=vbscript]Sub dodaj() Dim ile_w As Long Dim kom As Range Application.ScreenUpdating = False With ThisWorkbook.Sheets(ar_kusz)...
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
[syntax=vbscript]Sub Kopiuj() Set a = Sheets("Arkusz1") owa = a.Cells(Rows.Count, "B").End(xlUp).Row Sheets("Arkusz3").Select ow = Cells(Rows.Count, "B").End(xlUp).Row y = 2 For x = 2 To ow s = Application.Match(Cells(x, 2), a.Range("B1:B" & owa), 0) If Not IsError(s) Then a.Rows(s).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub...
Chciałbym, aby w osobnym pliku pojawiła się lista wszystkich wierszy w których jedna z komórek tj. "pozostało do realizacji" jest większa od zera. Jeżeli te wszystkie pliki będą w jednym folderze :!: to takie zadanie (zestawienia danych lub ich aktualizacji :D ) może wykonać makro w załączonym pliku (uruchamiane skrótem ctrl+s ) z pliku zestaw.xlsm....
Aby "każdy następny wiersz będzie poszerzał zakres tej tabeli" można by go zapisywać w formacie (.xml) dane wiersza są zapisywane w pionie. (.xml) : <opis> dane_1 /<opis> <opis_a> dane_2 /<opis_a> (.xml) : <NrDomu>542</NrDomu> <NrLokalu>355</NrLokalu> <KodPocztowy>00-673</KodPocztow... <Miejscowosc>WARSZAWA</Miejscow...
Bez zbędnych selectów [syntax=vb]Sheets("Arkusz1").Range("G20"... Destination:=Sheets("Arkusz2").Range("G2...
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
wszystkie transakcje z tego miesiąca. If Month(kom)=Sheets("Raport").Cells(1, 3) Then
Cześć, Jestem początkujący w VBA, ale porwałem się, by przygotować skoroszyt obsługujący raporty kasowe i druk KP w szkole muzycznej. W załączonym pliku nie wiem jak napisać taki skrytp: W arkuszu "dane" wpisuję kwotę, którą za dany miesiąc wpłacił uczeń np. w komórce J8, i pozostawiam tę komórkę zaznaczoną. Uruchamiam makro, które przykleja do odpowiednich...
Mam nadzieję, że się zrozumieliśmy.
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
Witam, co ma być zmodyfikowane w procedurze VBA, aby zadziałała. Procedura ma zadziałać w całym arkuszu w momencie w następujący sposób: 1. Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9, to ma dodać jeszcze 8 wierszy. 2. Ma skopiować dane z wiersza powyżej. 3. W kolumnie G w pierwotnym wierszu jak i skopiowanych wierszach ma być cyfra...
Ćwiczyłem na tym Twoim skoroszycie i makro działało na wszystkich arkuszach. Uruchamiałem je z arkusza RAPORT i znajdował ulice w innych arkuszach, ale należałoby zamiast lWiersz dołożyć dodatkową zmienną sterującą pozycją wiersza w arkuszu RAPORT, bo wynik będzie rozstrzelony po wielu wierszach. Ale chyba sobie z tym poradzisz. Dzięki za punkty!
[syntax=vbscript]Sub AF() Sheets("A").Range("A4:R200").Clear For x = 2 To Sheets.Count For y = 4 To 300 If Sheets(x).Cells(y, "O") >= -30 Then nw = Sheets("A").Cells(Rows.Count, "O").End(xlUp).Row + 1 Sheets(x).Rows(y).Copy Sheets("A").Range("A" & nw) End If Next Next End Sub [/syntax]
Co do wszystkiego masz rację, ale uwierz mi naprawdę NIE DA się go klonować posektorowo i to na zewnętrznej maszynie. Nawet nie chodzi o to wolno tylko o to odczyt całkiem umiera i nie przechodzi dalej pomimo ignoracji błędów i wyłączenia ponowień. Odczyt powraca kiedy odepnę kontroler od zasilania i podłączę na nowo, ale tylko na chwilę. Zapytałem...
w tabeli znajdującej się w Arkuszu1 odnajdywany byłby wiersz zawierający "XYZ", a nastepnie wiersz ten byłby wstawiany do Arkusza2 w tych samych adresach komórek czasem wstawi w wiersz odpowiadający adresowi wiersza z źródłowego arkusza A więc w ten sam adres, czy do nowego wiersza? PS. Niestety funkcje się nie sprawdzą bo ja potrzebuje skopiować wartości,...
w Arkusz2 chciałbym skopiować otrzymane za pomocą funkcji wartości z kolumn L oraz P i wkleić je do kolumn AB:AC zaczynając od AB2 tyle razy ile wskazane jest w kolumnie R - przykład jak miałyby wyglądać dane po skopiowaniu na zdjęciu ponizej i w załączonym pliku. https://obrazki.elektroda.pl/9986617000_... Dane w kolumnach L i P są...
[syntax=vb] Sub SzukajCiagu() Dim x As Long, y As Long, z As Long, SzukaneSlowo As String x = 1 z = 1 Sheets("PrzeszukiwanyArkusz").Select While Cells(x, 1) <> "" y = 1 While Sheets("ListaSlow").Cells(y, 1) <> "" SzukaneSlowo = Sheets("ListaSlow").Cells(y, 1) If InStr(1, Cells(x, 5), SzukaneSlowo) > 0 Or InStr(1, Cells(x, 6), SzukaneSlowo)...
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
[syntax=vbscript]Sub Handlowcy() Sheets("Dane").Select ow = Cells(Rows.Count, "E").End(xlUp).Row For x = 2 To ow For y = 2 To Sheets.Count If Cells(x, "F") = Sheets(y).Name Then nw = Sheets(y).Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(x, "E").Copy Sheets(y).Cells(nw, "A") Cells(x, "G").Copy Sheets(y).Cells(nw, "B") End If Next Next End Sub [/syntax]...
Jeśli będziesz pamiętał o tym, żeby oznaczyć wiersz wpisany ręcznie, to da się bez VBA. Być może w v >2007 można to zautomatyzować (czytałem coś o funkcji ISFORMULA). Powrót do pierwotnego układu, polega na skopiowaniu komórek wiersza powyżej i usunięciu jedynki z kolumny M.
Jeśli urządza Cię wynik w dodatkowym arkuszu, można formułami. W przeciwnym wypadku Np takie coś: [syntax=vbscript]Dim w As Long w = 2 With Sheets("RaportPaczek") Do While .Cells(w, 1) <> "" If IsNumeric(.Cells(w, 3)) Then .Cells(w, 4) = .Cells(w, 3) .Cells(w, 3) = .Cells(w, 2) End If w = w + 1 Loop End With[/syntax]
A teraz trochę tekstu o CP/M w wersji dla inżynierów (również przy udziale AI): Główne komponenty CP/M: 1. BIOS (Basic Input/Output System): Niskoopoziomowy program uruchamiany podczas uruchamiania komputera, inicjujący podstawowe funkcje sprzętowe, takie jak klawiatura, ekran i urządzenia wejścia/wyjścia. 2. Bootloader : Program ładujący system operacyjny...
Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
wrs = Range("A2:D2").End(xlUp).Row + 1 'co to ma robić? Skoro od drugiego wiersza w górę, to... pokazuje pierwszy wiersz :) Uparcie drepczesz w miejscu. Na czym wysypuje się makro z postu #16?
[syntax=vbscript]Sub Etykiety() Set a = Sheets("Arkusz1") Set b = Sheets("Arkusz2") For x = 2 To a.Cells(Rows.Count, "A").End(xlUp).Row b.Cells(2, 3) = a.Cells(x, 1) b.Cells(4, 3) = a.Cells(x, 2) b.Cells(6, 3) = a.Cells(x, 3) b.Range("A1:C8").PrintOut Next End Sub[/syntax]
W Twoim pliku XLS dodałem poniższy kod i przycisk w arkuszu "form2", który uruchamia ten kod. Pozdrawiam - McVik
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
Dodano po 3 [syntax=vb]Sub Copy() For Each cell In Sheets(2).Range("A:A") If cell.Text = "" Then Exit For Rows(cell.Row & ":" & cell.Row).Copy Sheets(cell.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1) Next End Sub [/syntax] tak dobrze
Witam, Mam zakres danych a1:l52, interesowało by mnie jakiego użyć kodu ażeby kopiowało mi wiersze gdzie w kolumnach od b do l są dane. ważne żeby przy kopiowaniu wiersza do nowego arkusza kopiowało również wartość z kolumny a
witam, mecze sie straszliwie z makrem, ktorego zadaniem jest skopiowanie wiersza z jednego arkusza, zindentyfikowanie przy pomocy numeru ID pozycji tozsamego wiersza w drugim arkuszu i doklejenie do istniejacego juz wiersza w tym drugim arkuszu. proobuje rozmaitych rzeczy ciagle wychodzi mi runtime error. [syntax=vbscript]Dim MIP1, MIP2 Dim i As Long...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
Już w poprzednim wątku zwracałem uwagę, że dane mają być reprezentatywne. Tam nie było nic o tym, że numery bloków mogą się powtarzać i wobec tego w kodzie była wykorzystana zmiana numeru bloku w stosunku do poprzedniej. Teraz przyjąłem, że jeśli blok jest złożony z kilku elementów, to numeracja po / zaczyna się od 1. Trzeba te bloki jakoś rozróżniać....
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...
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
w Arkuszu1 ustawiam automatycznie filtr na wartości równe 0 lub "Blanks" w kolumnie V i chciałbym aby makro automatycznie skopiowało wszystkie wiersze do Arkusz2. Wszystkie wiersze z tabeli czy wszystkie WYFILTROWANE wiersze z tej tabeli??
1b. Kod ma kopiować wszystkie na prawo arkusze z tego samego pliku i wszystko wrzucać do arkusza zbiorczo z ostatnim wierszem. Może opisze od początku moje działania: Mam plik XXX, w którym jest jeden arkusz o nazwie Panel. W nim mam różne porobione przyciski z makrami. Pierwszy przycisk pozwala mi na kopiowanie do mojego XXX danych z innych plików...
Witam. Sprawa pojawiała się już kilkukrotnie na forum elektrody. Szukałem rozwiązania również w innych serwisach. Zacząłem naukę VBA, ale nie zdążę opanować go na takim poziomie, aby rozwiązać ten bieżący problem. Sprawa dotyczy arkusza z kilkoma setkami rekordów. Podział wg kategorii w kolumnach i wiele wierszy z danymi. Interesują mnie wartości z...
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...
Naprzemienne kolory zrealizujesz formatowaniem warunkowym. Formuła: =MOD(WIERSZ();2)=1 Co rozumiesz pod pojęciem A po kolejnym użyciu nie kopiowało nagłówka tabeli tylko wstawiało wyszukane rekordy Z nagłówkiem nie ma problemu, wystarczy sprawdzić czy jest i kopiować warunkowo (gdy nie ma). Natomiast nic nie wiadomo co to za "wyszukane rekordy".
Nigdy nie programowałem w VBA, ale znalazłem takie coś, może okaże się pomocne. Jeżeli nie to poszukaj w sieci pod hasłami "vba copy rows" i podobnymi, pojawia się sporo wyników. The example codes will copy to a database sheet with the name Sheet2. Every time you run one of the subs the cells will be placed below the last row with data or after the...
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
A jeśli bym chciał na odwrót?? żeby to z kolumny C przekopiowało się do kolumny A, z której wyszukuje tekst "aa" i zastąpiło ten tekst czymkolwiek co jest w kolumnie C, a C kolumnę pozostawiło pustą??? [syntax=vb]Sub Makro1() With Sheets("Arkusz1") For Each c In .Range("A1:A5") if c.Value = "aa" Then c.Value = .Range("C" & c.Row) .Range("C" & c.Row)...
zostały skopiowane poniżej tabeli tyle razy ile jest w komórce E10 (Qty - quantity) czyli najlepiej n-1 razy . każda naklejka to jeden wiersz . Jeżeli w danym wierszu pole ilośc (qty) jest większa np 50 to wydrukuje się jedna naklejka . Nie potrafię zrozumieć logiki Twojego arkusza i opisu :cry: Na ogół drukarki drukują z Excela to co jest ustawione...
No tak... W #1 jest Cells(2, 3), czyli C2. Ja użyłem C3, a w ostateczności Ty użyłeś C1.;)
Witam [syntax=vbnet]Sub SumaC() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "RYDER" Or ws.Name <> "PORTAL" Then ws.Cells(2, 1).Value = "suma" ws.Range("B2") = "=SUM(I4:I50)" End If Next ws End Sub [/syntax]
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Jednak szybciej było napisać makro:) W załączniku. Z tym, że w twoich danych (w załączonym pliku) dane, które chcesz kopiować znajdują się chyba w wierszu 8 a nie 37. Zrobiłem makro kopiujące dane z wiersza 8 pod warunkiem, że są mniejsze od zera. Ponadto, żeby data również się przepisała, musi znajdować się dokładnie 5 wierszy powyżej danych z których...
Czy ktoś wie w jaki sposób można skopiować tekst w Excela do Worda, w taki sposób, żeby na przykład z kopiowanego zakresu Excela A1:A10, treść z wiersza A1 została wstawiona do Worda jako nagłowek_1, a wiersza A5 jako nagłówek_2? Z góry dziękuję za pomoc.
Dzień dobry, proszę o pomoc w napisaniu makra (pod przycisk Kopiuj), które kopiowałoby wartości z z kolumn B , AD oraz AE od wiersza 4 poprzedniego (poprzedzającego) arkusza do takich samych kolumn aktywnego. Excelem zajmuję się od niedawna i wszelka pomoc mile widziana.
w pierwszym wierszu dla kolumny jest słowo "Tak" Dla tego trzeba jedna linijka Może nie doprecyzowałem chciałbym aby kopiował dla n kolumn tzn a1,b,1c1....=Tak nie tylko gdy w A1=Tak Dodano po 10 Jeszcze inaczej, chciałbym skopiować do nowego arkusza te kolumny dla których w pierwszym wierszu kolumny było słowo Tak Kopiowanie do nowego arkusza bez...
Witam serdecznie. Posiadam dane w excelu, które znajdują się w 2 arkuszach: 1. "DANE" i 2. "CT". W pierwszym arkuszu w kolumnie 2 (od wiersza 3 do 2500) znajdują się interesujące mnie wartości. W arkuszu "CT" w wierszu 7 (kolumny od B do EO [143]) znajdują się liczby, które w sumie dają wartość 2500. Chodzi o to, żeby pod każdą taką liczbą w arkuszu...
Jest w Excelu dodatek darmowy Power Query do wersji 2010 i 2013 a od wersji 2016 jest wbydowany który potrafi to zrobić bez VBA Tu masz link jak to zrobić Pozdrawiam. https://www.youtube.com/watch?v=oAOXgHq0...
Może tak: [syntax=vbscript]Sub Kopiuj() Dim i&, Ow& Application.ScreenUpdating = False Ow = Cells(Rows.Count, "A").End(xlUp).Row For i = 8 To Ow Step 5 Range("A" & i).Copy Range("A" & i + 3, "A" & i + 4) Next End Sub [/syntax] andie
Niestandardowo do sprawy podchodzisz lub opisujesz. Zrozumiałem to tak: W arkuszu "Search" masz "bazę danych". Coś jak książka telefoniczna. W arkuszu "Input" chcesz wpisać kod i po kliknięciu przycisku ma powstać nowy wpis w arkuszu "Output". Jeśli wpiszesz kod do pierwszego, wolnego wiersza w "Output" i użyjesz funkcji wyszukujących, to nie wyjdzie...
Trochę nie rozumiem po co chcesz wpisywać formuły, jak masz kopiować dane? Przejdź na numerowanie liczbowe (jakoś sie to ładnie nazywa), będzie łatwiej, jeżeli rzeczywiście chodzi o kopiowanie komórek. Położenie wiersza zaznaczonej komórki już pobierasz, to w czym jest problem z tym 55?
Cześć, nadal próbuję sił w VBA. Idzie jak krew z nosa. Tym razem potrzebuję odczytać wartość komórki lub sekwencji z ciągu znaków, która zaczyna się na konkretną cyfrę (znak) "7". Dla rozjaśnienia. Mam zestaw danych w pliku kod.txt, który zawiera zestawy: - złożone z kilku wierszy (ilość zmienna, raz są trzy raz więcej) - poszczególne grupy zawsze zaczynające...
Wartość komórki C15 powinna trafić do wiersza 1, natomiast wartość komórki C16 do wiersza 2. Jeśli komórka C15 jest pusta, wtedy w wierszu 1 powinno zostać puste miejsce, natomiast w kodzie, który zamieściłam następuje przesunięcie i C16 trafia do 1 wiersza.
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei, w tym celu napisałem kod: wszystkie wartości z danych...
Cześć, jestem absolutnie początkująca jeśli chodzi o VBA, a dzięki makru chciałabym przyspieszyć trochę swoją pracę... no ale nie wiem jak i liczę na Waszą pomoc :) Mam tabelę z trzema kolumnami: - data_1 - data powtarzająca się - data_2 - data niepowtarzająca się kolejno posortowana - wartość - wartość na sztywno, wcześniej policzona suma skumulowana...
kopiowanie wiersza makro warunkowe kopiowanie wiersza makro kopiowanie wiersza
praktyczne programowanie rs232 daewoo rozrząd skrzynie scania
intermac genius naprawa taśmy matrycy
Moment dokręcania panewek wału korbowego BMW N63B44 Mercedes W211 2.1 CDI – ciśnienie paliwa w listwie po zgaszeniu silnika, OM646, common-rail
