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.
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...
[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]
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...
O rety, ale mam zaskok :) W załączniku rozwiązanie z kolumną pomocniczą.
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
Dlaczego zmienna 'l' jest nadawana z wartości ostatniego wiersza (+1) z pliku 'b', a nie z 'a'?[/quote]
kopiowanie warunkowe wierszy Excel
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...
Witam, Nieczęsto zwracam się z prośbą na forum, ponieważ wynajduję informację w innych tematach. Z dzisiejszym problemem nie mogę sobie poradzić, nie wiem nawet przy pomocy czego można to ugryźć. Polega to na tym, że mam Arkusz1, a w nim ok 10-15 kolumn, A Lp., B Zadanie (w niej stałe wartości I, II, I-II), C Nazwa, itd. Chciałbym aby na podstawie kol....
Witam Mam plik o nazwie zeszyt1 na dysku C z danymi w tabeli. Mam drugi plik o nazwie zeszyt 2 na dysku I. Chcę ażeby dane z zeszytu 2 aktualizowały zeszyt1 arkusz 2 czyli były kopiowane do kolejnych wierszy zeszytu1. Kopiowane mają być całe wiersze, a warunkiem do aktualizacji ma być kolumna A w obu zeszytach. Prościej mówiąc jeżeli dane w komórce...
Proszę o pomoc, jestem początkujący (bardzo) i mam następujący problem Mam dane w akruszu1 kolejno w kolumnach od A do D 31.05.202113:581020 31.05.202113:587564 ... Potrzebuję skopiować wszystkie wiersze z arkusza1 dla liczby >=31 z kolumny 3 (C) do drugiego arkusza2. Najlepiej jakby skopiowane...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
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...
Witam forumowiczów, Potrzebuje pomocy w napisaniu programy w VBA. Mianowicie: w excel-u mam listę produktów(kolumna 'b') i ilość(kolumna 'c') Potrzebuje wydrukować tylko wiersze zawierające jakąś liczbę w kolumnie ilość oraz kolumnę SKLEP i DZIEŃ, DATA. Proszę o pomoc - jeżeli będą to komendy proszę podajcie jak ich używać http://img714.imageshack.us/img714/9899/...
Witam, jestem tutaj nowy. W Excelu poruszam się biegle, ale mam problem z Makrami i VB. Mam dwa pliki. Plan produkcji.xls w nim arkusz Produkcja i tam ma różne dane. Drugi plik to Zrobione.xls i arkusz zrobione. Chciałbym, aby w pliku zrobione po uruchomieniu Makra wypisało mi wszystkie arkusze ze statusem GOT. który jest w kolumnie N pliku Plan produkcji....
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
Witam potrzebuję pomocy w stworzeniu makra w Excelu 2007. Potrzebuję kodu który przepisze wiersze do nowego arkusza po spełnieniu poniższych kryterium: Zakres analizowania: Od wiersza 12 kolumna B Do wiersza 111 kolumna P Makro: jeżeli w arkuszu nr 1 w kolumnie P z zakresu wierszy od P12:P111 znajdzie się wartość większą (różna) od „0” (wynik...
Witam, jestem początkującym w pisaniu makr. Walczyłem cały dzień aby napisać makro i nie wyszło dlatego proszę o wzór. Z arkusza „dane”, aby przenosiło komórki wszystkie z wiersza oprócz komórek z nagłówkiem „Ilość etykiet” do arkusza „widok” i skopiowało tyle razy, jaka jest wartość w komórce z nagłówka „ilość...
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...
Witam, jakim rozkazem w Visual Basic moge skopiowac w danym pliku Excel caly wiersz (np wiersz 5 i 10) do nowego pliku Excela do wiersza np nr 1 i 2. dzieki za pomoc
Witam. Siedzę już dwie noce nad makrem i nie mogę go ruszyć. Temat: Arkusz z tabelą danych A12:I12 wielkość tablicy 30000. Mam Stworzyć drugi arkusz który by pobierał całe wiersze z pieszego. Ponadto , kolumnie In są warunki utworzenia nowych arkuszy. Reasumując tyle ile będzie różnych zmiennych w I tyle będzie nowych arkuszy. Reasumując Sortowanie....
Witam. Proszę Was o pomoc, bo całkowicie zielony jestem w temacie VBA/Excel. przejdę od razu do konkretów. Chciałbym aby z arkusza zawodnicy, po wpisaniu kierowcy, pilota, pojazdu, e-maila, w zależności od wyboru klasy startu np. quad, kopiowało kierowce i pojazd do tabeli w arkuszu quad, jeżeli wybiorę wyczyn - skopiuje mi kierowce pilota i pojazd...
Witam Proszę o pomoc. Potrzebuję proste makro, które skopiuje określone komórki z wybranego przeze mnie wiersza do innego arkusza. Chciałbym żeby to wyglądało tak: okno dialogowe pyta: "Podaj numer wiersza do skopiowania", podaje np wiersz nr 5 i wtedy komórka np A5 B5 D5 G5 z arkusza1 są kopiowane do komórek odpowiednio A1 A2 A3 A4 arkusza2. Nie znalazłem...
Mam plik csv do importu do sklepu no i powinien on posiadać ID numer, ale trzeba go dopisać. Otwieram plik w excelu i mogę tam dopisać na początku każdego wiersza te numery jednak to nie o to chodzi żeby robić to ręcznie prawda? jakiej komendy itd użyć żeby excel dopisał do początku każdego wiersza "1|" ? Dla wyjadaczy to prościzna, ja sie na tym nie...
Przyszła mi jeszcze jedna myśl do głowy. A czy w Calc'u LO/OO można ustawić odwrotną kolejność wierszy, tzn. żeby dopisywać zawsze od góry nowe pozycje/wiersze? Przykładowo ustawić zakres, że będzie max 500 wierszy i najnowszy nr będzie zawsze na górze, aby nie przewijać zawsze na dół? Czyli wpisujemy wszystkie dane w pierwszym wierszu, a po "zatwierdzeniu"...
Zmienit 'For i = 0 To nrep - 1' na 'For i = 1 To nrep - 1'
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ść,...
Ć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!
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...
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.
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...
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, 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 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...
excel makro kopiowanie wiersza kopiowanie wiersza wyżej excel kopiowanie wiersza
błędne ustawienie eeprom samsung nu8000 głośny wiatrak
interfejs diagbox bateria parkside
Barierka malowana proszkowo czarna – jasno matowe przebarwienia po folii, usuwanie i przyczyny Laptop wyłącza się po odłączeniu ładowarki - bateria dobra
