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...
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...
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...
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...
Ten pomysł z kopiowaniem każdego wiersza osobno jest niezbyt trafny, chyba że kolejność wierszy ma być za każdym razem inna. Ale i tak lepiej zamiast przycisków zastosować pola wyboru, żeby było widać, które wiersze zostały wybrane do skopiowania (lub już skopiowane). Teraz można się łatwo pomylić i albo skopiować któryś wiersz dwa razy, albo o którymś...
Gdy jest numer wiersza z dane('PODAJ.POZYCJĘ'), nie trzeba 'wyszukaj.pionowo', wystarczy INDEKS
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....
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))...
Makro jest w kodzie arkusza REJESTR - reakcja na zdarzenie Worksheet_SelectionChange (wybor kursorem dowolnej komorki w arkusze REJESTR). Makro pisze w N1 (nazwa 'wiersz') numer wiersza w ktorem zaznaczena komorka. Dalej w PROTOKOL'e formula INDEKS wybiera z tego wiersza dane(w przykladzie tylko wartosc PROTOKÓŁ ODWODNIENIA NR: , reszta dopasuj wg tego)...
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...
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...
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...
Rozbij zadanie na kawałki: 1. Czy wiesz co masz skopiować? Potrafisz zaznaczyć ten Region myszką/kodem VBA? 2. Czy umiesz to skopiować? Ręcznie albo kodem VBA? Jeżeli wiesz jak coś zrobić ręcznie to zarejestruj makro i otrzymasz prawie gotowy kod. Do przeróbek, ale wykonasz je z niewielką pomocą internetu.
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]For y = 1 To ile - 1[/syntax]
Skoro Kolega chce VBA, to proszę. Kod dla modułu 'Arkusz3': [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then If Target.Cells = "XYZ" Then Call Kopiuj End If End Sub[/syntax] Kod modułu skoroszytu: [syntax=vb]Sub Kopiuj() s = Sheets("Arkusz3").Range("B2") Sheets("Arkusz1").Select ow = Cells(Rows.Count,...
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]
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ść,...
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...
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...
[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...
... ale makro jest przypisane do wiersza 1 . wiec muszę automatem skopiować makro do 2 wiersza ... Czy na pewno mówimy o makrze? Jak kopiujesz "automatem" makro ? Gdzie masz zapisane to makro. Wiesz co, opisz jeszcze raz bardzo dokładnie jakie jest źródło (ilu wersowe) - jaki jest plik docelowy itd. i co tak naprawdę chcesz A najlepiej zamieść swój...
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...
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]
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...
Witam Za każdym razem do wiersza 6? Poprzednie dane pozostaną? Dodano po 1 Witam [syntax=vb]Sub kopiowanie() ' kopiowanie Makro ' Klawisz skrótu: Ctrl+k ' With Sheets(1) ostW = .Cells(.Rows.Count, 1).End(xlUp).Row nrep = .Cells(ostW, 1) End With With Sheets(2) For i = 0 To nrep - 1 .Range("2:5").Copy .Range("6:6").Insert Shift:=xlDown Next End With...
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...
[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]
[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)...
Jeżeli pola są oddzielone spację, wystarczy taka modyfikacja pętli: [syntax=vb]Do While Not EOF(1) Line Input #1, TextLine If Left(TextLine, 13) = "121401_2.0011" Then arr = Split(TextLine, " ") wsdane.Cells(i, 1).Value = arr(0) wsdane.Cells(i, 2).Value = arr(1) wsdane.Cells(i, 3).Value = arr(2) wsdane.Cells(i, 4).Value = arr(3) wsdane.Cells(i, 5).Value...
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 Zastanawiam się czy jest możliwość, aby makro skopiowało mi tyle arkuszy ile jest wypełnionych wierszy w arkuszu głównym. Dokładnie chodzi o to, że mam arkusz "Dane", w którym są podane pewne informacje dot. klientów (1 klient=1 wiersz) oraz arkusz "1", w którym są formuły pobierające dane z arkusza "Dane" z 3 wiersza (dane 1 klienta). Po dopisaniu...
Witam, potrzebuje napisać makro, które przeniesie wszystkie dane z wyjątkiem pierwszego wiersza do pliku CSV w tym samym katalogu. Kłopot w tym, że w niektórych komórkach mogą znajdować się średniki (;) co sprawia że obecne makro którego używam wydziela mi z takich komórek nową kolumnę w pliku CSV. Czy jest sposób by komórka zawierająca średnik nie...
[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...
:) Nie to nie zadanie szkolne potrzebuje tego dla swojego arkusza nad którym pracuje i potrzebne mi takie rozwiązanie na przyszłość. W pytaniu zawarłem jedynie przykład, który mógłbym we własnym zakresie rozbudować, ale mam problem z pobraniem numeru wiersza dokładnie z kontrolki na którą klikam aby uruchomić makro. Jestem bardzo zielony w temacie....
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?
Witam, dzis kolejna zagadka-zagwozdka: sa w Excelu dwie tabele (rozmiar taki sam) obie maja identyczne wartosci w pierwszej kolumnie z ta roznica, ze nie koniecznie w tej samej kolejnosci. Pierwsza tabela (powiedzmy - A) jest wypelniona, tabela B jest pusta (oprocz oczywiscie pierwszej kolumny). I teraz zaczyna sie jazda: chodzi o to aby makro wyszukiwalo...
W Twoim opisie coś nie gra :cry: Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9... Ma skopiować dane z wiersza powyżej . To znaczy, z którego wiersza ma kopiować jeśli zmiany wprowadzasz w "w pierwszym wierszu" :?: :D Wierszy mam około 2 000 tyś 2 mln wierszy to musisz pomieścić w dwóch tabelach wykorzystując całą wysokość arkusza (jeden...
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
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...
Witam! temat wałkowany po tysiąckroć ale cóż począć skoro im więcej czytam tym mniej rozumiem. Proszę więc o idiotoodporną podpowiedź jak skonstruować makro przenoszące wiersz zawierający 17 wartości (17 kolumn) do nowego arkusza w tym samym układzie wg kryterium z kolumny A, wybieranego z listy rozwijanej ( pusta i dwie pozycje tekstowe). Warunkiem...
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...
Dzień dobry wszystkim, Mam ogromny problem, ponieważ muszę utworzyć makro, a zupełnie nie wiem jak się za to zabrać. Mam plik (na załączonym zdjęciu), z którego jeśli użytkownik w kolumnie P napisze "tak", makro musi utworzyć dokument (według szablonu, który mam). Dla każdego wiersza z "tak" musi powstać osobny dokument. Z pliku ze zdjęcia makro musi...
Super Adamas_nt. Wielkie dzięki. Czy może kopiować zakres danych bez nazw pierwszego wiersza na który nałożony jest filtr. pozdrawiam MMKP
Cześć, Potrzebuję waszej pomocy :( Przeszperałem już forum i widziałem, że pojawiło się już kilka pytań o kopiowanie warunkowe, niestety to dopiero początek mojej przygody z VBA i nie potrafię dostosować kodu do swoich potrzeb. Chciałbym, żeby po przyciśnięciu przycisku "Archive" makro przeszukało arkusz i wycięło te wiersze, które w kolumnie W mają...
Nie sprawdzałem działania, ale: Błąd 1: nieprawidłowa instrukcja Rows.Count (x 1 Up, powinno być XLUP). Lepiej: FinalRow = Cells(Rows.Count, 1).End(xlUp) Lub FinalRow = ActiveSheet.UsedRange.Rows.Count Błąd 2: Pętla For. Jeżeli przypisujesz wartości zmiennej i , to: Next i lub (również prawidłowo) samo Next bez jawnego nazwania zmiennej....
tu masz makro kopiujące te dane z arkusz1 z komórkek b5:b10 do aktywnego arkusza do kolumny D kopiowanie z kolumny w Arkusz1, następnie transpozycja i wklejenie w wierszu w aktywnym arkuszu (każde użycie makra wkleja do kolejnego wolnego wiersza wiersza)
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??
Ć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!
Witam serdecznie Kolegów. Mój problem polega na stworzeniu makra do excela, który kopiuje konkretne komórki do nowego arkusza. Nie są to całe wiersze czy kolumny, ale wybrane według pewnego algorytmu. W pierwszym arkuszu (cennik) znajdują się kolumny: A-nazwa usługi B-cena netto C-ilość szt. z VAT 8% D-ilość szt. z VAT 23% Załóżmy, że w wierszach znajdują...
A co jest nie jasne w pliku? Napisałam przecież, że to co jest w dwóch pierwszych wierszach to są dane początkowe. A reszta to jest to co chciałabym uzyskać. Czyli chciałam uzyskać makro, które będzie kopiować po 3 komórki z wiersza pierwszego (akurat w tym wypadku) bo są trzy zera, trzy jedynki i ogólnie wszystkie liczby w drugim wierszu powtarzają...
Witam, Zwracam się do Was z zapytaniem o pomoc. Przejrzałem już dziesiątki podobnych wątków, ale odpowiedzi nie znalazłem. Dodam tylko, że jak większość jestem początkujący w tym temacie. Mam dwie zakładki, zlecenia i WZ chciałbym po zaznaczeniu dwóch check'boksow (odnoszących się do tego samego numeru zamówienia) i kliknięciu kopiuj, aby przerzuciło...
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...
Hej, Bardzo dziękuję za szybką reakcję! Jednak nowe makro za każdym razem zwraca info 'brak ulicy XXX' nawet jeśli wpisuję całą nazwę dokładnie tak, jak jest w Arkuszu "Baza". Nie mam pojęcia o VBA i nie umiem również zmienić kodu tak, żeby wyszukiwał również po fragmencie nazwy, np. 'bieża' dla 'Bieżanowska 78C', a w przypadku 2 lub więcej rekordów...
Poproś kogoś innego.
No tak... W #1 jest Cells(2, 3), czyli C2. Ja użyłem C3, a w ostateczności Ty użyłeś C1.;)
Cześć, Jestem tutaj pierwszy raz i będę wdzięczny za pomoc. Mój problem polega na tym, że szukam marka, które zrobi tak: 1. W arkuszu 2 mam komórkę w której będę wpisywał wartość odpowiadającą liczbą w arkuszu 1, kolumna A. Obok komórki będzie przycisk do makra. 2. Po wpisaniu liczby, makro musi pobrać dane odpowiadajace poszczególnym komórką z wiersza...
Skoro jest pusto od kolumny F (wszystkie wiersze) Skoro tak, to sprawdzenie wiersza 1 musi działać. https://obrazki.elektroda.pl/4101858100_... Mam nadzieję, że obrazek wszystko wyjaśnia... P.S. Makro powinno nazywać się OstatniaKolumna.
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...
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...
Witam, mam taki problem potrzebuje makro, które znajdowałoby mi wartość w kolumnie B - || i kopiowało imię nazwisko oraz numer do stworzonego wiersza poniżej. Jeśli w kolumnie autorzy jest jeden autor skopiować dane do kolumny powstałej C stan początkowy http://obrazki.elektroda.pl/8788959900_1... efekt jaki chce uzyskać http://obrazki.elektroda.pl/8298584700_1...
Zaimportowałem plik raportu miesięcznego magazynu do Arkusz1 , mam w nim trzy kolumny : nr dokumentu, nr zlecenia i wartość. W pliku występuje co losową ilość wierszy podsumowanie danego zlecenia. Potrzebuję makro wyszukujące wiersz w którym w komórce (pierwsza kolumna) wystąpi tekst „Razem konto” a następnie zostanie wykonane kopiowanie...
aby makro wiedziało ze w danym pliku jest np tylko 850 Zaznaczanie do kopiowania/przenoszenia/itp. bez używania tzw. zmiennych. Jeśli masz tabelę w arkuszu, a w tabeli wiersze w kolumnach zachowują ciągłość danych, tzn. brak jest pustych komórek, to można w ten sposób:[syntax=vbscript]Range("H1", Range("H1").End(xlDown)).Copy[/syntax]lu...
Jeżeli chodzi o kopiowanie kolorów, to najpierw na początku porządnie wyczyść arkusz celu z kolorów: [syntax=vb]wscel.Range("A2:E65536").Clea... wscel.Range("C2:E65536").Interior.ColorI... = xlNone[/syntax] Sam kolor jest zaszyty w zmiennej Range(...).Interior.ColorIndex, zatem kopiuj go razem z danymi w ten sposób: [syntax=vb]wscel.Range("C"...
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...
Cześć. Na początku chciałbym poinformować,że nie dawno odkryłem VBA czy tow Excelu czy Wordzie. Tym samym jestem zielony w tym temacie. Pocieszam się tylko tym że nie na wszystkim muszę się znać. Jak domyślacie na VBA nie znam się w ogóle :cry: . W związku z powyższym do osób które znają w tym temacie mam gorącą prośbę. Potrzebuję makra,które będzie...
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
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...
Heja yyyyy przyznam że tak to opisałeś że... ciężko to dobrze zrozumieć :P Ale ok na początek napiszmy programik który: 1. "przeleci" przez wszystkie pliki z katalogu (do którego ścieżkę musisz wpisać w kodzie) 2. weźmie nazwę pierwszego z tych plików 3. otworzy go (np 1.xlsx) 4. z otwartego pliku skopiuje zakres 5. wklei ten skopiowany zakres do naszego...
Cześć, Chciałbym się przywitać jako nowy użytkownik bo zapomniałem starego loginu i hasła :) Mam problem z tabelką. Otóż chcę w arkuszu zrobić kilka list rozwijanych. Chciałbym, aby po każdym dodaniu kategorii w liście, wstawiał się pod spodem nowy wiersz w tabelce. Wiem, że teraz mogę rozszerzyć tabelkę ale wtedy "zje" mi wiersze poniżej. Innym rozwiązaniem...
Witaj. Bez względu na to, co potem już liczbą będzie tekstem(1,5s)? Makro należy znać nazwy arkuszy i werszy-kolumny źródłowe i docelowy. w przeciwnym razie sam cos takiego: [syntax=vb] For r=pierwszWersz To OstatWersz If Cells(r,2) >1500 then ' Tu kopiowanie, dzieląc wartość przez 1000, a przypisanie s. End If Next [/syntax]
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
Witam W załączniku jest plik Excela o nazwie "pomoc2". W tym pliku mamy dwa arkusze o nazwach: "DANE" i "BAZA". W arkuszu "BAZA" w wierszu czwartym znajdują się cyfry od 1 do 10. W skrótowym opisie jest to kolejność w jakiej powinny być wklejone dane do arkusza "DANE" dla każdego symbolu. Dla ułatwienia i czytelniejszego zrozumienia o co mi chodzi,...
Witam To makro realizuje kopiowanie wszystkich plików znajdujacych sie w katalogu do jedengo. Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdating = False Set MergeObj = CreateObject("Scripting.FileSystemObject... Set dirObj = MergeObj.Getfolder("C:\2014") Set...
[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]
Witam. Potrzebuję pomocy z importem wielu plików txt do excela. Pliki txt mają podobne rozłożenie różnią się jedynie wartościami oraz liczbą wierszy. Potrafię stworzyć makro na kopiowanie z wybranego pliku txt określonych kolumn od np 20 wiersza. Dziś potrzebuję stworzyć makro do importowania wielu plików txt znajdujących się np: "c:/a/". Znalazłem...
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Teraz możemy to przeanalizować: Makro "Save" wywołuje procedurę "kopiuj_wartości" z trzema parametrami: co kopiować, Nr wiersza docelowego określonego w pętli Do (ostatni niepusty w kol "C" arkusza "REPORT") i Nr kolumny docelowej. Jeżeli chcesz wykorzystać je w tej formie, to docelowy plik (NN.xls) musi zawierać arkusz o tej nazwie (REPORT). Linię...
Hej, czy mógłby ktoś mi pomóc poprawić poniższy kod, który ma pobierać do Arkusza "BAZA" dane ze wszystkich pozostałych arkuszy w tym skoroszycie, jeśli wiersze zaczynają się od niepustej komórki A. Problem polega na tym że jeśli w którymś arkuszu w kolumnie A jest pusty wiersz, to makro nie pomija tego pustego wiersza idąc do następnego wiersza w tym...
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...
Witam, potrzebuje pomocy z excelem, w temacie: Kilka osób, codziennie wypełnia ten sam plik, jeśli chodzi o dane - nazywając go swoim nazwiskiem. Pliki codziennie są zgrywanie, w jedną lokalizację (folder) do jednego pliku pod nazwą Zestawienie (obecnie metoda kopiuj wklej). Każdego następnego dnia pliki z kolejną datą zastępują poprzednie. Chciałabym,...
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...
Hej wartości taka jak cena i wartość na tej PZ nie są potrzebne i nie muszą być drukowane. Te wartości dostawca zobaczy na fakturze wedle umowy podpisanej. Na PZ ma znaleźć się ilość netto z komórki E3. Sucha liczy się sama ale ona jest potrzebna jako dana w biurze a nie dla dostawcy także tylko ta z komórki E3. A kopiowanie może się odbywać z aktywnego...
Dziękuję Panowie. Szczegółowe opisanie tego co chcę osiągnąć było by dość długie. W arkuszu pierwszym mam zaimportowane pewne dane z pliku csv. Dane te dotyczą różnych osób i tu nie ma reguły. Np dla Jana Kowalskiego mamy 3 wiersze danych, dla Marii Kowalskiej mamy 4 wiersze. Natomiast dla Stanisława Nowaka mamy też jakiś tam wiersz z informacją że...
To makro będzie w miarę proste, wystarczy w pętli sprawdzać kolejne komórki w pogrupowanej kolumnie, a jak dwie kolejne się różnią - skopiować zakres od...do: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Set wsdane = ThisWorkbook.Worksheets("dane") 'nazwa arkusza z danymi ost_wiersz = wsdane.Cells(Rows.Count,...
Ad.2 Kopiowanie wiersza z przysikiem, to żaden problem. Problemy zaczynaja sie przy usuwaniu wierszy, bo przycisk zostaje i zwykle nakłada się na następny. Po jakimś czasie może być ich mnóstwo "na kupce" Ad.1 Napisać makro wg Twojego opisu, to, na oko, żaden problem. Sugerowałbym którąś z procedur zdarzeniowych arkusza (Np Change dla kolumn H, I, J,...
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...
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
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)....
Witam serdecznie Jestem nowy na tym forum. Potrzebował bym pomocy przy makrze, które by kopiowało komórki z jednego głównego arkusza gdzie codziennie wpisuję dane do kilku innych arkuszy. Poszperałem troszkę w necie i znalazłem makro napisane przez pana Tomasza Gawęda które prawie odpowiada moim oczekiwaniom. [syntax=actionscript] Option Explicit Sub...
Prace nad kodem makra posunęły się naprzód :D . W chwili obecnej jest już gotowe wpisywanie ścieżki dostępu i wpisywanie zakresu danych do kopiowania. Pozostaje jeszcze problem, że musze wpisywać zakres danych do kopiowania dla każdego pliku osobno (zakres danych do kopiowania mam taki sam we wszystkich plikach). Chciałbym aby raz podany zakres danych...
Witam Czy ktoś miałby chwilkę i mógłby mi pomóc? (może być makro lub jeśli się da to funkcje z arkuszem pomocniczym). Mam problem z kopiowaniem wierszy i ich dublowaniem do gotowego arkusza. Mam skoroszyt, który zawiera 3 arkusze robocze: "Re_1", "Re_2" , "Re_3" oraz arkusz wynikowy "Wynik". Do "Re_1", "Re_2" , "Re_3" dopisywane są nowe wartości. Potrzebuje...
Wklej do modułu i wypróbuj takie makro (zrobiłem kopiowanie, bo prościej ale możesz sobie zmienić na wstawianie): http://obrazki.elektroda.pl/6793685500_1... a usuwając "zgubisz" w końcu te sformatowane (z obramowaniem). Pomijam kwestię rozmieszczenia na stronie, tu poradzisz sobie sam ;)
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze nie jest to co bym chciał osiągnąć Potrzebuje dla następnego wiersza...
Witam. Mam plik o nazwie "spis_" w którym mam nagrane nastepujące makro: [syntax=vb]Sub Kopiuj() Dim i As Integer Dim nazwa As String For i = 1 To 1 On Error GoTo Err_Kopiuj Sheets(Array("A", "B", "C", "D", "E", "F")).Select 'Sheets("A").Activate Sheets(Array("A", "B", "C", "D", "E", "F")).Copy nazwa = "Spis_" + CStr(Format(i, "0000")) nazwa = "Spis_"...
Dziękuje bardzo za zainteresowanie się moim tematem makro działa jak najbardziej prawidłowo. Zmieniłem linijkę While pcur <= src(r + 1, 1) ponieważ może istnieć kilka M na tym samym poziomie i potrzebuje wszystkie przenieść do arkusza nr2 ( trochę nie jasno opisałem w pierwszym poscie . Jest możliwość aby makro powtórzyło tą samą operację aż do pustego...
Np. potrójnie zagnieżdżoną pętlą For wg.schematu: For pracownik = 1 To ilePracowników (tu przydałaby się rozpiska w osobnym arkuszu np. "Pracownicy", bo gdzieś trzeba ich policzyć) For miesiac = 1 To ilość miesięcy (tu LCase(nazwa arkusza) lub indeks daje nazwę m-ca) w tej pętli obliczasz bez zerowania również Nr wiersza wynikowego dla arkusza "Wynik"....
Niestety nie mogę zobaczyć tego co załączyłeś W związku z tym pozwoliłem sobie trochę "pogrzebać" w kodzie kolegi... Takie coś http://obrazki.elektroda.pl/5992088900_1... Wkomponuj kopiowanie zamiast zapisywania i z głowy. P.S. Pętla pobierająca nazwy plików sprawdza kolumnę A. W pliku, do wiersza 360, są formuły /end(xlUp) uzna je...
Wypróbuj poniższy kod. Założenia: - kolumna A - dane do wyszukania - kolumna B - szukane frazy - założyłem, że też tam będzie jakiś nagłówek, więc odpowiedni zakres jest deklarowany od wiersza 2, w kodzie jest odpowiedni komentarz - jako, że makro operuje na mechaniźmie filtra zaawansowanego to dane w kolumnie A muszą mieć nagłówek , który będzie użyty...
kopiowanie wiersza makro excel makro kopiowanie wiersza kopiowanie wiersza
płytka modułu sterowania apollo kamera pompa wyżej
tps506 pb801 iphone zablokowany przez właściciela
Lokalizacja odcięcia pompy paliwa w Volkswagen LT 2,5 Pompa paliwa w VW LT 2.5 TDI 2002 - brak podawania paliwa
