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...
W wolnej chwili wyklikałem na klawiaturze kilka linijek. Wydaje mi się, że wygodniej będzie Ci przystosować mój krótki kod. [syntax=vb]Sub Podziel() Dim a As String, a1 As Worksheet Set a1 = Sheets("Arkusz1") ow = Cells(Rows.Count, "D").End(xlUp).Row f = True Sheets("Arkusz1").Select For x = 5 To ow a = a1.Cells(x, 16) If f Then y = x f = False End...
Witam [syntax=vbnet]Sub SumaC() Dim ws As Worksheet For Each ws In Worksheets If ws.Name <> "RYDER" Or ws.Name <> "PORTAL" Then ws.Cells(2, 1).Value = "suma" ws.Range("B2") = "=SUM(I4:I50)" End If Next ws End Sub [/syntax]
No tak... W #1 jest Cells(2, 3), czyli C2. Ja użyłem C3, a w ostateczności Ty użyłeś C1.;)
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 czy moge dolaczyc do watku, jak mozna zmienic komorki docelowe zeby byly w innym pliku i w roznych miejscach nie nastepujacych po sobie> dzieki za pomoc Witaj wielkie dzięki za pomoc. Działa dokładnie tak jak chciałem ;-) pozdrawiam Wydzieliłem jako nowy temat. Nie podpinaj się pod cudze wątki (w dodatku archiwalne). RADU23
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...
Witaj [syntax=vb]Sub kopije() r = Val(Trim(InputBox("Podaj numer wiersza do skopiowania"))) If r = 0 Then Exit Sub Sheets(1).Range("A" & r & ", B" & r & ",D" & r & ",G" & r).Copy Sheets(2).Range("A1") End Sub [/syntax]
Możliwe, że Autor ma w Arkusz2 formularz, który ma być wypełniany z wybranego wiersza Arkusza1 i następnie drukowany. No ale to tylko Autor wie, a jakoś się nie zgłasza.
Witam. W której części wiersza? makro które kopiuje wybrane wiersze z innego arkusza Jak go zobaczyć?
Super. Działa tak jak powinno tylko z małym szczegółem po skopiowaniu wiersz nie znika z pierwotnego arkusza
Witam serdecznie Chciałbym przerobić poniższe makro tak by kopiowało ono cały arkusz do nowego tam gdzie w pierwszym wierszu dla kolumny jest słowo "Tak" Korzystam z makra który kopiuje wybrane wiersze, tzn jeśli w kolumnie A jest wartość "Tak" Gorąca prośbą o pomoc w przerobieniu makra Sub kopiuj_do_nowego_pliku() Dim x&, y&, last_row&, wks As Worksheet,...
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, Mam takie pytanie mam takie makro które przeszukuje wybrana kolumnę E2:E8 i sprawdza czy wartości są różne od zera jeżeli tak to zaznacza wiersz od A do E mam prośbę żeby przekopiować dane z tych komórek ale same wartości to co mam na teraz to Sub zaz() Dim wiersz As Integer, i As Integer i = 0 For wiersz = 2 To 8 If Cells(wiersz, F) <>...
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...
A może chodzi o coś takiego: [syntax=vb] Option Explicit Sub Posklejaj_Klik() Dim i As Long Dim Wprowadzone As String Dim IloscArkuszy As Long Dim OstWierszArkusz1 As Long IloscArkuszy = ThisWorkbook.Sheets.Count Do While Not IsNumeric(Wprowadzone) Wprowadzone = InputBox("Wprowadź od którego arkusza chcesz sklejać dane", "Sklejanie", "2") Loop i = Wprowadzone...
Tak zaawansowany nie jestem :/ Ostatnia linijka Dodano po 7 Ogólnie z tym plikiem tekstowym jest taki problem, że generuje się raz 50.000 stron raz 60.000, innym razem 42.000 itp. i około 90% z nich jest mi nie potrzebnych. I teraz tak: 1. Mam makro, które częściowo obrabia ten plik - i chodzi, jak trzeba 2. Makro do wyszukiwania potrzebnego mi zakresu...
Czyli tak. Wpisuje nową datę np. w I4, następnie naciskam ctrl+n co powoduje że wiersze od I4 do P4 przesuną się na pozycję J4 do Q4. Czy tak? Jeszcze nie wiem o co ci chodzi z kopiowaniem.
kopiowanie pojedynczych wierszy może być baaaardzo niewydajne. Zastanów się czy nie lepiej posortować tabelę i skopiować tylko wybrany kawałek. Schemat kopiowania pojedynczego kawałka (przykład praktycznie używany, przy pewnych założeniach): Workbooks(S).Activate Range("A2:A" & Range("A2").End(xlDown).Row).Copy ThisWorkbook.Activate Sheets("Arkusz1").Range("A2").PasteSpeci...
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...
Witam, mam prośbę, potrzebuję zrobić pewne makro i nie mam pojęcia jak. Problem jest następujący Mamy arkusz1 i trzy komórki np. B1, C1, D1 wpisuję w nie pewne wartości, zadaniem makra jest przenieść te dane (ale tylko C1 i D1) do innego arkusza np arkusz2 w odpowiednie dwie komórki np. B10, C10, z tym że komórki docelowe powinny być wybrane również...
Dzień dobry, mam skoroszyt w którym jest 3200 arkuszy i każdego arkusza mam do skopiowania klika wybranych danych do kolejnych kolumn kolejnych wierszy podstawowego arkusza BAZA. Usiłuję napisać makro, które z każdego z tych arkuszy by przenosiło wybrane dane, utknąłem na takim etapie jak procedura podstawowa ma wrócić po kolejne dane do tego wybranego...
Mam nadzieję, że nie zamęczam. Musiałem niestety odrobinę przemodelować tę tabelę stąd też pytanie - Co w poniższym kodzie, trzeba zmienić żeby zamiast kol. B,C,H przerzucał kol. B,C,V z arkusza "kontrole" (kolumny od R stanowią tablice pomocnicze - w zał. plik)? [syntax=vbscript] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column...
Witam, Jako, że to dopiero moje początki w VBA proszę o pomoc. Potrzebuję stworzyć jak najprostsze makro żeby po kliknięciu przycisku kopiowało wybrane komórki (zawsze będą one w jednym wierszu) z Arkusza1 do Arkusza2 w kolejny pusty wiersz zaczynając od wybranej przeze mnie komórki i dodając przed całym tym ciągiem kopiowanym kolejnej liczby porządkowej....
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...
Dziękuję za zainteresowanie tematem. Plik załączyłem. Nie jest skompresowany ale na szybko zrobiłem tabelę bez makr z prostymi formułami. W tym pliku potrzebuje uzyskać automatyczne kopiowanie z arkusza "Tabela zbiorcza" wybranych elementów wiersza gdzie w kolumnie "C" pojawia się słowo żarówka. Chciałbym żeby to działało na arkuszu google i żeby zmiana...
.. a czy jest sposób na "zero", potrzebuje aby aktualne dane z ostatniej godziny (cały wiersz, kilkanaście kolumn) przenosiły się na koniec tabeli, będe bardzo wdzięczny za pomoc, pozdrawiam.. hmm może przy aktualizacji makro mogłoby sprawdzać dane z wybranej kolumny >0 i kopiować cały wiersz..
Witam serdecznie Kolegów. Mój problem polega na stworzeniu makra do excela, który kopiuje konkretne komórki do nowego arkusza. Nie są to całe wiersze czy kolumny, ale wybrane według pewnego algorytmu. W pierwszym arkuszu (cennik) znajdują się kolumny: A-nazwa usługi B-cena netto C-ilość szt. z VAT 8% D-ilość szt. z VAT 23% Załóżmy, że w wierszach znajdują...
Przepraszam, faktycznie podałem mało informacji, ale pisząc post zakładałem, że problem jest już rozwiązany, nie szukałem pomocy, chciałem osobom, którym Excel sprawi podobne kłopoty zasugerować, co może pomóc. A to ma sens na dużym poziomie ogólności, wątpię, żeby kod tu wiele pomógł, zwłaszcza mało zaawansowanym użytkownikom makr, takim jak ja. Do...
Zaimportowałem plik raportu miesięcznego magazynu do Arkusz1 , mam w nim trzy kolumny : nr dokumentu, nr zlecenia i wartość. W pliku występuje co losową ilość wierszy podsumowanie danego zlecenia. Potrzebuję makro wyszukujące wiersz w którym w komórce (pierwsza kolumna) wystąpi tekst „Razem konto” a następnie zostanie wykonane kopiowanie...
Chcę aby moje makro kopiowało wybrane dane z dokładnie 4 arkuszy do innego arkusza. Arkusz docelowy: W docelowej zakładce w wierszach znajdują się nazwy danych a w kolumnach daty generowania tych danych Arkusze źródłowe: 1. Są zapisane w tym samym folderze 2. Różnią się tylko końcową datą (rok-miesiąc) 3. W wierszach znajdują się nazwy danych a w kolumnie...
"Podświetlam" tzn zmieniam kolor czcionki? Nie ma tu nic typu "Selection", natomiast warunkiem jest kolor wypełnienia =Range("L4"). Rozumiem, że makro ma sprawdzać co już jest skopiowane, kopiować tylko wybrane (jak? kolor tła, zaznaczenie) rekordy i zmieniać kolor czcionki na jakiś inny niż poprzednio. Można warunkować kolor na podstawie ostatniego...
Nie rozumiemy sie. Podałem Kod makra które działało na plikach tekstowych i chcialem go wykorzystac do pobierania danych z plików excel. Dowiedziałem się od Ciebie że tak się nie da, wiec bede kombinował inaczej. Może doprecyzuje dokładnie co chce osiągnąć. Chce połączyć pliki excelowe w jeden plik Excel. Moje pliki z których chce kopiować dane wygladają...
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...
Po modyfikacji wg Twoich sugestii kod się uprościł :) i działa jak trzeba Wielkie dzięki :) Sub Kopio_aktyw_wiersza() ' Kopiowanie danych z aktywnego wiersza kol. A do D kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row aktywny_wiersz = Selection.Row For x = 1 To 4 Cells(ostatnia + 1, x) = Cells(aktywny_wiersz,...
Witam serdecznie, To mój pierwszy post na forum, tak więc prosiłbym o wyrozumiałość :) Prosiłbym o pomoc w sprawie kopiowania zawartości z jednego arkusza do drugiego na pdst konkretnej zmiennej. W Arkuszu1 mamy listę zamówień firm. Kolejnym arkuszem jest WZ. Chodzi o to, aby po wybraniu z listy numery zamówienia dane uzupełniały się z pierwszego zamówienia....
Witam, tak jak napisałem w temacie piszę makro w celu umożliwienia sobie kopiowania warunkowo danych na przecięciu konkretnej kolumny z konkretnym wierszem, warunkiem jest to by na przecięciu wiersza i kolumny znajdowała się jakakolwiek wartość. Muszę tym samym sprawdzić wszystkie wiersze po kolei, w tym celu napisałem kod: wszystkie wartości z danych...
Witam Panowie, zwracam się do Was z gorącą prośbą o przygotowanie makra (sam mam jeszcze zbyt małą wiedzę na ten temat), które będzie kopiowało dane z jednego arkusza do drugiego przy zachowaniu warunku daty to raz, a dwa wyszukiwało jeszcze pionowo odpowiedniego wiersza do wklejenia wartości. Krok po kroku: 1)W arkuszu "ESKA" w polu G10:I12 wybieramy...
Witam, potrzebuję pomocy z makrem. Czy ktos zmodyfikuje to makro tak zebym: 1) Mógł wpisać "z palca" numer wiersza z którego kopiuje (wszystkie kopiowana dotyczą zawsze jednego, wybranego wiersza). Ew. co tez jest dobra dla mnie opcja chcialbym moc wskazac myszka wiersz. 2) Mógł używać makra do aktualnie otwartego pliku (tego, do którego chcę skopiować)?...
makro kopiujące makro kopiujące arkusz makro kopiujące wiersz
jaeger licznik peugeot kompresor akumulator ustawić mikser
energa zgłoszenie mikroinstalacji energa zgłoszenie mikroinstalacji
Liebherr 316 – zamienione przewody hydrauliczne, brak drugiego biegu, diagnostyka usterki Schemat przewodów hydraulicznych Liebherr A316 – opis układu, identyfikacja, manual serwisowy