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.
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=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]
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...
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
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.
[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...
Witam! Może ktoś pomoże. Problem jest nastepujący: W arkuszu1 mam dane: Kolumna A ( np: 20 nazwisk), kolumnach B,C,D dane handlowe dotyczące tych 20 ludzi. Codziennie wpływają nowe dane. Nastepne arkusze 2,3...21 nazywam nazwiskami tych handlowców, w których mam już skopiowane dane z poprzednich dni. Kopiowanie odbywa sie recznie.To jest:Kopiowanie...
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...
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
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
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
Namotałeś z tym kodem. Skąd dokąd i co chcesz kopiować?
Podsumujmy: 1a. Czy powyższy kod ma kopiować do arkusza "Zbiorczo" ostatni wiersz z innych kopiowanych arkuszy, 1b. Czy też powyższy kod ma kopiować do arkusza "Zbiorczo" wszystko (jakaś tabela, zakres komórek, itd.) z innych kopiowanych arkuszy, ale robi to pomijając ostatni wiersz Pytanie: Z jakich arkuszy i skąd one są kopiowane - z jakiegoś innego...
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...
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ć....
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]
każde kolejne sczytanie z czytnika do Arkusza "NAZWA ODDZIAŁU" A2 kolejno wklei dane do pustej komórki w Arkuszu "DANE" Jeśli skaner korzysta tylko z komórki A2 :?: to możesz wykorzystać makro jak w załączniku 1063586
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. W której części wiersza? makro które kopiuje wybrane wiersze z innego arkusza Jak go zobaczyć?
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]
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ą?
To można też zrobić filtrem zaawansowanym. Arkusz2 musisz sobie najpierw utworzyć i skopiować do niego wiersz z nagłówkami kolumn. Kolumna z NIPami musi mieć taki sam nagłówek we wszystkich arkuszach. Dla ułatwienia zdefiniowałem Ci nazwy obszarów, które są potrzebne. W Arkuszu2 uruchamiasz filtr zaawansowany (karta Dane). Jeśli na początku pojawią...
Witam, Rzeczywiście w Arkusz2 jest szablon(formularz), który ma być wypełniany z wybranego wiersza Arkusza1 i następnie drukowany. Kol. E celowo została pominięta. Dane z tej kolumny (i kilku innych) są kopiowane do innego arkusza, ale do wierszy. Tzn. dane z wybranych kolumn konkretnego wiersza są kopiowane do innego wiersza, tu nie ma problemu bo...
Witam Jestem zupełnie zielony jeśli chodzi o makra i potrzebuję pomocy szanownych kolegów. Mam w arkuszu dane, dużo kolumn i dużo wierszy. Prosiłbym o pomoc w napisaniu makra, które sprawdza wartości w jednej z kolumn np BT i jeśli w aktualnie sprawdzanej komórce występuje jakaś wartość (komórka nie jest pusta) kopiuje cały wiersz do innego arkusza,...
Tak. Ale ja mam skrypt, ktory realizuje bajery i kopiuje te wiersze do innego arkusza i potrzebuje aby mi te wartości zamienił.
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...
Bardzo Was proszę o pomoc bo jest świeży w tym temacie. Kto jest świeży w temacie?
Dzięki, działa super. Jakie wprowadzić zmiany, żeby dane wejściowe będą analizowane od 4 wiersza kolumny B w jednym arkuszu i wstawiane od 6 wiersza kolumny C innego arkusza?
Twój kod będzie działał, jeśli przeniesiesz go do modułu standardowego: Menu>Insert>Module
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...
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...
Dzień dobry, Kolumnie z nazwami produktów należy nazwać np. "Nazwa". Zastosowałem dynamiczną definicję, żeby listę produktów można było uzupełniać: [syntax=text]=PRZESUNIĘCIE(Baza!$A$2;;;I... Wartości z sąsiednich kolumn odczytamy stosując funkcję PRZESUNIĘCIE. W tym przypadku są to formuły zwykłe, które można kopiować....
było by super Co było by? Testowalem Twój kod na XL2007 i XL2003 (inne nie mam) - wszystko dziala poprawnie
Wydaje mi się, że wystarczyło by użyć funkcji wyszukaj.pionowo. 1. po pierwsze wartości z kolumny e (tak/nie) muszą się znaleźć pierwszej kolumnie Twojego arkusza z danymi (jeżeli w pierwsze kolumnie "A" znajdują się już jakieś wartość to musisz wstawić nową kolumnę i teraz w komórce A1 wpisujesz formułę "= F1" ("F" ponieważ po wstawieniu kolumny wszystko...
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...
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?
Jeżeli chcesz się dalej uczyć to proponuję kolejne ćwiczenie: zrób to samo wyciągając parametry kopiowanych obszarów do pomocniczego arkusza sterującego, tu lepsza będzie pętka do while po wszystkich niepustych wierszach arkusza pomocniczego. Czyli wpisujesz w 1 wierszu nazwę arkusza (np w A2) i nazwę obszaru (np w B2 => I1:I), a potem kopiujesz: [syntax=vbscript]...
Parametry strony - wpisz nagłówki wierszy, będą one na każdej stronie. umieścić marginesy strony, aby pomieścić 8 wierszy + nagłówki.
Witam mam napisany kod vba: [syntax=vb] Sub ZnajdźKopiuj() Dim zn As Long On Error Resume Next With Sheet1.Range("A1:BD1") Set zn = .Find(What:="Szukana fraza", _ After:=.Cells(1, 1), LookIn:=xlValues, _ Lookat:=xlWhole, MatchCase:= False ) If zn Is Nothing Then Exit Sub zn(1, 3).Copy Range("Wklej Tu") End With End Sub [/syntax] Po delikatnych modyfikacjach...
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...
: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ą...
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...
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...
Cześć, Jestem tutaj pierwszy raz i będę wdzięczny za pomoc. Mój problem polega na tym, że szukam marka, które zrobi tak: 1. W arkuszu 2 mam komórkę w której będę wpisywał wartość odpowiadającą liczbą w arkuszu 1, kolumna A. Obok komórki będzie przycisk do makra. 2. Po wpisaniu liczby, makro musi pobrać dane odpowiadajace poszczególnym komórką z wiersza...
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. 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...
To już wystarczyło zmienić numery wierszy w adresach. Natomiast ważne, aby nie kopiować formuł tablicowych do scalonych komórek. Generalnie to ze scalonymi komórkami same kłopoty. Scalanie komórek - jeśli jest konieczne - powinno być ostatnią czynnością w arkuszu, po umieszczeniu wszystkich danych i formuł. Pozdrowienia
Ja pracuję na excelu XP i 2003 wszystko działa jak trzeba. Po włączeniu autofiltru i ustaleniu jakiś kryteriów zaznaczam dane (całą tabelę) http://obrazki.elektroda.net/1_127307734... przykładowe dane: http://obrazki.elektroda.net/94_12730764... ustawienie kryterium http://obrazki.elektroda.net/50_12730764... wynik: http://obrazki.elektroda.net/54_12730764...
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...
Przykład (z kolumną pomocniczą) w załączniku. Dalej: w arkuszu wynikowym formuła oparta o funkcje: INDEKS, PODAJ.POZYCJĘ, WIERSZ. Podobny temat [url=http://www.elektroda.pl/rtvforum/to... Zwróć uwagę na kolumnę pomocniczą "L" oraz wynikową "I".
Właśnie tak jak mówisz zrobiłem wcześniej, tylko że przy kopiowaniu tych wierszy i wklejeniu na innym arkuszu wklejają się te wszystkie ukryte wiersze (po naciśnieciu na 2 ukrywaja się). Mógłbym kopiować same wiersze ale to w *** klikania :( Bardziej podobał mi się Twój wcześniejszy pomysł, tylko nie wiem jak wybrać sobie do Twojej formuły wszystkie...
Nie ma problemu - zmienimy pętlę warunkową na zwykłą. Na marginesie, jak widać w twoim załączniku, numery pisma przy "anulowaniu" dokumentu też są usuwane. Najpierw sprawdzimy ile jest wierszy, a potem pętlą będziemy sprawdzać czy wiersz nie był już skopiowany i czy ma numer zadania. Jeżeli tak to go przerzuci, jak nie "pójdzie" dalej. (taki wiersz...
do tabeli z z filtrowanymi danymi (badaniami) po prostu wkleić z innego arkusza inne dane (badania) Teoretycznie jest to możliwe, ale moim zdaniem znacznie łatwiej przeprowadzić to poprzez stworzenie kilku nowych arkuszy dla określonych zestawów (kilka wyfiltrowanych wierszy z Tabeli 1, oraz jeden wiersz z "pakietem") :idea: Jak zaczniesz kopiować...
Przy porannej kawie pomyślałem jak bym sobie to usprawnił. W arkuszu "S1" (śniadanie), zrobiłem "bazę" i tabelkę do składania jadłospisu. Wypełniałoby się tylko to, co zaznaczone ramką - czyli datę początkową oraz jakieś znaczniki w C3:H14 Arkusz wynikowy układa się "sam" (jest na formułach) - z wyjątkiem A1 oraz wiersza z alergenami (to też można zautomatyzować)...
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
test przekopiował się do arkusza 3, poczawszy od komówki B13 Do "komówki B13" nie ma sensu nic kopiować :cry: bo nie będzie nic widać :D spod scalonych A,B i C :cry: Rozumiem że chcesz przenieść te teksty do kolumny B począwszy od 18 wiersza :?:
Ale co Ci nie jeździ, bo nie bardzo rozumiem. Ten kod początkowo kopiuje wszystko, a te wiersze z zerami są usuwane dopiero później, kolejną częścią kodu. Ja nic w logice Twojego kodu nie zmieniałem.
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...
Chodzi o to, by podczas np. edytowania bazy danych, dane wynikowe były uzupełniane na bieżąco . Właśnie z tego powodu proponuje ci funkcje excelowskie a nie makro. To co ci przedstawiłem to pomysł. Wzbij się ponad chmury i spójrz pod innym kątem :). Nie daj się ograniczeniom i spójrz świeżym okiem :) . Bazy (ani dobrze przygotowanych kolumn pomocy)...
Makro, które zamieściłeś powinno być umieszczone w module uniwersalnym skoroszytu, a odwołuje się ono do arkusza aktualnie aktywnego oraz do arkusza o nazwie "Baza". Ponieważ w kodzie są pętle po wierszach i kolumnach, a ich adresy początkowe są zapisane na sztywno, to struktura (w sensie umieszczenia początku danych) musi być jednakowa dla wszystkich...
LibreOffice Calc miałem, nie ruszyło. Chyba czas się przesiąść na Offica Makro ładnie działa w Excelu, tylko że w momencie jak wpiszę cokolwiek w drugim arkuszu pliku, to już nie hula :/ Jak ograniczyć zakres tworzonego przez makro zestawienia tylko do pierwszego w kolejności arkusza, lub arkusza o konkretnej nazwie jeśli w każdym pliku nazwy arkuszy...
Witam proszę o pomoc przy opracowaniu pewnej reguły w excel. Chodzi o to, aby wypełnione komórki z arkusza 1 z kolumny X od wiersza 3 w dół, oraz wypełnione komórki z arkusza 2 od wiersza 3 w dół, były automatycznie kopiowane do arkusza 3 do pierwszej wolnej komórki w kolumnie E od wiersza 3. Można oczywiście z ręki kopiować właściwą komórkę do innej...
... bo w mojej wersji (2000) nie ma czegoś takiego ... Jest. To ta ikonka z pędzelkiem w menu. Obie metody mogą być, jednak ja bym tu zastosował inne kopiowanie - pod warunkiem że arkusze (nie tabele) są takie same. Zaznaczasz cały arkusz (klikasz w szary kwadrat między kolumną A a wierszem 1 - narożnik arkusza) dajesz kopiuj, przełączasz się na inny...
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...
Witam, Bardzo proszę o pomoc, potrzebuję zrobić makro, które skopiuje z arkusza "wydruk" komórki z kolumny C (numer księgowy) i przeniesie je do arkusza "Zobowiązania" do kolumny F (numer księgowy), ale posegreguje wpisy zgodnie z kolumnami "numer faktury". W obu arkuszach są te same dane w wierszach ale w innej kolejności, w arkuszu wydruk nadawane...
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 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...
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...
Co do daty, to rozumiem, bo tam elementem formuły jest DZIŚ(), które jutro będzie miało inną wartość, a Ty chcesz zachować zapis pierwotny. Natomiast w kolumnach A i C nie widzę takich elementów dynamicznych, więc nadal nie wiem po co te odwołania cykliczne. Zakładam, że nie są potrzebne. Działanie Excela nie zawsze jest przewidywalne. Dużo czasu zajęło...
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...
Zacznę od tyłu. c. Grafiki na arkuszu czwartym nie są w żadnej tabeli. Obrazki nie są zawartością żadnej komórki, więc nie znajdziesz formuły, którą przeniesiesz je na inny arkusz. Za pomocą VBA możesz je przenosić, kopiować w inne miejsca, usuwać. Ale to już wymaga trochę więcej zabawy. ponad a. Schowaj pole powiązane z Combo pod nim a w komórce w...
Piszesz, że dane są kopiowane z faktury do arkusza "Raport zbiorczy" ale z kodu wynika, że operujesz cały czas na jednym arkuszu - odwołujesz się do Range niepoprzedzonego innymi nazwami arkuszy... Najpierw przypisujesz jakieś wartości komórek do zmiennych, a potem te zmienne wypisujesz na inne komórki - nigdzie tu nie widać zmiany arkusza. To jak to...
Kopiuje wszystkie malinowe wiersze. Ma być inaczej?
Musisz napisać makro, które będzie wyszukiwało największą datę w powiedzmy arkuszu A ;) i zapisywało dane w pierwszym wolnym wierszu w innym arkuszu... Ewentualnie Ctrl+c, Ctrl+Alt+v -wartości
Na chwilę obecną mam VBA, które działa w następujący sposób: Jeśli w kolumnie "6" w arkuszu1 zaznaczę "x" to kopiuje odpowiednie komórki do pierwszego wolnego wiersza w innym arkuszu. Aby odwrócić działanie tego makra, dobrze byłoby wiedzieć gdzie te "odpowiednie komórki" lądują w 2-gim arkuszu. No wiesz, żeby nie biegać i szukać po wszystkich szufladach......
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.
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...
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...
Witam serdecznie. Chcę sobie utworzyć makro które strasznie mi ułatwi pracę, mianowicie: Mam kilka arkuszy z pozycjami cenowymi. Potrzebuję aby makro po zaznaczeniu wiersza kopiowało do wyżej wskazanego nowego arkusza zawartość całego wiersza ( tak, to jest wręcz banalne). problem polega na tym że nie mogę sobie poradzić z tym aby wklejał mi to w pierwszym...
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, 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
Witam, potrzebuje uzyskać kod vba, kopiujący dane z arkusza roboczego, do innego pliku excel (Baza). Przykładowo" Kopiowanie zakresu od A4:K4" z arkusza roboczego , do pliku excel (BAZA) , ścieżka C:\Users\_______\Dropbox\Logistyka]"BAZA... Kopiowanie według wolnych wierszy w pliku BAZA. Dziekuje.
Niestety na służbowym kompie nie zobaczę Twojego pliku, więc tylko kilka wskazówek. 1. Proponuję przygotować szablon do kopiowania w oddzielnym arkuszu, nieużywanym przez kontrolerów. Można tam zapisać w razie potrzeby coś jeszcze, a docelowo można go będzie ukryć. 2. Żeby skopiować obszar (tabelkę), musisz wiedzieć gdzie to trzeba skopiować. Możesz...
Ten arkusz przykładowy jest bardzo "zaśmiecony". Są tam jakieś zbędne scalenia, zwężone wiersze zasłaniające zawartość. Jeśli to ma być przekształcone w tym samym arkuszu, trzeba to wcześniej uporządkować. Ewentualnie wynik umieścić w innym arkuszu. Dane w przykładowym arkuszu są w formacie tekstowym. Tak ma zostać? Jest problem z ustaleniem daty początkowej...
masz pomysł jak to zrobić? Jak przenieść wyfiltrowane ID z zrzutu 2 do kryteriów filtra w arkuszu 2? Przenieść bez kopiowania :D - nie :cry: Teoretycznie można by utworzyć tymczasową tablicę dynamiczną z wyfiltrowanymi danymi i poddać ją ponownemu filtrowaniu (w pamięci), ale i wówczas musisz tą tablicę wynikową (lub same wyniki sumowania) gdzieś zrzucić...
Dzień dobry. Jak powinien wyglądać kod, który kopiował by wiersz z danymi dla określonego warunku. Mam tabele. Kolumny od A do Z. Chciałabym żeby kopiowało mi wszystkie wiersze jeśli w kolumnie E znajduje się słowo wymagane do arkusza 1 od wiersza 3. Pozdrawiam.
Wszystko się da, no ok prawie wszystko. :) Kolumny są oznaczane w Excelu literą lub numerem, więc jeżeli chcesz je kopiować to nie widzę problemu. Wystarczy opanować metodę range.Copy. Jeżeli musi to być po nazwie to zapisz gdzieś (inny arkusz?) listę nazw w pętli i rób range.Find w wierszu w którym są zapisane nazwy i pobierz Column znalezionej komórki...
chciałbym żeby w raz z usunięciem danych w komórce, również usuwał się wiersz tabeli W przedstawionym rozwiązaniu usunięcie indeksu powoduje "wyczyszczenie" całego wiersza :cunning: (jakkolwiek do tego celu wykorzystano odpowiednie formuły w tym arkuszu :D ) - nie wiem jak duże (ile pozycji ?) oferty przygotowujesz dla Waszych klientów , jeśli więcej...
Trzeba pogrzebać. Sposobów jest kilka. Najprościej InStr, Np[syntax=vb]Dim tekst tekst = Array("abRS21ch", "abRS22ch", "RS21abch") 'tu idzie sobie pętla For i = 0 To UBound(tekst) If InStr(tekst(i), "RS21") > 0 Then MsgBox "kopiujemy " & tekst(i) Else MsgBox "tego wiersza nie" End If 'tu nawrotka Next[/syntax]
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
Muszę tylko rozszyfrować najpierw tą formułę =JEŻELI(SUMA($G$4:G4)+ADR.POŚR("grafik!"... W załączeniu masz przykład tej samej funkcji ale bez szukania danych w innym arkuszy (tak jakbyśmy mieli stałe dane bazowe i nie...
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...
Wklej do modułu pliku z linka i uruchom. Makro w tej postaci "wydłubało" 1341 wierszy. Po wszystkim wyeksportuj, lub skopiuj arkusz "Wynik" do swojego pliku. Reszta w komentarzach.[syntax=vb]Sub Yoasia() ileArk = 2 'są dwa z danymi w pliku z linku. Zmień jeśli jest inaczej. 'tu sprawdzimy czy jest arkusz wynikowy, wstawimy jeśli nie 'nie zmieniaj kolejności...
"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...
Witam Potrzebuję stworzyć makro które będzie działało tak że przy pomocy przycisku będzie kopiowało wypełnione komórki w akruszu 1 (wielokrotnie wpisywanie rożne dane do tych samych komórek) do kolejnych wierszy w arkuszu 2. Przykład w załączniku. Będę wdzięczny za pomoc. Pozdrawia
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...
kopiowanie wierszy jednego arkusza kopiowanie arkusza kopiowanie wierszy
pompa wspomagać renault laguna otwarcie drzwi uzbraja sterujacy samsung
polonez abimex parkside robot koszący
Jak otworzyć boczną obudowę pralki PTL 800? Wybór żarówki: barwa zimna czy ciepła?