w pierwszym wierszu dla kolumny jest słowo "Tak" Dla tego trzeba jedna linijka[syntax=vb] Sub kopia() If ActiveSheet.Range("A1") = "Tak" Then ActiveSheet.Copy End Sub[/syntax]
[syntax=vbscript]Sub NowaKolumna() nk = Cells(60, Columns.Count).End(xlToLeft).Column + 1 Range("H60:H80").Copy Cells(60, nk) Application.CutCopyMode = False End Sub [/syntax]
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...
Dużo do wyjaśniania, więc przeanalizuj sobie taki przykład makra z pętlą[syntax=vb]Sub Ukash() Dim myPath As String, fName As String, newWkb As Workbook Dim wrs As Long, wrsDst As Long myPath = "U:\Lukasz\Raporty\" 'składasz string z zamianą daty na tekst fName = "Raport " & Str(Date) & " adamas" 'lub dowolna data pobrana z komórki Set newWkb...
chciałbym napisać proste makro, które po przypisaniu do kontrolki formularza lub kontrolki activeX wykona takie zadanie Po co bawić się w "przyciski" jak można przez 'doubleclick' Kliknij dwa razy na dana cyfrę.
Zapętliłem poprostu ten kod, może i primitywne ale robi to co ma robić. rngY = Range("C4").Value Application.ScreenUpdating = False Sheets("Dane").Select Columns("A:CA").Select Selection.find(What:=rngY, After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate...
Witaj. Zakładając, że oryginalne dane na pierwszym arkuszu, a wynik na drugi: [syntax=vb]Sub upraw() Dim bsk As Range, bsr As Range Dim rb&, rd&, cd&, cm& Set bsk = ThisWorkbook.Sheets(1).Columns(1).Cells Set bsr = ThisWorkbook.Sheets(1).Range("B:J").Rows rb = 2: rd = 2 With ThisWorkbook.Sheets(2) bsk(1).Copy .Cells(1, 1): bsr(1).Copy...
Tak. Tyle, że w zależności od poziomu zabezpieczeń może być monit lub przy wysokim poziomie może nie działać makro/makra.
tak jak podano przez kolegę
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
Cześć, potrzebuję pomocy. W załączonym pliku znajdziecie arkusze: - weryfikacja - firma 1 - firma 2 - kodowanie firma 1 - kodowanie firma 2 Przystępując do pracy: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB 2. Uzupełniam formułę w kolumnie A 3. W kolumnę B wpisuje "F1" 4. Kopiuję kolumnę A i wklejam do arkusza "Kodowanie Firma...
Ręce opadają :) To co Ty właściwie chcesz zrobić? ale jeśli dane są pobierane z internetu Dane z internetu wprowadzaj od razu do "z góry upatrzonego" zakresu. lub np z innej komórki Oprogramuj tą "inną komórkę"... Co to znaczy "z automatu"? Żeby coś się zmieniło w arkuszu, najpierw musi się coś wydarzyć.
Dzień dobry, Można spróbować takie makro: [syntax=vb]Sub Uzupełnij() Dim wiersz As Long, wzor As String wzor = "" wiersz = 1 Do If Cells(wiersz, 1) <> "" Then wzor = Cells(wiersz, 1) Else: Cells(wiersz, 1) = wzor End If wiersz = wiersz + 1 Loop Until wzor = "koniec" End Sub[/syntax] Powinno spełniać założenia. Pozdrawiam.
Dziękuje za pomoc. niestetli Makro wysypuje się na linijce ActiveSheet.Paste nic sie nie dzieje. Zauwazyłem, ze jak jednak pootwieram wszystkie arkusze kolegów wtedy makro wkleja 2-3 pliki i znowu się wysypuje
Witam, używam Open Office. W arkusz1 mam kolumnę 'substancja' oraz 'cena'. W każdej komórce kolumny 'substancja' można wybrać substancję z rozwijanej listy. Lista substancji znajduje się w arkuszu2 (również w kolumnie). I teraz chciałbym, aby wybierając jakąś substancję, kopiowała się również jej cena do kolumny obok (ceny podane są również w arkuszu2...
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...
Dzień dobry, proszę o pomoc w napisaniu makro, które wykonuje poniższe czynności: 1. Zaznacz całą widoczną tabelę (tabela może mieć różną ilość wierszy). 2. Skopiuj zaznaczoną tabelę do kolejnego arkusza. 3. Dodaj kolumnę z lewej strony tabeli, która będzie częścią tej tabeli. 4. W nowo dodanej kolumnie wypełnij wartości do końca tabeli (tabela może...
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??
Zobacz przykład. Makro uruchamiane jest przez dwuklik w komórce z krzyżykiem...
Umieść kod w pętli i wykorzystaj jej zmienną do ustawienia kolumny do której chcesz kopiować. [syntax=vb]For i=1 to 6 step 6 ... ActiveSheet.Cells(Ostatni_wiersz + 1, i).Select ... Next[/syntax] A tak na marginesie to aż się prosi żeby ten kod uprościć. Na pewno przyspieszy to jego działanie.
Jeśli nie jest to problem, czy mogę prosić o przypisanie właściwego makra w tym pliku Staraj się zawsze załączać od razu plik do, którego trzeba napisać makro.
Witam, interesuje mnie kopiowanie duplikatów wartości z kolumny A (usunięcie tych wartości w kolumnie A) oraz przekopiowanie tylko wartości zdublowanych do kolumny E. Szczegóły w załączniku. Z góry dziękuję za pomoc.[/quote]
[syntax=vbscript]ActiveSheet.AutoFilterM... = False[/syntax]
Pętla po Q i R, ustawianie filtra na C i G, kopiowanie do nowego pliku. Nagraj makro i zmodyfikuj.
Spoko, mogło by wyglądać tak: Sub Makro1() Dim temp As Variant Dim wiersz As Long wiersz = 1 Do While Cells(wiersz, 8) <> "" If Cells(wiersz, 8).Value = 0 Then Cells(wiersz, 10).Cut Destination:=Cells(wiersz, 15) wiersz = wiersz + 1 Loop End Sub Dodano po 2 jaszcze taka uwaga makro działa poprawnie do pierwszej pustej komórki w kolumnie przeszukiwanej
A filtr oraz kopiuj - wklej specjalnie nie wystarczy?
Wszystko jest ok. A jak zrobić, żeby każda kolumna z pliku txt została wklejona do Excela również w oddzielnych kolumnach?
Wygląda na to że bez zmian dla przykładu jeden wiersz a arkuszu Arka w którym sformatowałem ceny kolorem czerwonym: https://obrazki.elektroda.pl/5471439100_... Po skopiowaniu: https://obrazki.elektroda.pl/7999778200_... Oraz jeszcze zauważyłem że chyba makro kopiuje do kolumny T a zależało By mi aby kopiowało do V włącznie....
[syntax=vbscript]Sub Kolumny() y = 9 For x = 1 To Sheets.Count ow = Sheets(x).Cells(Rows.Count, "I").End(xlUp).Row If Sheets(x).Name <> "Oferta" Then Sheets(x).Range("I1:I" & ow).Copy Sheets("Oferta").Cells(1, y) Sheets(x).Range("J1:J" & ow).Copy Sheets("Oferta").Cells(1, y + 1) Sheets(x).Range("K1:K" & ow).Copy Sheets("Oferta").Cells(1,...
Działa genialnie! Wielkie, wielkie dzięki :) Dodano po 2 Temat do zamknięcia. Użytkownik lanzul zaproponował właściwe, rewelacyjnie działające makro.
lanzul , teraz to już za bardzo kombinujesz ;-) Przecież załączony csv ma wyraźnie 3 kolumny z danymi, co nawet zaznaczała autorka wątku ... :-)
Witaj, makro powinno działać z przycisku, lub wybierając komorku w kolumnie D?
[syntax=vbscript]Sub DodajBudynek() ' ' DodajBudynek Makro ' ' Columns("D:E").Select Range("D5").Activate Selection.Copy Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column + 1).Select ActiveSheet.Paste End Sub [/syntax]
Jak masz tak ładnie popisane "stare:xxxxxxx" i "nowe:yyyyyy" we wszystkich wierszach to nawet nie musisz sięgać ani do wyrażeń regularnych, ani do VBA :please: Wystarczy zrobić odpowiednią formułę (na bazie fragment.tekstu) w kolumnach C i D i przeciągnąć ją na dół kolumny :idea: :idea:
Taak ale ma kopiować wszystkie komórki znajdujące się pod (całą kolumnę). Jestem w stanie zrobić loopa który przeżuci jedną komórkę ale nie umiem zrobić tak żeby na podstawie jednej kopiowało całą kolumnę.
Cześć, Potrzebuję makro VBA, które będzie kopiować w pętli określoną ilość razy wartości z kolumny A oraz B arkusza 1 i przenosić to do kolumny A oraz B arkusza 2 w następujący sposób: przykład arkusza 1 1 333222 5 333225 6 555444 10 555888 15 555887 2 444775 Oczekiwany wynik w arkuszu 2 1 333222 1 333222 1 333222 1 333222 1 333222 5 333225 5 333225...
Jak już pisałem, plik zrobiony był jakiś czas temu. Dzisiaj pewnie bym to uprościł. Zapuść krokowo Np makro "Filtr1" i obserwuj co się dzieje. Kluczowe jest kopiowanie listy z kolumny AA do ukrytego arkusza "Arkusz3" gdzie odbywa się "układanie" list i przypisywanie do nazwy. Fakt, trochę by tam trzeba pozmieniać.
Witam, Mam problem z następującą sprawą. Mam makro, które kopiuje kolumny z kilku arkuszy do jednego. Czasem zdarza się, że kolumny w niektórych arkuszach są puste i wówczas, kiedy excel kopiuje automatycznie puste komórki i je próbuje wkleić wyskakuje błąd. Będę wdzięczna za pomoc makro wygląda następująco: [syntax=vb]sub kopiowanie() Dim ws As Worksheet...
A wbudowany filtr oraz kopiuj-wklej nie wystarczy?
komorka to jest Cells(wiersz, kolumna)
A nie wystarczyło by nagrać makro, które kopiuje wszystkie te kolumny do jednej i usuwa duplikaty?:>
cześć, potrzebuje napisać makro które będzie kopiować do excela wiele stron internetowych, mam makro które może skopiować zawartość jednej określonej strony internetowej, w excel w określonej kolumnie mam adresowy około stron 800 stron które bym chciał skopiować, jak napisać makro w którym jedyną zmienną bedzie adres strony którą makro skopiuje z kolumny...
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.
Witam Czy jest możliwe, aby makro kopiowało tylko niepowtarzające się dane z kolumny A z Arkusza1 i wklejało je w jednym ciągu do kolumny B w Arkuszu2? Dzięki z góry za wszelkie uwagi i pomoc.
Nie do końca rozumiem. Możesz wrzucić plik ?
:arrow: Do autora: Dobrze podstawiłeś to makro? W załączeniu przykład z działającym makrem kolegi adamas_nt Poprawiłem tylko to, że nie liczy dla 100 wierszy tylko dla wszystkich wierszy w kolumnie A zeszytu1. Dodane po czasie ----------------------------- Zmieniłeś treść wiadomości więc moja uwaga nie ma już uzasadnienia, niemniej pozostawiam przykład...
A nie wystarczy zastosowanie filtrów w "Zeszyt1.xls"? W załączniku rozwiązanie z funkcjami wyszukiwania i kolumnami pomocniczymi. Przy otwarciu kliknij 'Edytuj łącza' i wskaż właściwy plik.
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....
Napisałem proste makro, które otwiera plik, z którego mają zostać skopiowane dane, zaznacza i kopiuje potrzebne dane do innego pliku. Pozostaje mi dodanie instrukcji "if, która przed kopiowaniem będzie sprawdzać, czy dane w pliku źródłowym się nie zmieniły. Dziękuje za pomoc i mobilizacje do samorozwiązania problemu. [syntax=vbscript]Application.Calculation...
Potrzebuję makro które: 1. Zamienia przecinki na kolumny 2. Kopiuje kolumny ze wszystkich skoroszytów (w tym przypadku kolumna F) do jednego arkusza Po co dwa makra jak można to zrobić jednym "w locie"?
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...
a co masz na myśli mówiąc "...podstawiać formuły w osobnej pętli"? Wstaw kolumny, wpisz ręcznie formuły sumowania i przepisz argumenty do makra. Po zakończeniu pętli wstawiającej kolumny i nagłówki (usuń linię z wstawianiem sum), dopisz następną wpisującą tylko formuły.
witam jestem zielony w te sprawy, wiec proszę o pomoc: kolumna A kolumna B maluch 120 fiat 10 bmw 50 maluch 200 polonez 30 fiat 40 nissan 50 Jakby wyglądało makro które by sprawdzało kolumnę A i jeżeli to fiat to kopiuje wartość 10 do kolumny C2, jeżeli to bmw to kopiuje wartość 50 do kolumny C3 itd. [/code]
A bez makra? Spróbuj =PRAWY(B1;DŁ(B1)-ZNAJDŹ(...
Idealnie, Dziękuję Ci bardzo ;] Dokładnie o to mi chodziło. Mógłbym Cię jeszcze prosić o dodanie do tego kodu, opcji która dodawałaby date kopiowania w 17 kolumnie kopiowanego wiersza?
Właśnie o to chodzi że mam takich 120 kolumn i chciałabym znaleźć szybszy sposób, niż kopiowanie każdej kolumny. "w przeciwnym razie makro"- niestety nie wiem o co chodzi :(
niech kopiuje tylko kolumnę D i E. bo to co jest w kolumnie D i E bedzie usuwane :)
Witam W kolumnach A oraz E znajdują sie formuły. w kolumnach B C D -> dane, które zmieniają się w zależności od raportu, który się wygeneruje. Chodzi o to by po wygenerowaniu raportu makro brało formułę z komórki A2 i do kopiowało do końca. i analogicznie z formułą w kolumnie E komórka E2. Teraz pomyślałem, że "formuła" mogła by być zaszyta w makro...
Cześć, poszukuję makra które otwiera PDF-a znajdującego się w konkretnej lokalizacj (ma 5 stron) i przekopiowuje wszystko co jest na 1 stronie wkleja do 1 zakładki w excelu w konkretnej kolumnie np.AN, następnie przekopiowuje wszystko z 2 strony pdf i wkleja do kolumny AN w drugiej zakładce i tak do końca 5 strony. W skrócie otwórz PDF-> 1 strona CTRL-A,...
Pierwszą rzeczą, która przychodzi do głowy jest Autofiltr na przemian przez kolumny i Kopiuj SpecialCells(xlCellTypeVisible)
Dzięki PRL za pomoc! Już jest prawie dobrze. Jest tylko jeszcze jeden mankament. Otóż jeżeli np. w wierszu G2 mam wartość 5 to makro kopiuje wiersz 2 pięć razy a powinno kopiować 4 razy. Ilość skopiowanych wierszy razem z tym, który pozostaje powinna być taka jak wartość w komórce w kolumnie G jeszcze przed uruchomieniem makra. Czyli suma wierszy po...
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
Dlaczego w ogóle te dane kopiujesz do Worda? Nie jest tak, że po skopiowaniu drukujesz etykiety na palety? Co to znaczy 'nadpisywać numery'? W załączniku plik xlsm - podwójne kliknięcie w kolumnę 'Dostawa'.
Pytanie podstawowe: czy potrzebujesz kopiować tylko wartości, czy też formaty? Bo w tej chwili to, co robi to makro, to kopiuje wartości "aa" z kolumny A do C, co jest raczej średnio przydatne - równie dobrze można tą wartość tam wpisywać...
pokazyje błąd. Nie powinno tak być, albo nie rozumiem. WYSZUKAJ.PIONOWO(A1;Y!A:B;2;0) tylko wtedy, jeśli LICZ.JEŻELI(Y!A:A;A1)>0 Innymi słowy jeśli w Y jest, w przeciwnym razie zapisz ""(empty string) Czy możliwe by nie zmieniał komórki Arkusza X. jesli nie wyszuka w Arkuszu Y odpowienika ? Nie, bo jesteśmy wszystkie formuły przepisze w klatki kolumny...
A możesz wrzucić kawałek przykładowego arkusza?
No faktycznie moze zle napisalem - obojetne czy to bedzie stop, koniec, razem czy inny ustalmy ze to bedzie slowo "xxxx" ma zakonczyc kopiowanie Ale cos skleje i wrzuce Dodano po 12 maly prosty przyklad - XXXX moze za kazdym razem byc w innym polu, ale tylko raz moze wystapic Moge policzyc ilosc wierszy do skopiowania (mam makro), ale nie umiem tego...
Chciałbym utworzyć makro które będzie kopiowało określone kolumny do innych plików. Nie ma tam zamieszczonego Makra, bo nie wiem od czego zacząć niestety. Chciałbym, żebyście mi pomogli utworzyć jakieś podstawowe makro do kopiowania danych do innych plików. Cały folder z danymi chciałbym, żeby mógł być przenoszony do innych folderów (jako kopia), ponieważ...
Witam, potrzebuję pomocy potrzebuję makro które kopiowało by dane z kolumny A (tylko jeżeli obok w kolumnie coś jest) do drugiego arkusza do kolumny A, a te dane które zostały to do arkusza 3 w kolumne A
Dziękuję za pomoc. Najlepszym rozwiązaniem okazało się zrobienie makra, które kopiuje automatycznie zawartość pierwszych trzech kolumn do nowego arkusza. Dodano po 1 Nagrałem makro kopiujące potrzebne dane do nowego arkusza
A takie coś nie wystarczy? Po wykonaniu skryptu kopiujesz 2 kolumny wynikowe na nowy arkusz i wklejasz specjalnie tylko zawartość.
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...
Witam serdecznie! Potrzebuję stworzyć makro, które kopiuje zawartość kolumny do wierszy, które nie są obok siebie. Na ten moment stworzyłem makro dla 10 ciu wartości z kolumny A2. Kopiuję jedno po drugim i wklejam do wybranych wierszy jednak sprawa dotyczy 1000 wartości. Czy można ten kod skrócić? [syntax=vbscript] Sub kopianum() ' ' kopianum Makro...
Faktycznie, to o kolumny chodziło. Dzięki za pomoc.
Cześć, Chciałbym napisać makro, które będzie kopiowało daną wartość z kolumny w dół kolumny w pustych wierszach, do momentu napotkania innej wartości. Nie mam pomysłu jak to zrobić. Proszę o pomoc.
Nagraj makro i zobacz jak wygląda. Możesz je zmodyfikować.
ja bym zrobił tak, ze zrobiłbym rzeczywiście pomocnicza kolumnę C, gdzie łączyły by się zawartości obu kolumn np =A2&B2. Wtedy wkepujemy funkcję wyszukaj pionowo w kolumnie D gdzie będziemy wyszukować wartości z kolumny C ( z arkusza docelowego) i porównywać je z tabelą z arkusza roboczego odnoszącej się do kolumny nr 3 (jeżeli zaznaczasz jako tabelę...
Witam Mam plik 1.xls. Jak napisać kod do makra, które otwierałoby plik z pulpitu (wskazany przeze mnie), kopiowałoby wszystko z pierwszego arkusza z kolumn A:N i wklejało wszystko do arkusza Dane do kolumn A:N w pliku 1.xls?
Ok, troszke musialem modyfikowac moj arkusz... I musze cala sytuacje nakreslic od nowa: W bazie w "Arkusz1" szukam okreslonego powtarzalnego "tekstu" w kolumnie "H". Jesli znajde np. w kolumnie H5 kopiuje odpowiadajace mu wiersze A5:D5 do "Arkusz2" rowniez do A5:D5 na sam koniec. Unikatowa wartosc wystepuje w kolumnie "A" i chcialbym zeby makro sprawdzalo...
dopiero zaczynam przygodę z VBA To zacznij od nagrywania makr (włącz rejestrator makr zaznacz interesujące cie dane kopiuj - wklej specjalnie + transpozycja i masz makro)
Tak jak napisał Kolega, Excel nie jest programem bazodanowym, więc takie działania nie będą zbyt efektywne. Niemniej 5000 wierszy to nie jest jeszcze liczba przerażająca. W jednym z wcześniejszych postów był podany schemat kopiowania. Jeśli to Ci nie wystarcza i nie potrafisz sobie tego dostosować, to załącz wreszcie przykładowy plik, w którym dokładnie...
Witam, mam pytanie chciałbym napisać makro albo zrobić pole w którym po wpisaniu danej wartości, excel szukał by "kolumnie A" wpisanej wartości np 23. Następnie kopiował dane z kolumny B,C,D znajdujące się obok wartości 23 w inne miejsce
Dziękuję za zainteresowanie. Odpowiadam na zapytanie w kolejności. 1. Plik Excela z rozszerzeniem .xls 2. Tak arkusz ma nagłówki, które ręcznie usuwam wraz z niepotrzebnymi mi kolumnami. 3. Skrót "scr" pochodzi od słowa screen oznaczające rzut ekranu. https://obrazki.elektroda.pl/3419958100_... https://obrazki.elektroda.pl/5743212300_...
Witam, pokrótce opisz mój problem na podstawie zamieszczonego poniżej pliku 'przykład1'. Makro które w nim utworzyłem ma za zadanie: kopiować z arkusza '3' wiersz z ciągiem 4 cyfr do arkusza '1'. Potem z tego arkusza kopiować kolumnę 'J' do arkusza '4'. W przypadku analizowanego przykładu, makro ma się zakończyć, gdy wszystkie wiersze (30) z arkusza...
Bardzo dziękuję. Miałem kłopot z uruchomieniem kodu ale już ok. Sprawdziłem, prawidłowo przekopiowuje dane. Jest tylko mały problem. Podany kod kopiuje mi wyłącznie dane z pomiędzy kolumnami N a nie kopiuje danych kolumny M. Czy da się coś z tym zrobić?
Bo jesli dodasz dwie kolumny do każdego działu, to w makrze Kopiuj() musisz poprawić krok wyszukiwania z 4 na 6: [syntax=vb]For kol = 1 To 255 Step 6[/syntax] i, ewentualnie, tam gdzie teraz kopiujesz komórki od C do E zwiększyć od C do G i kol+5: [syntax=vb]Worksheets("Arkusz1").Range("... & Selection.Row & ":G" & Selection.Row).Copy .Range(.Cells(wiersz,...
https://obrazki.elektroda.pl/4025704200_... Na czerwono zaznaczyłem Dodano po 2 Powinien skasować wartość z C3, C5 itd. Nie wstawił wiersza 6 Za to wstawił wiersz 11 nie wiadomo dla czego Dodano po 1 Dołączam plik z kopiowaniem dla wszystkich kolumn
Pierwsze makro - czy ma znajdować jedynkę w tekście, który może być dłuższy, czy też wyszukiwać komórki tylko z jedynką, a komórki gdzie jest coś więcej ignorować?
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! Przy takim układzie danych (powtarzające się wartości w kolumnach :!: ) :cry: IMHO musisz szukać rozwiązania w zaawansowanym filtrowaniu :D np jak w https://www.elektroda.pl/rtvforum/viewto...
Witam, Mam dane w lewym górnym rogu i chcę by makro kopiowało mi tak dane jak te które są pośrodku arkusza (te na niebiesko). Czyli input=dane w lewym górnym rogu, output= dane na niebiesko. Ja to zrobiłem w 2 częściach (gdyż jest to urywek większego makro które chce stworzyć i robie je w kilku częściach by się nie pogubić:) ). Pierwsze makro sprawdza...
Witam wszystkich serdecznie. Bardzo potrzebuję pomocy. Wszystko opisane jest w załączonym pliku. Opisywanie tego na sucho, bez wglądu w plik, raczej nie będzie zrozumiałe, więc napiszę możliwie prosto: W kolumnie "l.p" wprowadzona jest liczba porządkowa produktu, a w kolumnie "ilość" liczba produktów tego samego typu. Makro kopiuje dane z wierszy (jeden...
Jeśli makro, to prosta pętla 'Do-Loop' z instrukcją warunkową. Ale, z kolumną pomocniczą, można i bez makra (załącznik)
Witam, Przepraszam, że odkopuję temat jednak nie mogę przebrnąć przez jeden problem. Skorzystałem z pliku z początku wątku udostępnionego przez marcinj12, dostosowałem go do swoich potrzeb, dokumenty ładnie się generują, jednak gdy do kolumny kopiują się dane z kolumny z innej tabeli to makro tych danych nie widzi. Proszę o pomoc
Wszystko działa wspaniale jak określę zakres dokładnie, czyli np. B8:H50 . Ale jak ma sam określić jak znajdzie 2020 ACTAUL to niestety nic się nie kopiuje. To 2020 ACTUAL jest w kolumnie B, nie H - może stąd problem?
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...
Chociażby namiastkę obsługi błędów - makro zatrzymuje się, gdy trafi na pracownika bez podanych miesięcy kalendarza ... dodanie obsługi błędu. Tylko co w takim przypadku - makro ruszy dalej po uzupełnieniu miesięcy dla pracownika czy trzeba "zapodać" makro od początku? chętnie bym zobaczył w pliku - mianowicie "RESET" do stanu początkowego Zrobione...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Podmień linijkę wklejania. Podaję cały blok copy-paste dla porównania kolRight = Range("d2").End(xl... Range(Cells(wrsLeftTop, 4), Cells(wrsLeftTop + 1, kolRight)).Copy Range(Target.Address).Offset(... 1).Select Selection.PasteSpecial Paste:=xlPasteFormats Application.CutCopyMode...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
kopiowanie kolumn makro makro kopiowanie wybranych kolumn excel makro kopiowanie kolumn
gniazdo tłumić chrysler voyager zasilania państwowa inspekcja
zehnder comfoair konica minolta c3350
Instrukcja obsługi podgrzewacza Siemens DH 1800 Dlaczego gniazdka we Francji są podłączane odwrotnie?