tylko adres porzebny Tutaj. ;) https://obrazki.elektroda.pl/5067666000_...
Makro kopiujące wybrane komórki do nowej zakładki
[syntax=vbscript]Application.ScreenUpdat... = False If Not Sheets("Arkusz2").Visible Then Sheets("Arkusz2").Visible = True Sheets("Arkusz2").Select Range("A2:E10").Select Selection.Copy Sheets("Arkusz1").Select Range("a1").Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("Arkusz2").Visible = False ActiveWorkbook.Save Application.ScreenUpdating...
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...
Dlaczego nie załączyłeś pliku? Przecież na obrazku niczego nie można sprawdzić. Podejrzewam, że linie obramowania, które Ci się nie kopiują są przypisane do sąsiednich komórek. Ramka rozdziela komórki, ale nie musi być przypisana do obu, może być przypisana tylko do jednej z nich. Wtedy przy kopiowaniu trzeba zadbać o to by obramowania były przypisane...
Kod wklejamy pomiędzy znaczniki (Syntax) - opcja "Listing kodu". Twój post (z racji pełnienia funkcji) poprawiłem, przy okazji łącząc oba w jedno ;)
[syntax=vbscript]Sub ImportujPlikizWieluLokalizacji() Dim ZakresWejsciowy As String Application.ScreenUpdating = False Set p = Sheets("Parametry") Set i = Sheets("Import") For x = 2 To p.Cells(Rows.Count, "A").End(xlUp).Row If p.Cells(x, 5) = "x" Then Katalog = p.Cells(x, "A") If Right(Katalog, 1) <> "\" Then Katalog = Katalog & "\" On Error...
W załączniku.
Musisz wpisać większą treść wiadomości przed wysłaniem. W przypadku wysyłania plików opisz szczegółowo plik w treści wiadomości. Niech Gulson coś w końcu z tym zrobi.
Spróbuj [syntax=vb]For Each kom2 In Sheets("Arkusz2").Range("A1:A500") If kom2 <> Empty Then For Each kom1 In Sheets("Arkusz1").Range("A1:A500") If kom1.Value = kom2.Value Then kom2.Offset(0, 13) = kom1.Offset(0, 13) kom2.Offset(0, 14) = kom1.Offset(0, 14) Exit For End If Next End If Next[/syntax]
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Teraz wszystko jasne. [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 2 Then Application.ScreenUpdating = False Plik = "C:\PlikiSpraw\" & Range("A" & Target.Row) & ".xlsx" If Dir(Plik) <> "" Then Rows(Target.Row).Copy Set s = Workbooks.Open(Plik) nw = s.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row...
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.
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...
od O2:O17 jest Gdańsk I ten zakres kopiujemy do L23, a co mamy zrobić z kolejnym miastem, zakres O18:30? Chcesz się poduczyć, czy oczekujesz gotowca? Jak to pierwsze, to lepiej na jakimś komunikatorze, a nie tutaj.
A mógłbyś po swojemu, wspomniałeś, że nie znasz VB, napisać, jak według Ciebie taka linijka powinna wyglądać? Podpowiem, żę blisko tego: [syntax=vb] Cells(owa2, 1).Select Selection.PasteSpecial Paste:=xlPasteValues Cells(.... = .... [/syntax] Cells(1,1), to komórka A1. Cells(4,2), to komórka 4B. Proste, prawda?:)
Wysłałem Ci gotowca na 99%. niestety próby przerabiania i sklejania czegokolwiek ze znalezionych makr spaliły na panewce Weź się trochę wysil... Masz do duspozycji arkusz 'Parametry'.
coś poszło nie tak Jak widać na zrzutach :please: ja załączyłem i opisuje plik ProtUpBase.xls , a koleżanka otwiera jakiś plik (po nazwie sądzę, że też mój :D ) ProtTablica.xlsx , który żadnego makra rzeczywiście nie zawiera :cry:
Sprawdź takie makro: Cells(CC, 3).Cut zastąp linijką Cells(CC, 3).Copy . Makro działa od pierwszego wiersza, jeśli pierwszy wiersz Twojej tabeli to nagłówek, początkowe parametry CA oraz CC zmień na numer wiersza, od którego zaczynają się faktyczne dane. Makro działa do momentu napotkania pierwszej pustej komórki w kolumnie C.
Dzień dobry, Można spróbować takie makro: [syntax=vb]Sub Uzupełnij() Dim wiersz As Long, wzor As String wzor = "" wiersz = 1 Do If Cells(wiersz, 1) <> "" Then wzor = Cells(wiersz, 1) Else: Cells(wiersz, 1) = wzor End If wiersz = wiersz + 1 Loop Until wzor = "koniec" End Sub[/syntax] Powinno spełniać założenia. Pozdrawiam.
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...
Czy ktoś ma pomysł na to aby nie zaznaczał całych kolumn A:G tylko aby zaznaczył od komórki A4 do komórki GX Taki efekt możesz uzyskać poprzez wstawkę kodu: [syntax=vbscript]Set thisWb = ActiveWorkbook Set wksK = thisWb.Worksheets("Kosztorys") Lastrow = wksK.Cells(Rows.Count, 1).End(xlUp).Row wksK.Range("A4:G" & Lastrow).Copy[/syntax] ale efekt takiego...
Jeśli urządza Cię wynik w dodatkowym arkuszu, można formułami. W przeciwnym wypadku Np takie coś: [syntax=vbscript]Dim w As Long w = 2 With Sheets("RaportPaczek") Do While .Cells(w, 1) <> "" If IsNumeric(.Cells(w, 3)) Then .Cells(w, 4) = .Cells(w, 3) .Cells(w, 3) = .Cells(w, 2) End If w = w + 1 Loop End With[/syntax]
Dużo do wyjaśniania, więc przeanalizuj sobie taki przykład makra z pętlą[syntax=vb]Sub Ukash() Dim myPath As String, fName As String, newWkb As Workbook Dim wrs As Long, wrsDst As Long myPath = "U:\Lukasz\Raporty\" 'składasz string z zamianą daty na tekst fName = "Raport " & Str(Date) & " adamas" 'lub dowolna data pobrana z komórki Set newWkb...
Polecenie Name powinno działać poprawnie. Nie wiem jaką ma Pan strukturę plików. Możliwe przyczyny błędu: 1. Plik docelowy już istnieje 2. Folder docelowy nie istnieje 3. Plik źródłowy jest otwarty 4. Nazwa pliku zawiera znaki wieloznaczne "*" lub "?"
ma byc sh.Shapes(1).Select
Sheets("DRUKI SORTOWANIE").Select Range("A1").Select Selection.Copy Sheets("KP").Select Range("V28:W28").Select ActiveSheet.Paste Taki fragment można zapisać krócej tak: Gdzieś na początku makra: [syntax=vb]Set wsSort = Sheets("DRUKI SORTOWANIE") Set wsKp = Sheets("KP")[/syntax] a dalej: 1. jeżeli chcesz skopiować tyko wartości, bez formatów: [syntax=vb]wsKp.Range("V28:W28").Value.....
Jak Ci wierszy przybędzie do miliona, to zaczniesz myśleć, dlaczego to tak długo liczy...;) Ale jeżeli już chcesz tak, to nie sprawdzaj w każdym przejściu pętli, czy komórka jest różna od pustej, tylko wylicz wartość końcową pętli na przykład tak: [syntax=vb] For x = 2 To Cells(Rows.Count, "A").End(xlUp).Row Cells(x, 1) = "=IF(RC[1]<>"""",R[-1]C+1,"""")".....
3. nowy skoroszyt zamknąć Na sam koniec nowo utworzony skoroszyt zamyka bez zapisywania go Jakie jest więc cel tworzenia nowego skoroszytu?
Jaky format w A1? Sprobuj Sheets(Range("A1").Text).Select
Po pierwsze: z którym fragmentem nagranego kodu masz problem? Po drugie: Nagraj makro kopiowania całego arkusza do nowego pliku ze zmianą jego (pliku) nazwy. Masz 100% gwarancji zachowania formatowania. Jeśli w arkuszu jest nadmiar danych można dopisać usuwanie. Jeśli jesteś początkujący, to nagrywarka jest podstawą. Przykład: To jest nagrane makro...
Wydaje mi się, że rozwiązanie z WYSZUKAJ.PIONOWO będzie działać o wiele szybciej niż makro. Czy masz jakieś konkretne powody do zastosowania VBA?
Namęczyłeś się z nagraniem tego makra :D, ale czy mógłbyś dla ułatwienia wrzucić przykładowy plik z dokładniejszym opisem co, skąd i dokąd ma być kopiowane? A tak na przyszłość prośba. Używaj polskich literek i ubieraj kod w znaczniki Code . Trochę ułatwia czytanie. :D
Pomogę w ten sposób: Tak przypisujesz nazwę z danej komórki Nazwa_z_komorki = Worksheets("KON").Cell... 1).Value i podobnie ilość Ilosc_z_komorki = Worksheets("KON").Cell... 2).Value Do powyższego cells(nr wiersza,nr kolumny) dodanie arkusza: Sheets.Add Nadanie nazwy arkuszowi: ActiveSheet.Name...
Udało się metada prób i błędów opierając się na innych makrach
W zakresie wierszy od 3 - 10 we wszystkich komórkach mam różne wyniki, które aktualizują się z zewnętrznej bazy automatycznie i są zmienne. Potrzebuje z tych odczytów zrobić historię w postaci listy i chciałbym aby co 5 min. wykonywany był zrzut tego zakresu wierszy w formie listy w 2 arkuszu w tym samym pliku Proszę o wsparcie
Strasznie to wszystko zakręcone, a na dodatek niepotrzebnie komplikujesz sobie życie... Tak naprawdę to by to wszystko można zrobić na funkcjach, bez użycia VBA. No, ale... Zacznijmy od tego że poprzednie makro się wywalało, bo w złym miejscu umieściłeś sprawdzanie warunku: jeżeli masz zdarzenie Change wywoływane zmianą w arkuszu, to jeżeli w tym zdarzeniu...
Dziękuje za odpowiedź. Przyznam się, że niewiele z tego rozumiem ;) a przy próbie uruchomienia pojawia się komunikat Run-time error '9' Subscript out of range. Co może być przyczyną?
Gdzie przyklad? Gdzie ma byc makro - w docelowym pliku lub w tym " innym pliku" " w roznych miejscach" - oraz roznych wierszach?
Z całym szacunkiem, forum jest po to aby pytać, jeżeli nie znalazło się rozwiązania...
Chodzi o to, że w arkuszu "Rejestr" mam komórkę do której kopiuje się wartość z innego arkusza: Cells(Rows.Count, 3).End(xlUp).Offset(-NrR... + 1, -1).Select ActiveCell.Value = strNrZP I ten moment jest ok..., ale następnie chciałem aby od tej aktywnej komórki (która już ma wartość) skopiować tą komórkę o ilość razy poniżej......
Dopisuję się do pytania :) Dlaczego nie wykorzystać wbudowanych narzędzi Windowsa lub Excela? Np: zaznacz pierwszy arkusz, naciśnij i przytrzymaj klawisz [Schift], zaznacz ostatni, prawym pm w dowolną zakładkę (nazwę) arkusza, z menu wybierz [Kopiuj], w okienku wybierasz nowy lub docelowy plik, zaznaczasz opcję [utwórz kopię], klikasz [OK] i gotowe....
Cześć, Mam taki problem że za pomocą makra kopiuje dane z drugiego pliku. Problem w tym że dane z drugiego pliku pojawiają się dopiero po wykonaniu makra uruchamiającego się przy otwarciu (nie znam nazwy tego makra). W konsekwencji kopiuje same nagłówki bo dane nie zdążyły się jeszcze odświeżyć. Miał ktoś podobny problem ?
są wiersze których nie przekopiowuje nie wiem dlaczego. Dlatego, że występują zdublowane dane :D te dubelki mogą występować w każdej części lub crossowo pomiędzy obiema częściami
Jest to do zrealizowania? [url=https://www.elektroda.pl/rtvforum/t...
Niestety Run-time error '1004': Metoda PasetSpecjal z klasy Range nie powiodła się.
Tu trzeba już więcej wiedzy z VBA i czasu (którego niestety na chwilą obecną nie mam - gdyż makra znam na poziomie podstawowym i trzeba by było szukać i nagrywać a później wnioskować i wykorzystywać to co potrzebne). Jednak przedstawię pewien tok który może ci pomoże (bo o większość rzeczy już się pytałeś na forum i powinieneś je znać - szczególnie...
Temat do zamknięcia. Poradziłem sobie sam. Chodziło mi dokładnie o takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' Klawisz skrótu: Ctrl+d ' ile = Int(InputBox("Ile ma się skopiować tabelek? ", "Wpisz liczbę", 3)) If ile < 1 Then Exit Sub l = 1 Range("C4:D17").Copy ActiveCell.Range("A1").Select ActiveSheet.Paste For i = 1 To ile ActiveCell.Offset(0,...
Znalazłam rozwiązanie i działa tak jak powinno :). Wklejam moje rozwiązanie tak na wszelki wypadek jakby ktoś miał z tym problem (inaczej działać nie chciało) [syntax=vb]Sub Zestawienie() Dim WksZ As Worksheet Dim WksDo As Worksheet Dim ost_w As Long Dim ost_zest As Long Dim R Application.ScreenUpdating = False Set WksZ = ActiveSheet If WksZ.FilterMode...
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...
Witam W kolumnach A oraz E znajdują sie formuły. w kolumnach B C D -> dane, które zmieniają się w zależności od raportu, który się wygeneruje. Chodzi o to by po wygenerowaniu raportu makro brało formułę z komórki A2 i do kopiowało do końca. i analogicznie z formułą w kolumnie E komórka E2. Teraz pomyślałem, że "formuła" mogła by być zaszyta w makro...
Jeśli chcesz to realizować makrem :?: - powodzenia :D Znacznie szybszy efekt uzyskasz poprzez zastosowanie w kolumnie H formuły: =WYSZUKAJ.POZIOMO(E3;Arkusz2!$D$2:$F$5;2... :ok:
Rozwiązaniem problemu jest zastosowanie pętli: For i= ... to ... ... Next Biorąc pod uwagę nazewnictwo plików zastosowałbym: Workbooks.Open FileName:="ścieżka\plik_" & i & ".xls" gdzie i będzie kolejnym numerem w nazwie pliku. Zrezygnowałbym tu z poprzedzającego zera. W przypadku tej pętli wszystkie powtarzające się polecenia...
Witam serdecznie, mam bardzo małe doświadczenie w pisaniu makr i w VBA i prosiłbym o pomoc w następującym problemie: Arkusz1 A1: "FIRMA 001" B1: "Daniel Kowalski" C1: "666 777 888" D1: "2013-08-12" E1: "07:00" F1: dzięki funkcji złącz teksty "FIRMA 001 Daniel Kowalski 666 777 888" Jak stworzyć makro, które skopiuje zawartość komórki F1 do Arkusza2 ,...
Tu zaczynają się cuda. To może podrzucę kanister z wodą? :) Poważnie: Umieść oba makra w module i precyzyjnie "wskaż" Excelowi, którego arkusza dotyczy kod. Przykład z kopiowaniem[syntax=vb]With Sheets("Arkusz3") .Activate .Range("F8:M8").Copy .Range("F86").PasteSpecial Paste:=xlPasteValues 'pozostałe mają ustawienia domyślne Application.CutCopyMode...
Prawdopodobnie niepotrzebne jest w ogóle makro. Poczytaj o korespondencji seryjnej, na pewno przyda Ci się również na przyszłość.
Od jakiegoś czasu przeszukuję informacji na temat utworzenia makra w Wordzie, które działało by następująco: W danym otwartym dokumencie jest napisane zdanie np. „Ala ma kota”. Zdanie to makro powinno skopiować do linijki niżej oraz zmienić czcionkę na następną na liście w pasku formatowania. I tak powtarzać do wyczerpania wszystkich krojów...
sumowanie warunkowe
Dziękuję za zainteresowanie. Odpowiadam na zapytanie w kolejności. 1. Plik Excela z rozszerzeniem .xls 2. Tak arkusz ma nagłówki, które ręcznie usuwam wraz z niepotrzebnymi mi kolumnami. 3. Skrót "scr" pochodzi od słowa screen oznaczające rzut ekranu. https://obrazki.elektroda.pl/3419958100_... https://obrazki.elektroda.pl/5743212300_...
możliwość stworzenia makra które będzie kopiować wypełnione wartościami kolumny w dół zaznaczając komórkę A2, jednak przy kopiowaniu pomijało by wiersze dla których nie ma podanych wartości w kolumnach D i F Jakoś tak (?) ... a może inaczej ... Założenia: 1) Arkusz z danymi = 'Arkusz1' 2) Arkusz docelowy kopiowania = 'Arkusz2' Uwagi: 1) Wielokrotne...
Udało mi się wykombinować coś takiego: [syntax=vbscript]Private Sub Workbook_NewSheet(ByVal Sh As Object) ActiveWorkbook.Sheets("Template").Copy After:=ActiveWorkbook.Sheets("Template") On Error GoTo Wrongname i = 0 Start: ActiveSheet.Name = Date + i Exit Sub Wrongname: i = i + 1 Resume Start End Sub[/syntax] Tylko ,że przy tworzeniu makra w NewSheet...
A czy makro nie może być przerwane w momencie kiedy napotka pierwszą pustą komórkę w kolumnie A? Na ten moment makro długo działa chyba z uwagi na to czyszczenie kolumny B. W moich danych nie ma pomiędzy pustych komórek, tak jak w twoim pliku. Np. wklejam do pliku 100 wierszy (ciągiem, nie ma pustych pomiędzy) i te 100 ma ponumerować. Co więcej: Za...
Outlook 2010
Testuj nie rozpoznaje nazwy pliku: Workbooks.Open Filename:=("C:\Users\Uzytkownik\Desktop\... & nazwa & ".xls")
Ale że nie makro czy nie taka formuła?
Dzień dobry, Bardzo proszę o pomoc z makrem, potrzebuje pętle które będzie miała za zadania kopiowanie i wklejanie w odpowiednie komórki między arkuszami aktualnie mam napisane makro ale niestety sam nie potrafię jeszcze stworzyć takiej pętli Dodano po 3 Mam już coś takiego ale jeszcze nie jest to co bym chciał osiągnąć Potrzebuje dla następnego wiersza...
w pierwszym wierszu dla kolumny jest słowo "Tak" Dla tego trzeba jedna linijka[syntax=vb] Sub kopia() If ActiveSheet.Range("A1") = "Tak" Then ActiveSheet.Copy End Sub[/syntax]
Pan pisal = formuły liczące znajdują się od komórki AO11 do GG5000 = może to malo być "do DD5000", bo dalej jest całkowicie pusty Jest to cała masa formuł, początkowo próbował do iterować tylko formuły - zabiera zbyt dużo czasu. Ale jeśli przyjmujemy pewne ograniczenia, to sprawa może być. ale to jutro na nową głowę. jeden więcej rzeczy zaufanie, że...
[syntax=vbscript]Sheets("2").Range("C1")... = vbRed[/syntax]
A dlaczego nie dać szansy Excelowi, tylko go wyręczać? [syntax=vbscript]Sub Zapis_do_CSV() ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\baza test2.csv", _ FileFormat:= xlCSV, CreateBackup:=False, Local:=True End Sub[/syntax] Nie zwróciłem uwagi, że to ma być bez pierwszego wiersza, ale ten zawsze można usunąć później. Najważniejsze, żeby Excel...
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 ;)
Poprawiłem błąd.
Dla przykładu No właśnie dla przykładu, to przydałby się przykładowy plik. Dodano po 4 Nie pisz na PW proszę, skoro plik dotyczy tematu.
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
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]
Witam, Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Drugi przycisk powinien sortowac sprawy wedlug : kolumna O - run ( czyli te nieszczesne szuflady ) oraz D od najstarzych. ... I tu zaczynaja sie schody bo chcialbym przekopiowac tylko 15 pierwszych wierszy na sheet2 a to przy kazdej zmianie raportu daje mi wyniki niekoniecznie prawidlowe. Jeśli Twoje rozwiązanie lepiej :?: realizuje w/w założone warunki...
Witam Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Musiałbyś stworzyć makro w arkuszu (np. poprzez nagranie i modyfikację) kopiujące dane do drugiego arkusza. Potem trzeba ustawić wyzwalacz makra (np. przy każdej zmianie, raz dziennie itp.). Tutaj masz prosty przykład https://googlesheets.pl/co-zrobic-by-ark... Niestety nie używam arkuszy google...
[syntax=vbscript]For y = 1 To ile - 1[/syntax]
Dziękuję za pomoc. Najlepszym rozwiązaniem okazało się zrobienie makra, które kopiuje automatycznie zawartość pierwszych trzech kolumn do nowego arkusza. Dodano po 1 Nagrałem makro kopiujące potrzebne dane do nowego arkusza
Trochę zależy jak to wygląda z resztą makra. Generalnie, wczytywanie powinno być niezależne od aktywnego arkusza. Czyli [syntax=vb]Sub wczytywanie_danych() Dim dane As Variant dane = Worksheets("Arkusz1").Range(Cells(1, 1), Cells(10000, 3)) End Sub [/syntax]
Dla mnie trochę przerost formy no ale każdy ma swój styl programowania. Zauważ że warunek w głównej procedurze wyjkonuje się jedynie gdy nie ma arkusza o danej nazwie. W przeciwnym wypadku nie robi nic. Proponuje dodać "w przeciwnym wypadku - gdy warunek jest niespełniony" czyli Else i ustawić temp na istniejący arkusz o danej nazwie. Z tym że wyjąć...
:arrow: Do autora: Dobrze podstawiłeś to makro? W załączeniu przykład z działającym makrem kolegi adamas_nt Poprawiłem tylko to, że nie liczy dla 100 wierszy tylko dla wszystkich wierszy w kolumnie A zeszytu1. Dodane po czasie ----------------------------- Zmieniłeś treść wiadomości więc moja uwaga nie ma już uzasadnienia, niemniej pozostawiam przykład...
Dzień dobry, od kilku tygodni poznaję język VBA. Stworzyłam proste makro kopiujące dane z kolumny "I" ( z 3-ech kolejnych arkuszy) i wklejające te dane do arkusza o nazwie "oferta" do kolumn: I, J, K. W rzeczywistości arkuszy mam o wiele więcej, przykładowo piszę o 3-ech. Jeśli miałabym np. 30-ści arkuszy kod byłby bardzo długi i szukam rozwiązania,...
Makro poniżej przesuwa nazwiska w prawo o wartość numeru grupy+1, a następnie usuwa puste komórki w obszarze danych. Nazwiska nie są posortowane. Jeżeli jest potrzeba. sortowania to na początku makra dopisać sortowanie.[syntax=vbscript]Sub Przepisz_Nazwiska() Dim Tab_Opis As Variant With ActiveSheet Tab_Opis = Array("Grupa 1", "Grupa 2", "Grupa 3",...
Proszę o przykładowe makro kopiujące pierwszy wyfiltrowany wiersz z listy do nowego arkusza. W nowym arkuszu wklejane wiersze muszą dodawać się jeden pod drugim wraz z datą ich kopiowania.
Jeżeli pola są oddzielone spację, wystarczy taka modyfikacja pętli: [syntax=vb]Do While Not EOF(1) Line Input #1, TextLine If Left(TextLine, 13) = "121401_2.0011" Then arr = Split(TextLine, " ") wsdane.Cells(i, 1).Value = arr(0) wsdane.Cells(i, 2).Value = arr(1) wsdane.Cells(i, 3).Value = arr(2) wsdane.Cells(i, 4).Value = arr(3) wsdane.Cells(i, 5).Value...
Jeśli dobrze rozumiem, to tak:
Do tego nie potrzeba makra, można to prosto zrobić korzystając z listy rozwijalnej i łączenia tekstu. Prosty przykład
Próbuję stworzyć Makro kopiujące dane z aktywnego wiersza na koniec arkusza z danymi. Prośba o pomoc w kodzie Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' ' Range("A4:D4").Sel... 'zakres do kopiowania zawsze w aktywnym wierszu kol. A do D Selection.Copy 'kopiowanie danych z aktywnego...
Cześć, mam problem z makrami, mianowicie, nagrywam makra filtrujące - makro ma filtrować, kopiować dane, które zostały uzyskane i wkleić do innego arkusza, który jest przygotowany formą pod uzyskane dane. Jednak mam problem, ponieważ o ile pierwsze makro działa, o tyle każde kolejne jakby nakłada się na następne, ponieważ filtruję się kolumna, którą...
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...
Witam. Mam za zadanie napisać makro kopiujące wartości z jednego arkusza do drugiego. Jak dotąd nie było z tym problemu ale teraz są to dość obszerne arkusze więc nagranie makra trochę mija się z celem bo dużo wartości musi zostać skopiowane. Najbardziej zastanawia mnie dlaczego wartości z komórek AF54 i AG54 usuwają się za każdym razem jak odpalę to...
Dobry wieczór, Nie znam się na SolidWorks, ale w kodzie VBA widzę przynajmniej dwa błędy: pierwszy w połączeniu Range("Q5...BJ5").Selection.Copy Powinno być rozbite na dwie instrukcje Range("Q5...BJ5").Select Selection.Copy Można też pominąć selekcję i pozostawić tylko: Range("Q5...BJ5").Copy Drugi błąd: Active.Worksheet.Paste Po pierwsze ta instrukcja...
Tu nie chodzi o ilość zaznaczonych maili, tylko ich rodzaj. Najprawdopodobniej pośród zaznaczonych obiektów masz nie tylko maile, ale także np. raporty dostarczenia/przeczytania wiadomości. Poniżej masz kod na wyciąganie adresów tylko z maili. [syntax=vb]Sub Zapisz_adresy_email_dla_zaznaczonych_wia... If Application.ActiveExplorer.CurrentFolder...
otwierał nowego Excela nowe wystąpienie programu Excel, lub nowy skoroszyt? Myslim ze skoroszyt:[syntax=vb]Sub kopie20() Dim nw As Worksheet Dim my As Range Set my = Workbooks("Truck.xls").Sheets("Aero") s = 0: k = 1 For n = 1 To my.Cells(65536, "P").End(xlUp).Row s = s + my.Cells(n, "p") If s + my.Cells(n + 1, "p") > 20 Or my.Cells(n + 1, "p") = ""...
Dzień dobry, Mam plik Excela w którym każdy z arkuszy zawiera podobną tabelę. Szukając na forum znalazłem makro kopiujące wybrany arkusz wzorcowy i zmieniające jego nazwę na kolejną o 1 wyższą. W tym przypadku wygląda to tak: [syntax=vbscript]Sub AddRecipe() Dim Sh As Worksheet Dim intName As Integer Dim shName As String Dim strNazwa As String Sheets("P000").Copy...
Napisałam proste makro kopiujące zakres komórek z aktywnego arkusza do archiwum. Chciałabym, aby tabela z aktywnego arkusza po zapisaniu do archiwum automatycznie "się wyczyściła". Dodatkowym problemem jest również makro działające w arkuszu "BAZA" - zaznaczam tu dowolne pozycje w kolumnie K poprzez dwukrotne kliknięcie myszy, po czym wybieram przyciskiem...
[syntax=vb]Private Sub CommandButton1_Click() Zeszyt = ActiveWorkbook.Name Workbooks.Open Filename:="C:\Users\mm\Desktop\Nowy_fold... Range("A:A").Copy ThisWorkbook.Activate Sheets("Arkusz2").Activate Range("B1").Select ActiveSheet.Paste Workbooks("wsad.xlsx").Close Windows(Zeszyt).Activate End Sub[/syntax]
makro kopiujące arkusz makro kopiujące wiersz makro kopiujące skoroszyt
gaśnie hamowani wyświetlacz pęknięty zalany wyjąć programator pralki
kupić kartę graficzną kupić kartę graficzną
Termet Silver Pro 20 kW - Tryb ECO i Efektywność Jak odblokować sterownik Eberspächer D5Z?
