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ć.
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...
tak jak podano przez kolegę
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:
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?
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...
[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...
[syntax=vbscript]ActiveSheet.AutoFilterM... = False[/syntax]
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ć.
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.
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...
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...
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....
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.
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...
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...
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.
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]
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, 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...
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.
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'.
A takie coś nie wystarczy? Po wykonaniu skryptu kopiujesz 2 kolumny wynikowe na nowy arkusz i wklejasz specjalnie tylko zawartość.
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...
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
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....
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...
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...
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.
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...
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...
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ć?
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
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...
Faktycznie, to o kolumny chodziło. Dzięki za pomoc.
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
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 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.
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 :)
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...
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Ź(...
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?
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...
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,...
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ż...
A możesz wrzucić kawałek przykładowego arkusza?
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...
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...
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,...
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...
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...
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...
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...
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.
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...
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
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...
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...
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 excel makro kopiowanie kolumn makro kopiowanie wybranych kolumn
actros mercedes wyświetla pilot samsung zacina lodówka wybrzuszona
arcam avr300 kalibracja hydrostatu
Smart GPS SG 732 – instalacja AutoMapy bez pełnego odblokowania Windows CE 6.0 Uszczelki sprężarki AHS-23/30 FOS Polmo Łódź – komplet, materiały, zamienniki
