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...
Tu masz kod tego makra. Procedurę SzukajUlicy() podepnij pod jakis przycisk. Myślę, że z resztą sobie poradzisz. [syntax=vb] Option Explicit Sub SzukajUlicy() Dim ws As Worksheet Dim lWiersz As Long Const lKolumnaUlicy As Integer = 5 'E lWiersz = 4 'początkowy wiersz zawierający dane Dim sNazwaUlicy As String Dim Znalazlem As Boolean sNazwaUlicy = InputBox("Podaj...
Dodano po 3 [syntax=vb]Sub Copy() For Each cell In Sheets(2).Range("A:A") If cell.Text = "" Then Exit For Rows(cell.Row & ":" & cell.Row).Copy Sheets(cell.Value).Cells(Rows.Count, 1).End(xlUp).Offset(1) Next End Sub [/syntax] tak dobrze
Witam Mam problem potrzebuję kopiować wiersze z jednego arkusza do drugiego, niby proste bo wysarczyłoby właczyć auto filtrowanie i fitrować po jednej kolumne w moim przypadku 3 gdzie wartość jest "polecony" i ręcznie wkopiować do innego arkusza, ale sprawa jest bardziej skąplikowana i systematyczne dopisując dane w arkuszu wyjściowym trzeba by reczne...
Bez zbędnych selectów [syntax=vb]Sheets("Arkusz1").Range("G20"... Destination:=Sheets("Arkusz2").Range("G2...
Zerknij do załącznika. Kod zoptymalizowałem przy okazji... Zrobiłem przykładowe kopiowanie z trzech kolumn, aby było łatwo połapać się przy modyfikacji.
Już w poprzednim wątku zwracałem uwagę, że dane mają być reprezentatywne. Tam nie było nic o tym, że numery bloków mogą się powtarzać i wobec tego w kodzie była wykorzystana zmiana numeru bloku w stosunku do poprzedniej. Teraz przyjąłem, że jeśli blok jest złożony z kilku elementów, to numeracja po / zaczyna się od 1. Trzeba te bloki jakoś rozróżniać....
witam, mecze sie straszliwie z makrem, ktorego zadaniem jest skopiowanie wiersza z jednego arkusza, zindentyfikowanie przy pomocy numeru ID pozycji tozsamego wiersza w drugim arkuszu i doklejenie do istniejacego juz wiersza w tym drugim arkuszu. proobuje rozmaitych rzeczy ciagle wychodzi mi runtime error. [syntax=vbscript]Dim MIP1, MIP2 Dim i As Long...
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...
[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]
Moja sugestia jest jednak taka, żeby te pliki wrzucić do tabeli w Accessie i tam je analizować. To a propos pytania "co byście zmienili". Jeśli już się uprzeć przy pliku, to usuwanie większej ilości wierszy pojedynczo poleceniem .Delete jest baaaardzo wolne, zagnieżdżona pętla też nie pomaga. 4 pomysły na przyspieszenie: 1. Kopiować znajdowane wiersze...
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...
No tak... W #1 jest Cells(2, 3), czyli C2. Ja użyłem C3, a w ostateczności Ty użyłeś C1.;)
Witam [syntax=vbnet]Sub SumaC() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "RYDER" Or ws.Name <> "PORTAL" Then ws.Cells(2, 1).Value = "suma" ws.Range("B2") = "=SUM(I4:I50)" End If Next ws End Sub [/syntax]
Może to Ci pomoże. Makro, dla podanej "szukana" przeszukuje każdy wiersz. Jeżeli znajdzie szukaną to kopiuje cały wiersz i przenosi do innego arkusza Dodano po 3 jeszcze raz bez zbędnych żeczy :) [syntax=vb]Sub Szukaj() Dim wiersz As Integer, kolumna As Byte, szukana As String, NumerWiersza As Integer Dim lastRow As Integer With ActiveSheet lastRow...
Błąd wskazuje na problem z adresowaniem. Jeżeli chcesz tego użyć to musisz sam podiagnozować. 1. W którym wierszu jest błąd? 2. Zawartość wszystkich zmiennych użytych w tym wierszu. 3. Czy elementy, do których są odwołania, istnieją?
[syntax=vb]wiersz = 6 Sheets(1).Activate While Cells(wiersz, 1) <> "" Cells(wiersz, 2).Copy Sheets(Cells(wiersz, 1).Text).Range("C8") wiersz = wiersz + 1 Wend [/syntax]
Bardzo Was proszę o pomoc bo jest świeży w tym temacie. Kto jest świeży w temacie?
Wkleiłem 3 pierwsze słowa (bez 'z') z Twojego tematu do wyszukiwarki. Patrzyłeś już na te tematy? http://www.elektroda.pl/rtvforum/topic17... http://www.elektroda.pl/rtvforum/topic16... http://www.elektroda.pl/rtvforum/topic16... Edycja po zgłoszeniu przez autora do moderatora: Jeśli tym tokiem rozumowania pójdziemy, to będziemy...
Witam Mam taki problem posiadam arkusz1 i chciałbym za pomocą przycisku skopiować wiersz 1 do arkusza2 pod ostatni wypełniony wiersz. Problem w załączniku. Dzięki za pomoc
Usuń duplikaty ani tabela przestawna tu się nie przyda bo dochodzi warunek że usuń gdy puste ale nie gdy puste w Re_3 Stworzyłem w sumie proste makro (ono tylko tak wygląda) Pierwsza część kodu przepisuje wszystkie linie mające to samo zlecenie. Później następuje sortowanie. Następnie warunek sprawdza czy (w moim przypadku coś1) się powtarza jeżeli...
kopiuje wiersze z jednego arkusza i wkleja w inny z makrem, które zrobi update stanu magazynu tak wkleja lub update? kolumna A - indeks matriałowy, kolumna B - wydanie/ przyjęcie Zwykle SUMA.JEŻELI w magazynie nie graje? Dodano po 1 Dołącz przykład
Można formułami. W arkuszu źródłowym zastosowałem kolumnę pomocniczą (K). W wynikowym formuła w A1 kopiowana w prawo. Przy kopiowaniu "rozjeżdżają" się formatowania, ale korekta to 1-2 kliknięcia...
było by super Co było by? Testowalem Twój kod na XL2007 i XL2003 (inne nie mam) - wszystko dziala poprawnie
Spróbuj[syntax=vb]Sub Makro2() Dim wrs As Integer, kol As Integer wrs = 1 kol = Sheets("4").Cells(1, Columns.Count).End(xlToLeft).Column + 1 With Sheets("1") Do While Sheets("3").Cells(wrs, 1) <> "" .Range("A1:D1").Value = Sheets(3).Range("A" & wrs & ":D" & wrs).Value Sheets("4").Range(Cells(1, kol), Cells(30, kol)).Value = .Range("J1:J30").Value...
(at)maciejgonet, dzięki wielkie, kod działa. Poprzednio zastosowałem taką samą metodę, ale nie byłem pewny jej poprawności, bo wyskakiwały błędy. Teraz wiem, że było to spowodowane błędem w nazwie jednego z arkuszy. (at)kinggustav, wszystko jest odpowiednio rozplanowane ;)
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...
Witam! Jestem tu nowy więc pozdrawiam wszystkich! Przeglądałem to forum i wiele rozwiązań zastosowałem w moim skoroszycie, jednak nie potrafię poradzić sobie z takim problemem: chodzi o kopiowanie wiersza z jednego arkusza do drugiego w zależności od daty zawartej w jednej z komórek. Chodzi o przekopiowanie danych z KP i KW do raportu kasowego. Kopiowane...
Spróbuj kopiować w trybie edycji komórki (klawisz [F2], dwuklik), nie do arkusza.
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]
może być, tylko żeby kopiowało całe wiersze do nowego arkusza
[syntax=vb]Sub kopie_zakres() With Sheets("Arkusz3") pw = .Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Arkusz2").Range("A2:Y2").Copy .Cells(pw, 1) End With End Sub [/syntax]
Witam, Szukam sposobu na rozwiązanie takie problemu: Mam plik, który zawiera kilka lub kilkanaście arkuszy. Liczba arkuszy jest zmieniana na bieżąco (zazwyczaj są dodawane) Chciałbym aby do jednego arkusza powiedzmy pierwszego były kopiowane wierszami wartości konkretnej komórki z każdego arkusza (oprócz tego, w którym jest raport). W każdym arkuszu...
dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie... każda tabela z danymi ma inna liczbe wierszy . Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także liczba arkuszy ale dane zawsze znajdują się w ostatnim . Wszystkie pliki z...
Jeżeli ma pobierać dane zawsze z tego samego wiersza to przed indeksem wiersza wstaw $ (np Arkusz1!Q$124), podobnie jest przy kopiowaniu w kolumnach "blokuje" się dolarem indeks kolumny (np. Arkusz1!$Q123) można też zablokować bezwzględnie kolumnę i wiersz ($Q$124). Techniki te nazywają się adresowaniem bezwzględnym.
Miałem chwilę to dokończyłem. Dodałem zaliczki wpłacone na prąd i poprawiłem ostatnią formułę bo nadpłata lub niedopłata za 2020 to co innego niż odsetki. Wcześniejsza formuła nie sumowała odsetek. w rejestrze formuły są wprowadzone w zielonych polach. Wyniki pojawią się jak wpiszesz nowe nazwisko. Po wpisaniu nowego nazwiska w rejestrze na liście osób...
Nie wykrzacza się, ale nic nie kopiuje. Arkusz pozostaje pusty...
Bo ten przykład to tylko wycinek arkusza i poniżej będą jeszcze dane. Kopiuje od wiersza 3 do ostatniej, wypełnionej komórki w kolumnie F. P.S. A ciężko samemu sprawdzić???
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 mam problem a przyznam że makr/vba do tej pory nie używałem mam raporty które generują się codziennie, w zależności od miesiąca 30-31 raportów jeden raport składa się z 3 arkuszy, nazwy arkuszy są niezmienne, chciałbym automatycznie kopiować całą zawartość wierszy które w 2 kolumnach spełniają różne warunki. dodatkowa trudnosc jest taka ze 1 warunek...
Cześć, potrzebuje pomocy w zmodyfikowaniu kodu. Mam taki poniżej kod i zauważyłam, że nie kopiuje do "zbiorczo" ostatniego wiersza z pozostałych kopiowanych arkuszy. W arkuszu "panel" mam przyciski z innymi makrami i chciałam, żeby był pierwszy. Kod skopiowany z Internetu i trochę zmodyfikowany przeze mnie. I przez moje dopiski makro trochę się wysypuje....
U mnie ten kod działa. Pytanie, czy zrozumiałeś co on robi? Bo sprawdza występowanie fragmentu "www" w kolumnie A (od drugiego wiersza) w aktywnym arkuszu (tym, który jest aktywny gdy odpalasz makro). PS. Zmienna poz jest niepotrzebna, została po innych fragmencie.
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...
Ale że jak? Jak masz n (ciągła numeracja?) arkuszy to dla każdego 1..n-1 to wykonać? Jedną komórkę czy wiele? Z R2 do R1, czyli wiersz do góry? Samo kopiowanie komórki jest proste z wykorzystaniem zapisu proponowanego przez JVR: Sheets("DATA ENTRY " & s+1).Cells(y,x).value=Sheets("DATA ENTRY " & s).Cells(y,x).value Dołóż do tego odpowiednie pętle i...
Z częścią sobie już poradziłem. Ale czy mogę dostać chociaż podpowiedź w jaki sposób stworzyć Macro, które będzie kopiowało cały wiersz z jednego arkusza (po naciśnięciu odpowiedniego przycisku) i przenosiło go do drugiego arkusza - nadpisywało, tzn stare wiersze będą zostawione, a nowy będzie lądował zawsze poniżej ostatniego zapisanego wiersza? Dzięki...
Wyjaśnij dokładnie o co Ci chodzi. Czy to mają być formuły czy makro? Kiedy miałoby nastąpić to kopiowanie? Co by je wyzwalało? Gdzie dokładnie (do którego wiersza) miałyby być kopiowane te dane? Domyślam się, że chodzi o kopiowanie tylko wartości, ale nie napisałeś tego wyraźnie (dane, to nie tylko wartości, ale również formuły, formatowanie itp.)....
Najprościej: Zarejestruj sobie nowe makro wykonując potrzebne czynności a potem zobacz w edytorze VB jak wygląda kod. U mnie wyszło coś takiego (kopiowałem jednocześnie 5 i 10 wiersz do wiersza 1 i 2 w drugim arkuszu): Sub Makro1() Range("5:5,10:10"&... Range("A10").Activate Selection.Copy Sheets("Arkusz2").Sele...
Tak "skok" to wiersz()*3 (funkcja wiersz() zwraca nr wiersza w której jest wpisana ta funkcja) w związku z powyższym: -3 i -4 to "korekta" początku Jeżeli zmienisz komórki z danymi i komórki z "wynikami" może być konieczność skorygowania właśnie tego początku i ewentualnie kolumny w funkcji adres.
Witam, Potrzebuję pomocy osoby doświadczonej w posługiwaniu się Excelem. Stworzyłam raport, ale nie do końca spełnia on moje oczekiwania. Proszę o pomoc. Dodam, że wszystko w Excelu robię metodą prób i błędów, ale tym razem nie mam pomysłu, jak poprawić formuły… W arkuszu „Karta” w kolumnie AE (i adekwatnie AI, AL., AS, AV, AZ, BD)...
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
Czyli typowa gospodarka magazynowa? W załączniku przykład wykorzystania 'dialog box'. W zasadzie jest wszystko o czym piszesz: -wyszukiwarka - wpisz w Combobox (nie wybieraj z listy) początek frazy, Np "ś" -dopisywanie kolejnych wierszy w różnych arkuszach (tu wz, pz) Oczywiście chodzi o formę, nie treść. P.S. 1. Pojęcia nie mam skąd mam ten plik. Najprawdopodobniej...
Cóż, taka już natura Excela... Pewnie wklejają się wszystkie odfiltrowywane wiersze, tylko jeden pod drugim, począwszy od pierwszego widocznego. Jak po tej operacji zdejmiesz filtr, to wszystkie odfiltrowywane wartości z kolumny A powinny być w kolumnie C, tylko jedna pod drugą. Nic na to nie poradzisz, trzeba po prostu być ostrożnym przy używaniu filtra...
A to wyłączyli wszystkie wyszukiwarki - google i naszą "forumową" :?: :cunning: Ja sam ostatnio wrzucałem ze dwa makra wykorzystujące kopiowanie wyfiltrowanych danych: - https://www.elektroda.pl/rtvforum/viewto... ; https://www.elektroda.pl/rtvforum/viewto... Jak masz dodatkowe wymagania odnośnie daty...
[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...
Kopiuj wklej nie wystarczy. Muszę to robić kilka razy w miesiącu i za każdym razem jeden arkusz muszę przerabiać kilka razy a mam kilka arkuszy. Więc na zwykłe kopiuj wklej to cały dzień roboty. Znalazłem różne informacje na forum, ale nie udało mi się tego uruchomić, żeby działało. Jak wspomniałem jestem zielony jeśli chodzi o makra. Wczoraj cały dzień...
Być może było to: Sheets("rejestr").range("N1") = Target.Row ale nazwy arkuszy może mieć symbole narodowe (ś, Ł, ó itp), że w redaktorze WBA nie mógł napisać. W menedżera nazew zadałem nazwę dla komorki N1 'wiersz', które następnie mogą być używane w formule
Witam. Nie mogę uporać się z kopiowaniem zmiennego zakresu z jednego arkusza do drugiego. Sytuacja wygląda następująco. Z arkuszua1 kopiuję zakres np. A2:M20 (ilość kolumn jest zawsze stała, ilość wierszy się zmienia) i musze go wkleić do arkusza2 od kolejnej niepustej komurki w kolumnie A. Z góry dzięki za wszelką pomoc. Pozdrawiam MałyLesiu
Witam, Szukałam przez dłuższy czas na forum makra mi potrzebnego ale nie znalazłam. Mam arkusz z danymi i w jednej z kolumn przypisuję kategorię B,C lub N . Jeżeli zostanie nadana kategoria B to chciałabym, żeby obok w kolumnie został nadany numer. Tylko że numeracja ma iść według kolejności uzupełniania wiersza, a nie po kolei. (pokazane w załączonym...
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...
komorka to jest Cells(wiersz, kolumna)
Kopiuje wszystkie malinowe wiersze. Ma być inaczej?
Bez makr, to najprościej ;) : Wstaw nowy arkusz, w A1 wklej =ADR.POŚR("Arkusz1!"&ADRES... i skopiuj/przeciągnij w dół. Następnie możesz zaznaczyć kolumnę wynikową i przez...
Witam! Szukam i szukam od rana i znaleźć nie mogę. Problem mam taki: Mam kilkanaście plików Excela. W każdym kilkanaście - kilkadziesiąt arkuszy. W każdym arkuszu jakieś dane. Potrzebuje zrobić podsumowanie tego w jednym skoroszycie. Chciałbym, abym mógł wskazać plik z którego pobierałby dane ze wszystkich arkuszy z dwóch różnych wierszy i wklejał do...
Makro działa. Mam jeszcze jedną prośbę. Proszę mi pokazać gdzie ustawia się aby kolumny i wiersze, które kopiują się do arkuszy poszczególnych sklepów miały tą samą szerokość i wysokość co dane wyjściowe ? I co musi zawierać kod makra aby podczas ponownego wczytywania danych usuwały się nie tylko stare dane, ale również stare zdjęcia. Bardzo proszę...
Proponuję rozwiązanie jak w załączniku. Najwygodniej będzie nazwać używane zakresy: użyłem nazwy "lista" na określenie kolumny nazwisk (długość listy trzeba dopasować do potrzeb - edycja w Menedżerze nazw), "dane" to zakres danych liczbowych - w przykładzie zaczyna się w komórce C4 arkusza "dane", "rok" to oznaczenie roku, które umieściłem w komórce...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Dane z niepustych komórek kolumny D w arkuszu 'WROWADZANIE...' mają być kopiowane do odpowiednich wierszy w arkuszu '2020'. Dokładny sposób opisałam właśnie zmiennymi, bo inaczej trudno mi to wyjaśnić. Np. D7 (arkusz 2)- kolumna J (arkusz 1) D8 (arkusz 2)- kolumna L (arkusz 1) D9 (arkusz 2)- kolumna N (arkusz 1) ... To w którym wierszu ma być wpisane...
1. Tabelka w arkuszu źródłowym może być tymczasowo posortowana aczkolwiek zawiera bardzo dużo wierszy (>120 tys.) 2. Taka sytuacja będzie miała miejsce cyklicznie dlatego makro ma ułatwić "rozrzucanie" danych po arkuszach. Nie ma potrzeby sprawdzania czy dane nie będą się powtarzać. Zakres kopiowany z arkusza źródłowego będzie zawsze wklejany do arkusza...
Witam. Tworzę w excelu tabelkę systematycznie się ona powiększa. W jednej z kolumn mam wpisywaną datę produkcji wyroby. Jak zrobić żeby po upływie 3 lat od daty produkcji, cały wiersz w którym jest umieszczona ta data kopiował się do pierwszego wolnego wiersza w innym arkuszu tego pliku?
Gdybyś jednak pozostał przy Excelu. Można to zrealizować stosując dwie pętle For , zagnieżdżając jedną w drugiej. W pierwszej kopiujesz (przez przypisanie) wiersze z "nowego" arkusza do docelowego, w drugiej porównujesz wspomniane cztery komórki z każdym wierszem "starego". Jeśli warunek jest spełniony oznaczasz jakoś ten wiersz (kolorem wypełnienia,...
Witam, Mam zakres danych a1:l52, interesowało by mnie jakiego użyć kodu ażeby kopiowało mi wiersze gdzie w kolumnach od b do l są dane. ważne żeby przy kopiowaniu wiersza do nowego arkusza kopiowało również wartość z kolumny a
Jak już masz te dane, to dalej kwestia zapoznania się ze strukturą plików KML i wygenerowania wiersza tekstu dla jednego punktu. Ja to zrobiłem w Excelu. Potem metodą kopiuj/wklej, a raczej przeciągnięcia, tworzysz potrzebną ilość takich wierszy. Jak chcesz, to mogę podrzucić arkusz. Wklejasz to do pliku *.txt, zmieniasz rozszerzenie na *.kml i gotowe....
W jednym arkuszu co jakiś czas jestem zmuszony tworzyć min. 5 wierszy (odpowiednio sformatowanych) i jest to dosyć czasochłonne, dlatego od kilku dni zmagam się z napisaniem makra, które by to trochę usprawniło. Chodzi o to aby przez buttony móc kopiować 5 wierszy z jednego arkusza do drugiego w odpowiednim miejscu. Problem polega na tym, że te miejsca...
Najszybciej zrobisz to bez excela ;) 1. Zainstaluj sobie Notepad++ (Freeware) 2. Skopiuj do niego zawartość arkusza. Lub zapisz arkusz jako csv i otwórz w Notepad++ 3. W Notepad++ zamień znak tabulatora "\t" (jesli kopiowałeś) lub średnik ze spacją "; " (jeśli zapisywałeś csv) na znak nowej linii ("\n"). Musisz użyć wyszukiwania rozszerzonego 4. Wynik...
Witam. Chciałbym prosić o pomoc w stworzeniu formuły, która będzie kopiowała wiersze z arkusza bazy do innych arkuszy. Kryterium kopiowania musi byc wartość w kolumnie A (gniazdo główne). Czyli jeżeli w kolumnie A jest Flowpack 1 to kopiuj wszystkie wiersze Flowpack 1 do Arkusza Flowpack 1. Jeżeli w kolumnie A jest Flowpack 2 to kopiuj wszystkie wiersze...
Powiem tak na szybko: :) Znaj moje dobre serce :) W załączeni przykład z różnymi układami. Wybierz który ci pasuje ewentualnie połącz w jedno. Ponieważ jest możliwość wielu wystąpień jednego tematu na chwilę obecną nie wiem jak to ugryźć bez wiersza pomocniczego (wiersz 2 - ukryty w arkuszu1 [komórka kopiowana w bok - w prawo]) I druga rzecz w w funkcji...
Generalnie Excel tak już ma, że zakres złożony traktuje jak osobne zakresy i drukuje je na osobnych stronach. "Rozumie" natomiast ukrywanie wierszy. Wierszy ukrytych nie drukuje, pomimo że są zawarte w obszarze wydruku. Wiersze można ukrywać ręcznie, za pomocą filtra lub za pomocą grupowania. Nie pokazałeś żadnego konkretnego przykładu, więc trudno...
Namotałeś z tym kodem. Skąd dokąd i co chcesz kopiować?
zostały skopiowane poniżej tabeli tyle razy ile jest w komórce E10 (Qty - quantity) czyli najlepiej n-1 razy . każda naklejka to jeden wiersz . Jeżeli w danym wierszu pole ilośc (qty) jest większa np 50 to wydrukuje się jedna naklejka . Nie potrafię zrozumieć logiki Twojego arkusza i opisu :cry: Na ogół drukarki drukują z Excela to co jest ustawione...
Dzień dobry, Na wstępie chciałabym zaznaczyć, że jestem zupełnym laikiem jeśli chodzi o bardziej zaawansowane działania z wykorzystaniem formuł EXCEL. Przejrzałam tematy wydające się być podobne do tematyki mojego problemu, jednak nie znalazłam konkretnej odpowiedzi. Mam następujący problem. Chciałabym, aby po wprowadzeniu określonej wartości w Arkuszu...
W arkuszu z pięcioma obszarami scalonymi nadal dobrze wskazuje ilość komórek dla każdego obszaru O ile obszary te nie stanowią ciągłej grupy, czyli są rozdzielone przynajmniej jednym wierszem i/lub kolumną, czyli stanowią pięć oddzielnych obszarów w arkuszu. Natomiast jeśli obszary te byłyby zagregowane np. jeden pod drugim, to wtedy " CurrentRegion.Rows.Count...
Witam. Domyślam się że to co potrzebuję jest bardzo proste. Mianowicie potrzebuję pomocy żeby stworzyć przycisk dzięki któremu będę mógł kopiować wartości z jednego arkusza do aktywnego arkusza (w którym znajduje się przycisk) do konkretnej kolumny z tym żeby jak będzie kopiować do kolejnego pustego wiersza. Czyli np. po naciśnięciu przycisku z arkusza...
Piszesz w sposób tak mętny, że trudno Ci pomóc. Dlaczego nie używasz normalnych adresów komórek, tylko nadajesz jakieś własne dziwne adresy, że potem trudno się połapać o co chodzi. Piszesz cały czas o polu (komórce) D12, ale to jest w arkuszu F12 (chyba o tę komórkę chodzi?). Nie wiadomo, czy jest Ci potrzebna tylko ta jedna formuła, czy chcesz ją...
Witam wszystkich. Jestem totalnym lajkonikiem ;) jeśli chodzi o visual basic a chciałbym zbudować makro, które filtrowałoby całe zestawienie pod kątem jednej kolumny a następnie kopiowało pozycje do innego arkusza. Chodzi mi o to, żeby wszystkie pozycje, które (załóżmy) w kolumnie E mają wartość TAK/NIE zostały wklejone w inne miejsce. Nie wiem jak...
Pisząc "pusty wiersz" masz na myśli puste wszystkie wiersze do końca arkusza czy dosłownie, tylko jeden. W takim przypadku musisz powiedzieć co zrobić z danymi za pustym wierszem. I dlaczego chcesz kopiować tylko kolumnę A a nie od razu wszystkie 25? Jeżeli wariant 1 to schemat kopiowania w VBA może być mniej więcej taki (z pamięci, nie testowane):...
Witam Chodzi o to podam przykład działania makra Z Arkusza kraje1 program kopiuje nazwę jednego kraju z listy- pierwszego i wstawia nazwę tego kraju w komórkę J1 w arkuszu Dane1, następnie kopiuje dane do 2 arkuszy , następnie przechodzi do następnego kraju z listy drugiego i wstawia nazwę w komórkę J1 (kasując poprzednia) dane się przeliczają dla drugiego...
:arrow: tang0 1. Z pewnością zauważyłeś, że warunkiem jest nierówność. 2. Do kopiowania używa się instrukcji Copy 3. Jeśli cały wiersz to Rows(i) Mały przykład kopiowania wierszy pomiędzy arkuszami For i = 1 To 3 'dla 3 wierszy Sheets("Arkusz1").Rows... Sheets("Arkusz2").Rows... Next Z resztą...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
Witam, Proszę o pomoc, jestem bardzo początkujący i nie wiem czy w ogóle jest możliwe zrobienie czegoś takiego w MS Excel: Posiadam plik roboczy A zawierający listę z nazwami plików (XYZ) w innej lokalizacji (kilkaset plików). Plik A jest edytowany na bieżąco - dane zmieniają się w wierszach do momentu zamknięcia sprawy (jedna sprawa - jeden wiersz...
A może założyć trigger na kolumnie J z eventem Worksheet_change, w chwili zmiany komórki w kolumnie J przenieść wiersz z aktywnego wiersza do Zestawienia Wydatków. Edit. RADU23
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...
Skoro chcesz podzielić te dane na arkusze, to tak naprawdę wystarczy jedna pętla for, która dla każdego wiersza z danymi sprawdza, czy istnieje arkusz o nazwie równej nazwie klienta - a jeśli nie to go tworzy - po czym kopiuje do niego dany wiersz (lub zakres wierszy od-do, jeśli te dane masz uporządkowane po kliencie).
Mam taką sytuację że mam makro które kopiuje wybrane wiersze z innego arkusza. Chciałby aby w arkuszu do którego kopiowane są wiersze w każdym wierszu pojawiał się przycisk który przeniesie do arkusza z którego dane zostały skopiowane i zaznaczy ten wiersz. Mogę liczyć na pomoc?
Dzień dobry, mam taki problem. Zrobiłam w Excelu przycisk, do którego przypisane jest makro kopiujące i wklejające 3 ostatnie wiersze. W jednej kolumnie są scalone 3 wiersze do jednej komórki i jest w niej lista rozwijana. Gdy włączę ochronę arkusza (na wybrane komórki, nie na tę z listą rozwijaną) to ta lista nie kopiuje się do kolejnego wiersza. Kopiuje...
Witam, Jestem totalnie zielony z VBA a chciałbym sobie pomóc w pracy. Mam dwa arkusze gdzie z jednego kopiuję dane do drugiego przy czym komórki kopiowane są do jednego wiersza , czy mógłby mi ktoś pomóc napisać kod który automatycznie by kopiował komórki z jednego pliku do drugiego przesyłam przykładowe pliki Dziękuję 881425 881424
... Potrzebuję przekopiować każdy z wierszy z arkuszy Teryt Gminy, Teryt Mapy. itd i wkleic go do odpowiedniej kolumny w arkuszu "Polaczone dane z gmin" 21 razy 828643 ... 'cóś tu sie' kopiuje, ale czy o to chodziło (?) ... jak zrozumiałem, tak napisałem ... :D
Jak pisze kolega zimon wylosowanie jednej liczby z wielu jest dosyć proste. Ale jeżeli chcesz "wymieszać", to dla Excela znaczy, że chcesz wylosować 1000 z 1000 bez zdublowania. Musisz podzielić to na etapy, wykorzystać kilka funkcji w tym WYSZUKAJ.PIONOWO i dlatego dane muszą zostać ułożone we właściwy sposób. W moim przykładzie użyjemy trzech kolumn....
Witam, Mam następujący problem. Mam arkusz o zmiennej ilości wierszy. Wypełnione kolumny zawsze od A do J. W kolumnie A występują kody, kody mogą się powtarzać- dla ułatwienia jeśli się powtarzają są jedne pod drugim ale nie ma stałej określonej liczby powtórzeń. Chodzi mi o to by makro sprawdzało kod w kolumnie A - unikat kopiujemy do Arkusza 2 z wartościami...
Dostałam stary arkusz zbierający dane z dużej ilości arkuszy wsadowych. Mam makro w VBA napisane wieki temu przez kogoś kogo już w firmie nie ma. potem wiele osób to przerabiało i nie ma tam żadnych komentarzy. Musieliśmy zmienić pliki wsadowe i zakładki w pliku zbierającym i drobne przeróbki w makro powodują wywracanie się pliku. Chciałabym napisać...
Trzeba dopisać lub zmienić warunek... Makra, z wyjątkiem procedur zdarzeniowych, umieszcza się w modułach.
kopiowanie jednego arkusza kopiowanie wierszy innego arkusza kopiowanie arkusza
wymiana wsadu eeprom wymiana silnika nawiewu zrobić cennik
naprawa paneli fotowoltaicznych satel indigo
Junkers ZS23KE wyciek wody ze śrubunku nagrzewnicy - uszczelka czy o-ring? Świecące diody w suszarce Candy Smart Touch - co oznaczają?