Ponieważ w Outlooku nie pracował, bo go nie używają. Ale wiem, że może mieć także makra i uruchamiania, może automatycznie zapisać plik w odpowiedniej lokalizacji i również rozpakowac go.
Dlaczego zmienna 'l' jest nadawana z wartości ostatniego wiersza (+1) z pliku 'b', a nie z 'a'?[/quote]
kopiowanie warunkowe wierszy Excel
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...
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....
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.
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...
Właśnie to pozwoliłem sobie zmienić w przesłanym przykładzie w makrze kolegi adamas_nt Wpisz zamiast ostatniWiersz = 100 to ostatniWiersz = Sheets("Arkusz1").Cell... 1).End(xlDown).Row Wtedy makro samo policzy ile jest wierszy i będzie się wykonywało tylko do ostatniego wiersza. Warunek dane w kolumnie...
Po złożeniu zamówienia w necie kumpel przepisuje teks na kartkę i mam zabawę wklepywania danych do excela. W excelu napisałbym mu makro ze skrótem klawiaturowym, ale z programowania jestem prawie zielony. Czy jest jakiś prosty sposób dodania do paska skrótów do aplikacji bądź skrótu klawiaturowego kopiującego zaznaczony tekst ze strony internetowej...
Proponuję zrobić przykładowy plik z danymi i dokładny opis czego oczekujesz od tego makra :?: Czy w gotowym arkuszu ma sprawdzić kolumnę A i w zależności od kryterium tekstowego skopiować określone wiersze do drugiego arkusza :?: Czy też po zmianie wartości w kolumnie A na określony tekst, kopiować ten wiersz do drugiego arkusza :D :?: A co wtedy ma...
Spróbuj kopiować w trybie edycji komórki (klawisz [F2], dwuklik), nie do arkusza.
Bez zbędnych selectów [syntax=vb]Sheets("Arkusz1").Range("G20"... Destination:=Sheets("Arkusz2").Range("G2...
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...
[syntax=vbscript]Sub DodajDoBazy() Warunek = 123 owv = Cells(Rows.Count, "V").End(xlUp).Row nwa = Cells(Rows.Count, "A").End(xlUp).Row + 1 For x = 1 To owv If Cells(x, 22) = Warunek Then Range(Cells(x, 22), Cells(x, 26)).Copy Range("A" & nwa) nwa = nwa + 1 End If Next End Sub [/syntax]
Cześć, Jestem początkujący w VBA, ale porwałem się, by przygotować skoroszyt obsługujący raporty kasowe i druk KP w szkole muzycznej. W załączonym pliku nie wiem jak napisać taki skrytp: W arkuszu "dane" wpisuję kwotę, którą za dany miesiąc wpłacił uczeń np. w komórce J8, i pozostawiam tę komórkę zaznaczoną. Uruchamiam makro, które przykleja do odpowiednich...
Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
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ć....
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
Na tą chwilę nie bardzo wiem, jak to poprawić. A przecież specjalnie Ci podpowiadałem :D możesz łatwo uchwycić obszar do aktualnego czyszczenia :arrow: jako obiekt Selection :D tzn. trzeba to zrobić raczej tak :spoko: [syntax=vbscript]Sub dodaj() Dim ile_w As Long Dim kom As Range Application.ScreenUpdating = False With ThisWorkbook.Sheets(ar_kusz)...
Aby "każdy następny wiersz będzie poszerzał zakres tej tabeli" można by go zapisywać w formacie (.xml) dane wiersza są zapisywane w pionie. (.xml) : <opis> dane_1 /<opis> <opis_a> dane_2 /<opis_a> (.xml) : <NrDomu>542</NrDomu> <NrLokalu>355</NrLokalu> <KodPocztowy>00-673</KodPocztow... <Miejscowosc>WARSZAWA</Miejscow...
Jeśli będziesz pamiętał o tym, żeby oznaczyć wiersz wpisany ręcznie, to da się bez VBA. Być może w v >2007 można to zautomatyzować (czytałem coś o funkcji ISFORMULA). Powrót do pierwotnego układu, polega na skopiowaniu komórek wiersza powyżej i usunięciu jedynki z kolumny M.
... ale makro jest przypisane do wiersza 1 . wiec muszę automatem skopiować makro do 2 wiersza ... Czy na pewno mówimy o makrze? Jak kopiujesz "automatem" makro ? Gdzie masz zapisane to makro. Wiesz co, opisz jeszcze raz bardzo dokładnie jakie jest źródło (ilu wersowe) - jaki jest plik docelowy itd. i co tak naprawdę chcesz A najlepiej zamieść swój...
Witam, Potrzebuję makra, które będzie kopiowało i wklejało zawartość wiersza w którym: Jeżeli w kolumnie G komórka zawiera wartość to wstaw <pod nią> wiersze n-1 i skopiuj dane z tego wiersza. Czyli w komórce g8 pojawia się wartość 3 to makro wstawia pod 8smym wierszem 2 puste i kopiuje cały wiersz 8 do wstawionych wierszy. Mam nadzieję że dość,...
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
Ćwiczyłem na tym Twoim skoroszycie i makro działało na wszystkich arkuszach. Uruchamiałem je z arkusza RAPORT i znajdował ulice w innych arkuszach, ale należałoby zamiast lWiersz dołożyć dodatkową zmienną sterującą pozycją wiersza w arkuszu RAPORT, bo wynik będzie rozstrzelony po wielu wierszach. Ale chyba sobie z tym poradzisz. Dzięki za punkty!
Czy ktoś wie w jaki sposób można skopiować tekst w Excela do Worda, w taki sposób, żeby na przykład z kopiowanego zakresu Excela A1:A10, treść z wiersza A1 została wstawiona do Worda jako nagłowek_1, a wiersza A5 jako nagłówek_2? Z góry dziękuję za pomoc.
Witam, co ma być zmodyfikowane w procedurze VBA, aby zadziałała. Procedura ma zadziałać w całym arkuszu w momencie w następujący sposób: 1. Jeżeli w kolumnie G ilość w pierwszym wierszu jest np. liczba 9, to ma dodać jeszcze 8 wierszy. 2. Ma skopiować dane z wiersza powyżej. 3. W kolumnie G w pierwotnym wierszu jak i skopiowanych wierszach ma być cyfra...
Dzień dobry, proszę o pomoc w napisaniu makra (pod przycisk Kopiuj), które kopiowałoby wartości z z kolumn B , AD oraz AE od wiersza 4 poprzedniego (poprzedzającego) arkusza do takich samych kolumn aktywnego. Excelem zajmuję się od niedawna i wszelka pomoc mile widziana.
Cześć, nadal próbuję sił w VBA. Idzie jak krew z nosa. Tym razem potrzebuję odczytać wartość komórki lub sekwencji z ciągu znaków, która zaczyna się na konkretną cyfrę (znak) "7". Dla rozjaśnienia. Mam zestaw danych w pliku kod.txt, który zawiera zestawy: - złożone z kilku wierszy (ilość zmienna, raz są trzy raz więcej) - poszczególne grupy zawsze zaczynające...
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
1b. Kod ma kopiować wszystkie na prawo arkusze z tego samego pliku i wszystko wrzucać do arkusza zbiorczo z ostatnim wierszem. Może opisze od początku moje działania: Mam plik XXX, w którym jest jeden arkusz o nazwie Panel. W nim mam różne porobione przyciski z makrami. Pierwszy przycisk pozwala mi na kopiowanie do mojego XXX danych z innych plików...
Cześć, jestem absolutnie początkująca jeśli chodzi o VBA, a dzięki makru chciałabym przyspieszyć trochę swoją pracę... no ale nie wiem jak i liczę na Waszą pomoc :) Mam tabelę z trzema kolumnami: - data_1 - data powtarzająca się - data_2 - data niepowtarzająca się kolejno posortowana - wartość - wartość na sztywno, wcześniej policzona suma skumulowana...
Jedyne operacje jakie są planowane na tym pliku to: - dodawanie usuwanie i ukrywanie odkrywanie wierszy - kopiowanie wierszy poprzez zaznaczenie całego i wklejanie w ten sam sposób wartości do nowego dodanego wiersza (tutaj wiem już że skopiowane wartości z zaznaczonego całego wiersza i wklejenie ich do nowo utworzonego nie są zapisywane w historii...
Skoro Kolega chce VBA, to proszę. Kod dla modułu 'Arkusz3': [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 2 And Target.Column = 2 Then If Target.Cells = "XYZ" Then Call Kopiuj End If End Sub[/syntax] Kod modułu skoroszytu: [syntax=vb]Sub Kopiuj() s = Sheets("Arkusz3").Range("B2") Sheets("Arkusz1").Select ow = Cells(Rows.Count,...
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...
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...
[syntax=vbscript]Sub Kopiuj() Set a = Sheets("Arkusz1") owa = a.Cells(Rows.Count, "B").End(xlUp).Row Sheets("Arkusz3").Select ow = Cells(Rows.Count, "B").End(xlUp).Row y = 2 For x = 2 To ow s = Application.Match(Cells(x, 2), a.Range("B1:B" & owa), 0) If Not IsError(s) Then a.Rows(s).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub...
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...
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...
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...
W Twoim pliku XLS dodałem poniższy kod i przycisk w arkuszu "form2", który uruchamia ten kod. Pozdrawiam - McVik
Witam, dzis kolejna zagadka-zagwozdka: sa w Excelu dwie tabele (rozmiar taki sam) obie maja identyczne wartosci w pierwszej kolumnie z ta roznica, ze nie koniecznie w tej samej kolejnosci. Pierwsza tabela (powiedzmy - A) jest wypelniona, tabela B jest pusta (oprocz oczywiscie pierwszej kolumny). I teraz zaczyna sie jazda: chodzi o to aby makro wyszukiwalo...
Jednak szybciej było napisać makro:) W załączniku. Z tym, że w twoich danych (w załączonym pliku) dane, które chcesz kopiować znajdują się chyba w wierszu 8 a nie 37. Zrobiłem makro kopiujące dane z wiersza 8 pod warunkiem, że są mniejsze od zera. Ponadto, żeby data również się przepisała, musi znajdować się dokładnie 5 wierszy powyżej danych z których...
tu masz makro kopiujące te dane z arkusz1 z komórkek b5:b10 do aktywnego arkusza do kolumny D kopiowanie z kolumny w Arkusz1, następnie transpozycja i wklejenie w wierszu w aktywnym arkuszu (każde użycie makra wkleja do kolejnego wolnego wiersza wiersza)
Konkrety: robię cennik z kolumnami: numer katalogowy, opis, cena, kolejne kolumny to kalkulacje. Chciałbym, aby część z numerem katalogowym, opisem i ceną końcową automatycznie kopiowała się wraz z formatowaniem kolumn do drugiego arkusza. Najlepiej jakby skasowanie wiersza w arkuszu źródłowym powodowało również skasowanie wiersza w arkuszu docelowym....
Hej, czy mógłby ktoś mi pomóc poprawić poniższy kod, który ma pobierać do Arkusza "BAZA" dane ze wszystkich pozostałych arkuszy w tym skoroszycie, jeśli wiersze zaczynają się od niepustej komórki A. Problem polega na tym że jeśli w którymś arkuszu w kolumnie A jest pusty wiersz, to makro nie pomija tego pustego wiersza idąc do następnego wiersza w tym...
Tak, ale nie mogę wpisać adresu komórki na sztywno, bo raz jestem w J13, raz w AB50, a raz w CA9 i zawsze muszę pobrać wartość z tej kolumny, ale z wiersza 3-go.
Witam, jestem początkujący i potrzebuje zrobić małą rzecz w VBA wykonać, ale nie mam pojęcia jak. - Jeżeli komórka w kolumnie zielonej "Wielkość pozycji" jest wypełniona wtedy skopiuj SAMĄ WARTOŚĆ (bez formuły) do wiersza w kolumnie żółtej "Wielkość pozycji kopia wartość" - Jeżeli pozycja w kolumnie niebieskiej "% inwestycji" zaktualizujemy, wtedy aktualizujemy...
Wychodzi dokładnie to samo, tzn. przy odjęciu jednego wiersza działa, inaczej nie. Dzisiaj zmieniłem adresy komórek i o dziwo działa :D Dziwne, ale skuteczne :D Chciałbym jeszcze ażeby przy wpisywaniu komentarza excel pomijał puste komórki i wpisywał następną niepustą. Da radę? POZDRO I DZIĘKI! :)
Witam, Zwracam się do Was z zapytaniem o pomoc. Przejrzałem już dziesiątki podobnych wątków, ale odpowiedzi nie znalazłem. Dodam tylko, że jak większość jestem początkujący w tym temacie. Mam dwie zakładki, zlecenia i WZ chciałbym po zaznaczeniu dwóch check'boksow (odnoszących się do tego samego numeru zamówienia) i kliknięciu kopiuj, aby przerzuciło...
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...
ale czy ta funkcja jezeli znajdzie słowo "RED" to czy mi skopiuje do drugiej tabeli wszystkie dane z wiersza ktory zawiera te slowo
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
A jeśli bym chciał na odwrót?? żeby to z kolumny C przekopiowało się do kolumny A, z której wyszukuje tekst "aa" i zastąpiło ten tekst czymkolwiek co jest w kolumnie C, a C kolumnę pozostawiło pustą??? [syntax=vb]Sub Makro1() With Sheets("Arkusz1") For Each c In .Range("A1:A5") if c.Value = "aa" Then c.Value = .Range("C" & c.Row) .Range("C" & c.Row)...
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ą...
[syntax=vbscript]Sub AF() Sheets("A").Range("A4:R200").Clear For x = 2 To Sheets.Count For y = 4 To 300 If Sheets(x).Cells(y, "O") >= -30 Then nw = Sheets("A").Cells(Rows.Count, "O").End(xlUp).Row + 1 Sheets(x).Rows(y).Copy Sheets("A").Range("A" & nw) End If Next Next End Sub [/syntax]
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...
Witam Poszperałem forum ale odpowiedzi nie znalazłem.. W nagłośnieniu chętnie pomogę ale na tym sie nie znam .. ) mam nadzieje ze Szanowni Koledzy pomogą Mam dwa arkusze X i Y po dwie kolumny każdym z nich Arkusz X Dynia |15 Marchew|6 Burak | 7 Arbuz |19 Arkusz Y Dynia |17 Jabłko | 6 Marchew |9 Majonez | 2 Jajka |29 Burak |5 Rzerzucha |2 Arbuz |3 Do...
Powstał dla mnie jeszcze jedna kwestia, powstała ona w momencie gdy jedna z kolumn w pliku źródłowym nie występuje ( np wartości opisane jako B - plik źródłowy nie generuje danych z takimi wartościami, pomija taką kolumnę ) W związku z tym czy można zmodyfikować kod wgrywania danych tak, aby dane jeszcze były porównywane po wartościach z pliku docelowego...
Jest super działa:) dziękuję:) a jak będę chciał zmienić, od którego wiersza i kolumny ma zacząć, to muszę zmienić wartości tych wyrażeń tak? wrs = 3 'pierwszy wiersz kolumny A kol = 3 'pierwsza kolumna z imionami
W sumie to puki co jest prosto, problem w tym że chciał bym żeby automatycznie ile jest zapisanych wierszy w arkuszu "Dane" począwszy od wiersza 18, było tyle wierszy w arkuszu "Raport". To jakiś szyfr? Możesz rozkodować? Jakoś nie mogę złapać o co chodzi...
Witam Wszystkich :D Potrzebuję Waszej pomocy, ponieważ nie potrafię sobie poradzić z problemem aby wybierając z listy rozwijanej w kolumnie A nazwę wyrobu, kopiował się kod do wiersza obok w kolumnie B. Baza wszystkich kodów i nazw znajduję się np. w arkuszu nr 2. Z góry dziękuję za Waszą pomoc :D Pozdrawiam!
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...
... kopiowanie komórek w dół kolumny... kopiuje komórki z numeru rejestracyjnego do kolejnego numeru ...kopiuje zasięg do kolejnego numeru A czy mógłbyś Damianie wyjaśnić co znaczą wytłuszczone w Twoim cytacie pojęcia :?: Wskaż jeszcze z jakiego Excela korzystasz - czy "w dół kolumny" oznacza dla Ciebie do wiersza nr 65536 w tej kolumnie, czy do wiersza...
Witam ponownie. Znowu poproszę o pomoc. W moim arkuszu potrzebuję zastosować jeszcze jedną możliwość kopiowanie ale tym razem kopiowanie musi polegać na porównaniu numerów, czyli w tym kopiowaniu wiersze nie zgadzają się. W załączniku jest przykład. Niestety załącznik nie zawiera kodu bo nie mam pojęcia jak to zrobić. W pliku są dwa arkusze. "Szychty"...
Jestem coraz bliżej, ale nie chodzi o spełnienie trzech warunków jednocześnie, tylko dla każdego z zakresów oddzielnie czyli dla A2:E4 jeśli w kolumnie C występuje pusta komórka to pomijam wiersz w tym zakresie. Czyli w załączonym pliku interesuje mnie zawartość do wiersza 240. Chyba że można to zrobić w inny sposób tak aby w pliku wynikowym nie było...
tak w zasadzie to powinno się ten kod trochę zmodyfikować, bo w założeniu sprawdzanie miał sie odbywać od 1-go wiersza arkusza2. W obecnej formie pozycje w tablicach od wiersza 1 do tego który sprawdzany jest jako pierwszy są puste. to tak jakbyś chciał trochę polepszyć :)
Chciałbym stworzyć W załączniku masz arkusz z makrem które automatycznie filtruje zawartość po kolumnie z nazwą. Jak znajdzie coś to klikając przycisk możesz skopiować znalezione wartości do drugiego arkusza (automatycznie). Dodałem jeszcze kolorowanie co 2 wiersza i trochę śmieciowych wpisów by dało się to sprawdzić.
Witam, Potrzebuję skopiować wartości wiersza (przykładowo zaznaczonego na żółto w miejsce po prawej też zaznaczone na żółto) w inne miejsce w kolumnie. Danych mam 8 tys. Czy jest sposób by nie robić tego ręcznie tylko jakoś z automatu? Dzięki za podpowiedzi. https://obrazki.elektroda.pl/7697680100_...
Witam, mam taki problem potrzebuje makro, które znajdowałoby mi wartość w kolumnie B - || i kopiowało imię nazwisko oraz numer do stworzonego wiersza poniżej. Jeśli w kolumnie autorzy jest jeden autor skopiować dane do kolumny powstałej C stan początkowy http://obrazki.elektroda.pl/8788959900_1... efekt jaki chce uzyskać http://obrazki.elektroda.pl/8298584700_1...
A jak zrobić, aby wyszukało kolejne słowo "MAGMA" w tej samej kolumnie i wykonało ponownie tę samą operację tak, aby w wierszu ze słowem "SUMA" w kolumnie "MAGMA" nie pojawiła się żadna wartość Odpowiedniejsza była pętla For dla obszaru UsedRange i warunkowo zmienny znacznik typu Boolean. W zależności od jego stanu wypełniasz, lub nie komórki w kolumnie....
Sprawę można próbować rozwiązać formułami tablicowymi. Samo "wydłubanie" nr kolumny z Nr tygodnia i datą należałoby pewnie realizować zaokrąglając w górę wynik dzielenia Nr wiersza przez 5, a to dopiero wstęp (jeśli zawsze wynik ma być dla 5 tygodni)... Znacznie prościej, wydaje się, byłoby wykonać to w pętlach w kodzie VBA. W tym przypadku, jeśli ktoś...
1. Data nie jest datą w standardach Excela. Jeśli koniecznie musi tak być (z kropkami) proszę to potwierdzić. Ominięcie tego nie stanowi problemu, ale kłopot będzie jeśli sposób zapisu daty nie jest jednolity. 2. Widziałbym tu pętlę sczytującą kolejno dane z wierszy w Arkusz1 3. Przenoszenie musi być obwarowane na kilka sposobów. Określenie zakresu...
Dodano po 19 Excel / VBA / wstawianie i kopiowanie wierszy z rozdzieleniem wartości
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...
może przykładowy plik trochę rozjaśni sytuację Z podkreśleniem tego trochę :D Jeśli w arkuszu CT umieścisz makro typu: 1022670 Zwracam uwagę na zmienne l i kol, których wartość została przyjęta dla Twojego xxxx - owego przykładu :cry: i które muszą być dostosowane do wartości rzeczywistych w pliku roboczym.
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...
Witam Otóż mam pytanie związane z makrami bądź też z programowaniem w VBA. Ponieważ jestem nowicjuszem ale coś liznąłem w tym kierunku. Mam do zrobienia jedną rzecz w excel'u, a mianowicie. Mam 5 kolumn z danymi, pozycji jest (wierszy) coś ponad 14000 ale to jest mało istotne. W 6 kolumnie mam dodane checkbox'y dodane przez formanty formularza(Nie wiem...
Tak jak Pan zrobił jest super, ale oczywiście mam problem (pamiętając żeby kopiowana tabela była w tej samej kolumnie i wierszu parzystym) żeby po skopiowaniu do mojego arkusza wyskakuje błąd "nie można używać odwołań do innych arkuszy lub skoroszytów dla kryteriów Formatowania warunkowego". a muszę zmienić odwołania do komórek gdzie jest rok i miesiąc...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
Powiem że wszystko super do policzenia gdyby nie ten Lunch :) Tu się zaczęła zabawa. :) "Se wymyśliłeś" :) W załączeniu przykład. Dla pewności sprawdź każdy przypadek. Funkcja zmienia działanie wyłącznie na słowo "Lunch" (i nie przewiduje dwóch lunch'ów) Chciałem by to było w miarę uniwersalne w związku z tym potrzebny jest w tabeli wiersz nagłówka...
Heja yyyyy przyznam że tak to opisałeś że... ciężko to dobrze zrozumieć :P Ale ok na początek napiszmy programik który: 1. "przeleci" przez wszystkie pliki z katalogu (do którego ścieżkę musisz wpisać w kodzie) 2. weźmie nazwę pierwszego z tych plików 3. otworzy go (np 1.xlsx) 4. z otwartego pliku skopiuje zakres 5. wklei ten skopiowany zakres do naszego...
Uzupełniłem kod ale nie działa mi IF i kopiowanie do komórki f9 w arkuszu oferta. Przesyłam w załączniku plik. Czy możesz mi napisać co tu jest nie tak? Ponadto zależy mi na tym aby dodać zależność taką: Jeśli w ofercie pierwsza pozycja jest pusta to program kopiuje do pierwszego pustego wiersza daną pozycję. Chodzi o to, że jak wybiorę coś z drugiego...
Ad.2 Kopiowanie wiersza z przysikiem, to żaden problem. Problemy zaczynaja sie przy usuwaniu wierszy, bo przycisk zostaje i zwykle nakłada się na następny. Po jakimś czasie może być ich mnóstwo "na kupce" Ad.1 Napisać makro wg Twojego opisu, to, na oko, żaden problem. Sugerowałbym którąś z procedur zdarzeniowych arkusza (Np Change dla kolumn H, I, J,...
Poproś kogoś innego.
Witam, potrzebuje pomocy z excelem, w temacie: Kilka osób, codziennie wypełnia ten sam plik, jeśli chodzi o dane - nazywając go swoim nazwiskiem. Pliki codziennie są zgrywanie, w jedną lokalizację (folder) do jednego pliku pod nazwą Zestawienie (obecnie metoda kopiuj wklej). Każdego następnego dnia pliki z kolejną datą zastępują poprzednie. Chciałabym,...
Witam Proszę o pomoc. Potrzebuje wykorzystać poniższy kod do wyszukania określonego tekstu w skoroszytach zapisanych w katalogu "DANE" i skopiowania całego wiersza do skoroszytu "Zbiorczy" Jednym zdaniem chodzi o wyszukiwanie tekstu w wielu plikach xls i zapisywanie ich do jednego arkusza. Czy jesteście w stanie mi w tym pomóc? kod: Sub OperacjeHurtowe2()...
Prawie dobrze. Sama pętla jest OK. Może źle liczysz kolumny (Offset). If kom2.Value <> "kk" And kom2.Offset(0, 13).Value = "tak" Then tu: warunkiem kopiowania jest dowolna wartość z wyjątkiem tekstu "kk" w kolumnie "I" oraz tekst: "tak" w kolumnie "V" (kol. "I"+13), wielkość liter ma znaczenie. Jeśli możliwe jest wpisanie...
Podam ci teorię bo inaczej się nie nauczysz (adres bezwzględny). Znak $ w adresie zatrzymuje "zmianę" numeracji wiersza lub kolumny lub obu podczas kopiowania. Przykład 1. W komórce jest napisane =A$10 jeżeli będę kopiował w bok zmieniać się będzie tylko litera kolumny adresu. Prawdę mówiąc kopiując taki przykład tylko w prawo czy lewo nie trzeba "zatrzymywać"...
Witam, podczas tworzenia makra natrafiłem na problem z którym nie mogę sobie poradzić. Makro miałoby za zadanie z wszystkich arkuszy o nazwie "Protokół x" zrobić zestawienie w jednym arkuszu oraz z "delikatnymi" zmianami odnośnie rozmieszczenia w kolumnach. Na chwilę obecną nie idzie źle - mam problem ze zliczaniem wierszy z protokołów, żeby określić...
Spróbuj np. tak - najpierw zaznaczasz dane w wybranej (pojedynczej) kolumnie, potem wykonujesz makro. [syntax=vb]Application.ScreenUpdating = False For w = Selection.Row To Selection.Row + Selection.Count - 1 Step 2 Cells(w + 1, Selection.Column).Value = Cells(w, Selection.Column).Value Next w Application.ScreenUpdating = True[/syntax] PS. Takie rzeczy...
To makro będzie w miarę proste, wystarczy w pętli sprawdzać kolejne komórki w pogrupowanej kolumnie, a jak dwie kolejne się różnią - skopiować zakres od...do: [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr Application.ScreenUpdating = False Set wsdane = ThisWorkbook.Worksheets("dane") 'nazwa arkusza z danymi ost_wiersz = wsdane.Cells(Rows.Count,...
Hej wartości taka jak cena i wartość na tej PZ nie są potrzebne i nie muszą być drukowane. Te wartości dostawca zobaczy na fakturze wedle umowy podpisanej. Na PZ ma znaleźć się ilość netto z komórki E3. Sucha liczy się sama ale ona jest potrzebna jako dana w biurze a nie dla dostawcy także tylko ta z komórki E3. A kopiowanie może się odbywać z aktywnego...
Witam Nie mogę sobie poradzić z kopiowaniem danych do innego skoroszytu. Posiadam główny skoroszyt o nazwie " Dane" do którego pobierane są różnego rodzaju dane. Chciał bym mieć możliwość kopiowania określonych danych ze skoroszytu "Dane" do innego skoroszytu GOW. Dane muszą zostać skopiowane " specjalnie" bez formuł. Utrudnieniem będzie kopiowanie...
Witam Nie ukrywam że nie znam się na VBA a problem który przedstawie zapewne jest banalnie prosty jednak nie znalazłem podobnych tematów Zadanie Posiadam dwa pliki Exel (Ewidencja jedynek i formatka klienta). Chciałbym przekopiować wybrane dane z formatki klienta do pliku ewidencja jedynek na koniec wolnego wiersza jednak plik formatka będzie zmieniał...
Witam szanownych kolegów i koleżanki, potrzebuję pomocy w Excel z dość łatwym zadaniem, ale ciężki mi znaleźć konkretne rozwiązanie w śmietniku internetowym. Sprawa ma się następująco: Mam 1 plik excela z trzema Arkuszami z danymi (dojdą jeszcze 2 arkusze z danymi, więc prosiłbym o uwzględnienie tego) i Arkusze rozliczeniowe tj. maj, czerwiec, lipiec...
Hej, męczę się już drugi dzień z ogarnięciem danych w excelach... Załóżmy że, w dużym uproszczeniu, mam: Jeden główny (Ex2) jest sumą danych z arkuszy Ex1-70 (ok 70 sztuk Ex1-70, jako dane zabranych parametrów samochodów). Ex1-70 zawierają tabele na 12 zakładek każdy (jako miesiące), ale w sumie interesują mnie tylko dane z jednego wiersza (nr 100)...
Dziękuję Panowie. Szczegółowe opisanie tego co chcę osiągnąć było by dość długie. W arkuszu pierwszym mam zaimportowane pewne dane z pliku csv. Dane te dotyczą różnych osób i tu nie ma reguły. Np dla Jana Kowalskiego mamy 3 wiersze danych, dla Marii Kowalskiej mamy 4 wiersze. Natomiast dla Stanisława Nowaka mamy też jakiś tam wiersz z informacją że...
Można zwykłą pętlą For + kopiowanie komórek, np. [syntax=vb]Sub kopiowanie_danych() 'Arkusz1 to jest Worksheets("DANE") 'Arkusz2 to jest Worksheets("WARUNEK") 'Arkusz3 to jest Worksheets("DANE WYJŚCIOWE") Application.ScreenUpdating = False Dim war As String With Arkusz3 war = .Range("A1").Value If .FilterMode Then .ShowAllData .Range("C7:G" & Rows.Count).ClearContents...
excel makro kopiowanie wiersza kopiowanie wiersza wyżej excel kopiowanie wiersza
ekspres bosch wyczyść zaparzacz realtek alc883 codec zainstalować bluetooth
Zalecana chemia do czyszczenia kotła Ecocondens Integra 20 Prawe skrzydło bramy wjazdowej nie działa - diagnostyka i naprawa
