Po zakończeniu kopiowania nie jest zwracania na pierwszy arkusz
[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...
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ę.
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.
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ę.
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
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ć.
tak jak podano przez kolegę
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...
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...
Zobacz przykład. Makro uruchamiane jest przez dwuklik w komórce z krzyżykiem...
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??
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
Wszystko jest ok. A jak zrobić, żeby każda kolumna z pliku txt została wklejona do Excela również w oddzielnych kolumnach?
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 ... :-)
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:
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...
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?
[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]
Witaj, makro powinno działać z przycisku, lub wybierając komorku w kolumnie D?
Funkcja jeżeli, jeżeli pole obok nie jest puste wypełnij wartością zgodnie z uznaniem.
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 :(
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...
Witam ponownie Mam problem z umieszczeniem procedury sprawdzającej czy jest włączony autofiltr i jeżeli jest, to wyłączający go. Znalazłem poniższy kod na forum [syntax=vbnet]If ActiveSheet.AutoFilterMode Then Cells.Select Selection.AutoFilter[/... nie potrafię włączyć go do swojego makra, żeby przed skopiowaniem kolumn z otwieranego pliku...
komorka to jest Cells(wiersz, kolumna)
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]
A filtr oraz kopiuj - wklej specjalnie nie wystarczy?
Pierwszą rzeczą, która przychodzi do głowy jest Autofiltr na przemian przez kolumny i Kopiuj SpecialCells(xlCellTypeVisible)
Witam. Mam coś takiego: Sub kopiowanie() Dim LastRow As Long Range("A6:B7").Sel... Selection.Copy Sheets("Arkusz2").Sele... If WorksheetFunction.CountA(Cells) > 0 Then LastRow = Cells.Find(What:="*", _ After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row...
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ć.
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.
A wbudowany filtr oraz kopiuj-wklej nie wystarczy?
: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...
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.
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....
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...
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...
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...
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
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.
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"?
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]
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...
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...
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.
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
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'.
Nie wiem, czy mogłoby to ułatwić temat, bo właśnie skończyłem manualne obrabianie tego pliku. I wiem, że dane z poszczególnych wierszy można kopiować np w ten sposób: Dane z pod wierszami A1-G1 do wierszy G2-N2 i da sie kilka takich potrzebnych wierszy wpisać jako stała. Lecz potrzebne byłoby sprawdzenie, czy nazwy danych nie uległy zmianie tzn wiersze...
A takie coś nie wystarczy? Po wykonaniu skryptu kopiujesz 2 kolumny wynikowe na nowy arkusz i wklejasz specjalnie tylko zawartość.
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....
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...
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...
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...
Nie do końca rozumiem. Możesz wrzucić plik ?
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.
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...
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ć?
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...
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.
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
Faktycznie, to o kolumny chodziło. Dzięki za pomoc.
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
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?
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
A nie wystarczyło by nagrać makro, które kopiuje wszystkie te kolumny do jednej i usuwa duplikaty?:>
Mam na myśli to że w pliku z którego są kopiowane dane w komórkach pierwszego wiersza są nazwy kolumn.
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)
niech kopiuje tylko kolumnę D i E. bo to co jest w kolumnie D i E bedzie usuwane :)
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,...
Nagraj makro i zobacz jak wygląda. Możesz je zmodyfikować.
A bez makra? Spróbuj =PRAWY(B1;DŁ(B1)-ZNAJDŹ(...
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...
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! 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...
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, 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...
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...
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ć...
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,...
Super dziękuję bardzo :) Mam jeszcze niestety jeden problem, następnego dnia gdy wygeneruję nową tabelę w arkuszu "wydruk" i uruchomię to makro to w arkuszu "zobowiązania" podmienia mi wszystkie numery księgowe, albo na nowe albo wywala "#N/D!"... da się jakoś to pominąć aby zajmował się tylko tymi wierszami które spełniają kryteria? Jeszcze pytanko...
Dzień dobry, od kilku tygodni poznaję język VBA. Stworzyłam proste makro kopiujące dane z kolumny "I" ( z 3-ech kolejnych arkuszy) i wklejające te dane do arkusza o nazwie "oferta" do kolumn: I, J, K. W rzeczywistości arkuszy mam o wiele więcej, przykładowo piszę o 3-ech. Jeśli miałabym np. 30-ści arkuszy kod byłby bardzo długi i szukam rozwiązania,...
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ż...
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...
A możesz wrzucić kawałek przykładowego arkusza?
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...
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...
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...
Mam makro, które kopiuje ze wskazanego pliku kolumny A:N i wkleja do odkrywanego arkusza w pliku z makrem. Takich plików, z których są kopiowane kolumny może być do 9 (może być mniej). Arkusze do których są kopiowane kolumny mają nazwy 'I L", "II L" itd do "IX L". Jak zrobić, żebym nie musiał każdorazowo uruchamiać makra do każdego pliku. Chodzi mi...
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.
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...
Jeśli makro, to prosta pętla 'Do-Loop' z instrukcją warunkową. Ale, z kolumną pomocniczą, można i bez makra (załącznik)
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
W tym, że nie ma kopiować całego arkusza. Jak znajdzie w kolumnie O i wierszu 10 wartość większą niż 70, to ma kopiować i wklejać do innego pliku tylko wskazane wartości z kolumn i wiersza 10.
makro kopiowanie kolumn makro kopiowanie wybranych kolumn excel makro kopiowanie kolumn
elektryczny drzwi przesuwny czujnik temperatury objawy kable tynkiem
wentylator kolumnowy adapter światłowodowy
Wymiary i wykonanie półki głośnikowej do Fiata 126p Pralka Frania Daewoo - śmigło nie startuje samodzielnie