ThisWorkbook - Jest to plik, w którym makro, jest zawsze jeden i ten sam Dim zbiorcze As Workbook Dim wpisywane As Workbook Set zbiorcze = Workbooks.Open("D:\wodociagi\dane z ankiet\zbiorcze\za15.xlsx.xlsx") Set wpisywane = Workbooks.Open("D:\wodociagi\dane z ankiet\a\15 - kopia\" & i & ".xlsx") Set zbiorcze = Workbooks.Open("D:\wodociagi\dane z ankiet\zbiorcze\za15.xlsx.xlsx")...
W przypadku takiego arkuszu w kolumnie D powinno byc tak: 1a 2a - 4a Wg jakiej zasady "2a" w D2?
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.
[syntax=vb] Sheets("Arkusz2").Range("A2:E10").Copy Sheets("Arkusz1").Range("a1")[/syntax]
W załączniku.
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...
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]
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.
Z ActiveX nie trzeba aktywowac arkuszy i zaznaczyc checkBox,[może mieć taką samą nazwę (na różnych arkuszach)]
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.....
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:
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...
Jaky format w A1? Sprobuj Sheets(Range("A1").Text).Select
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?
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...
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'.
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...
zamiast: If Cells(wrs, 1) <> "" Then powinno być: If .Cells(wrs, 1) <> "" Then (trzeba dostawić kropkę) Niemniej jednak proponuję najpierw odfiltrować całą oryginalną kolumnę (niepuste) i skopiować wszystko za jednym zamachem do nowego arkusza - trwa jedno mrugnięcie okiem.
Udało się metada prób i błędów opierając się na innych makrach
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]
Na arkuszu "Nowa Hala Cyl." przypisać jedną komórkę dla indeksu, np. O1 Na arkuszu "Etykieta" w komorkach odwolania do arkuszu "Nowa Hala Cyl." np. dla C29 =INDEKS('Nowa Hala Cyl.'!H:H; 'Nowa Hala Cyl.'!O1) W kodzie arkusza 'Nowa Hala Cyl.' wpisz kod Dodano po 27 Edit Umieść kursor w wierszu, który chcesz wydrukować i kliknij przycisk
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,...
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...
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...
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...
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ą?
Jaką regułę zastosować, żeby w programie Excel dane z jednego arkusza kopiowały się do drugiego arkusza automatycznie ? Aby skopiować dane z jednego arkusza do drugiego w programie Excel w sposób automatyczny, możesz skorzystać z kilku różnych metod, w zależności od tego, jakiej funkcjonalności oczekujesz. Oto kilka przykładów: 1. Formuła odwołująca...
Generalnie na przyszłość, unikaj scaleń, bo z nimi dużo kłopotów. Ewentualnie stosuj scalenia na samym końcu, jak wszystkie dane i formuły są już w arkuszu. Tymczasem napisałem Ci makro, które usuwa scalenia z obszaru formuł, wstawia formuły do wszystkich komórek, a na końcu przywraca scalenia kopiując je z kolumny 'lp' z tabelki po lewej stronie. W...
Cześć wszystkim. Przygotowuję plik excel pod korespondencję seryjną, a dokładniej pod druk etykiet. Rzecz w tym że ilość etykiet jest różna, stąd i niektóre dane są powielane. Próbuję stworzyć makro kopiujące komórki A, B, C, F w każdym z wierszy, tyle razy jaka jest liczba w komórce H. Np. w H1 = 2 to pobiera dane z komórek A1, B1, C1, F1 i wkleja...
Uruchamia się poprzez wpisanie do arkusza Parametry w A1 wartości 1.
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...
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...
aby od aktywnej komórki ma być kopiowana z innego arkusza do aktywnej komórki w tym arkuszu Aktywna komórka nie może być jednocześnie w arkuszach.
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.
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...
Witaj. Arkusz7 - to jest Nazwa programowa lub na arkusz etykiety(w zasadzie może zbiegają się ) Być może lepiej użyć typ notacji Sheets("Arkusz7") p.s. Jeśli widzisz w redaktorze VBA, jako Sheets7(Arkusz7) następnie trzeba Sheets7.Range("S1") i t.d. lub Sheets("Arkusz7").Range("S1") i t.d. lepiej jeszcze przykład załączyć
po wprowadzeniu zmian w arkuszu wypełnianym w czasie kontroli powiększył się obszar który trzeba skopiować więc powiększyłam go również w arkuszu zbiorczym i w makro. niestety firma się rozwija i danych z kontroli w jednym okresie kontrolnym jest od 400 w górę. każdy nasz inspektor wypełnia taki arkusz w czasie kontroli potem arkusze z całej Polski...
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...
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...
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...
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 ,...
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
Outlook 2010
Rozumiem, że ten fragment "ow = Cells(Rows.Count, "F").End(xlUp).Row" powoduje to że makro wystartuje z ostatniej zapisanej komórki w kolumnie "F" a czy jest możliwość żeby wystartowało dokładnie z F3? Bo ten przykład to tylko wycinek arkusza i poniżej będą jeszcze dane. Dodano po 3 czy można po prostu napisać ow =Range("F3").Select ?
Cześć Od kilku dni rozkminiam makro, które pomoże mi zautomatyzować pracę. Co tydzień pobieram dane z różnych arkuszy kopiując do jednego arkusza. Żmudne i nudzące zajęcie. Nie jestem programistą, ale z pewnością da się to jakoś ogarnąć makrem. Dla zobrazowania pokazuję fragment pliku. To czego potrzebuję to: - w jednym arkuszu (w przykładzie jest to...
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...
A co z wartościami w kolumnach A, C Arkusza1? Nie mają być odzwierciedlane w Arkuszu2? andie
Witam. Mam problem z napisaniem makra, które kopiowałoby kolumnę (nazwisko i imię) z tabeli (tabela ma więcej kolumn, ale ze względu na ochronę danych nie zamieszczam) z arkusza "Dane" w pliku Rozliczenie do arkusza "Dane" w plikach grafik 1 i grafik 2, po skopiowaniu danych (samych wartości, nie formuł) trzeba stworzyć dla wszystkich osób arkusze kopiując...
Makro działa rewelacyjnie! Dziękuję bardzo. Nie przypuszczałem, ze tak krótkie makro rozwiąże mój problem. Jeszcze raz wielkie dzięki! A tak przy okazji, czy w ten sam sposób można w kolejnej kolumnie dodać np jakiś opis a nie tylko wartość ujemną np. korekta w kolumnie 4? Jeśli tak to co należałoby zmienić w tym makro
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....
Wygląda na to, że potrzebujesz wartości z pojedynczych komórek: 'kopiowanie z pliku 01 do docelowego w wierszu 5: Windows("plik_01.xls").Activate Range("P4").Select Selection.Copy Windows("docelowy.xls").Activate Range("$C$5").Select Selection.PasteSpecial Paste:=xlPasteValues A może poprostu pokombinuj z takimi formułami: =[plik2.xls]Arkusz1!$B$4...
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...
Wklej w kod arkusza (nie do modułu) - to procedura zdarzeniowa. Tak, "układa" dane w wierszach. Edit: Oj chyba "kopnąłem się" o jedną kolumnę. Plik w załączniku poprawiony...
Witam. Proszę o pomoc. Potrzebne mi jest makro w Excelu, które będzie uruchamiać się po zmianie zawartości komórki, czyli jak ktoś coś wpisze i zatwierdzi enterem to ma się uruchomić makro. Samo makro ma działać w następujący sposób, że po zmianie zawartości w A1/Arkusz1, zostanie uruchomione drukowanie tej komórki, a jednocześnie jej zawartość zostanie...
Dzień dobry. Za pomocą Logo AcessToll pobieram wartość licznika do Excela. Udało mi się stworzyć arkusz, który generuje trend z ostatnich 100 próbek pobieranych co 60sec, czyli mam informację z ostatnich 100 minut. Aby mieć dane z całego dnia, potrzebuje makra lub formuły, która będzie przepisywała wartość komórki A3 w arkuszu do kolejnych wierszy w...
Cześć, mam taki problem. Chciałabym zarejestrować makro, które będzie kopiowało komórkę i przenosiło do innego arkusza. Jednak wartości tej komórki będą się zmieniać, a jak rejestruje zwyczajnie kopiując i wklejając, to potem makro wkleja mi tę wartość, którą skopiowałam przy rejestracji, zamiast nowej, która pojawiła się w tej komórce kopiowanej. Proszę...
Witajcie. Jest taka sprawa. Mam nowy arkusz do ktorego kopiuja się indeksy produktów z takiego prostego konfiguratora ktory stworzylem. Indeksy kopiuja sie do kolumny A, i niektóre się powtarzają. Jak napisa makro które zliczy i wyswietli nr indeksu + obok ile razy się powtorzyl, kasujac wszystkie powtorzenia. I tak dla wszystkich indeksow - lista +...
Witaj. Dobrze by było, gdybyś wstawił przykładowy arkusz przed i po operacji, którą chciałbyś osiągnąć przy pomocy makro. Aktualnie interpretując opis wynika z niego, że chcesz po kolei wszystkie komórki z kolumny C po kolei wklejać w puste miejsca kolumny A (omijając już wypełnione komórki).
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ść, potrzebuję pomocy. W załączonym pliku znajdziecie arkusze: - weryfikacja - firma 1 - firma 2 - kodowanie firma 1 - kodowanie firma 2 Przystępując do pracy: 1. Do arkusza "Firma 1" wklejam dane z innego pliku od kolumny E do AB 2. Uzupełniam formułę w kolumnie A 3. W kolumnę B wpisuje "F1" 4. Kopiuję kolumnę A i wklejam do arkusza "Kodowanie Firma...
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,...
Nie wiem czy zrozumiesz o co mi chodzi. Niestety nie rozumiem :cry: Zrób i pokaż przykładowy plik z jednym arkuszem z danymi przed przetworzeniem ich makrem i drugim - jak ma wyglądać po przetworzeniu
Jestem początkujacy. Moze ktos mi pomoze. w folderze "dane" mam wiele plików excelowych o róznych nazwach (np G12.xls,S-12 itd). W folderze "wzor" mam plik "wzór.xls". Potrzebuje aby makro skopiowało nazwe pliku z folderu "dane" pliku np G12.xls, kopiując plik "wzór.xls" zapisując w folderze docelowym "docel" z taka sama nazwa np G12.xls albo 2017-G12.xls....
Metoda PasetSpecjal z klasy Range nie powiodła się. No pewnie, że się nie powiedzie. Podałem tylko przykład, a nie rozwiązanie. Zanim wykonasz Selection.PasteSpecial, musisz wybrać arkusz i komórkę, do której wklejanie nastąpi...
Dzięki serdeczne marku! Wszystko obecnie działa OK - po prostu nie mogłem się połapać w oznaczeniach , ponieważ to makro używam do b. skomplikowanego programu "Ewidencja" w którego to budowie bardzo mi pomagałeś przez długi okres czasu. Od roku działa on u mojej księgowej i około 10-cio krotnie ułatwia i przyspiesza jej pracę. Ten układ (makro) działać...
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
wybaczcie mi literówkę, oczywiści chodziło mi o VBS (Visual Basic). Moje pytanie dotyczy jednego z elementów składowych programu, który w znaczący sposób usprawniłby obsługę całego programu. Nie mam pojęcia jak mogę to zrealizować, wiec będę wdzięczny za jakiekolwiek naprowadzenie mnie. czy w ogóle jest opcja skopiowania arkusza z pliku Excela bez jego...
Witam. Jest to jak najbardziej możliwe np formułą: =ADR.POZR(G8) a w g8 adres do komórki (zwykły tekst) ''C:\Users\Desktop\[Zeszyt1.xlsx]Arkusz1... Wtedy w komórce w której jest pierwsza formuła pojawi się wartość z drugiego arkusza. Tylko oba arkusze muszą być otwarte żeby to działało. Wydaje mi się że dużo wydajniejsze było by makro kopiujące dane...
Witam! Proszę o pomoc w następującej kwestii: mam w jednym arkuszu dane liczbowe, testowe itd, natomiast w drugim arkuszu zrobiłem szablon dokumentu do wydruku. Obecnie ten szablon uzupełniam o potrzebne dane po prostu kopiując odpowiednie wartości z danej kolumny, do wiersza w szablonie dokumentu. Jednak chciałbym np dodać przycisk w pierwszym arkuszu...
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ą...
Błąd wynika z faktu, iż nie ma zaczytanych danych bo miały zły format (myślałem, że to nieistotne skoro ma być kopiowane to co tam jest) ale moja wiedza z Excela nie jest wybitna. Mam już sformatowane dane i warunki wykluczające chyba wszelkie możliwości wystąpienia braków w danych. Arkusz może się powiększać w zakresie ilości linii - jest zaczytywany...
Witam, wiem że był podobny temat, jednak tamten mi nie pomógł a ciężko znaleźć jakiekolwiek informacje w internecie. Od kilku dni męczę się z tym kodem, chciałbym aby po kliknięciu przycisku dodawał się nowy arkusz z nazwą pierwszego + kolejny numer po prawej stronie według kolejności, mam makro tworzące kolejny arkusz, lecz pusty oraz mam makro kopiujące...
Czasem pomaga skopiowanie całej zawartości arkuszy, elementów VBA do nowego pliku (Ctrl+c, Ctrl+v) Spotkałem się też z podobnym zjawiskiem przy makro kopiującym spory zakres, zdefiniowany "z górką" (dużo pustych wierszy/komórek). Gdy w v2003/2007 szło to bardzo sprawnie, v2013 "myśli" nad tym denerwująco długo. O dziwo: im więcej pustych, tym makro...
Koledzy posiadam takie makro kopiujące z plików do jednego arkusza. Wszystko działa, problem polega na tym że zaszyte mam gdzie makro ma zaczynać kopiowanie i zazwyczaj kończy na pierwszy wolnym polu. Z tego powodu czasem omija dane jak komórka jest pusta. Czy ktoś mógłby zasugerować jak powinno wyglądać makro kopiujące cały arkusz? Option Explicit...
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...
Witam Jestem jeszcze zielony w makrach excel, dlatego potrzebuję Waszej pomocy. Chciałbym stworzyć makro kopiujące dane z wielu plików excel do jednego pliku zbiorczego. Założenia: 1. Wiele plików dawców *.xls o różnych nazwach znajdujących się w tym samym folderze 2. Kopiowanie z pliku dawcy z zakresu arkusza "Tabela wyników" z komórek A2 do D51 3....
Witam. Napisałem proste makro kopiujące kilka komórek. Maklro działa mi bez problemu. Chciałbym jednak troszkę zmienić wygląd arkusza. Jak za pomocą makr ukryć paski przewijania, paski narzędziowe, menu i obramowania wierszy i kolumn widoczne w excelu. Próbowałem troszkę pokombinować, udało mi już po uruchomieniu wyłączyć paski narzędziowe, lecz gdy...
Witam, Proszę o pomoc, jestem bardzo początkujący i nie wiem czy w ogóle jest możliwe zrobienie czegoś takiego w MS Excel: Posiadam plik roboczy A zawierający listę z nazwami plików (XYZ) w innej lokalizacji (kilkaset plików). Plik A jest edytowany na bieżąco - dane zmieniają się w wierszach do momentu zamknięcia sprawy (jedna sprawa - jeden wiersz...
Witam! Na pewno da się zrobić funkcję wyszukującą :D i makro kopiujące wyszukane dane do tabeli. Póki co, podejrzewam że wystarczyć Ci może wykorzystanie kopiowania zaawansowanego filtru (wartości unikatowych), oraz ewentualnie ustawienie poprawności danych (dla listy wyboru). :idea: Zobacz jak to działa w załączonym arkuszu. 820959
tu masz makro kopiujące te dane z arkusz1 z komórkek b5:b10 do aktywnego arkusza do kolumny D [syntax=vb]Sub macro1() Worksheets("Arkusz1").Range("B5:B10").Co... Range("D:D").PasteSpecial End Sub[/syntax] Reszte musisz bardziej sprecyzowac bo nie bardzo czaje, nowy wiersz czyli do kolejnej kolumny?
Mam skoroszyt w którym są arkusze odpowiadające tygodniom w roku (T-01, T-02...itd.) ale dodaję je na bieżąco gdy dany tydzień się rozpoczyna, kopiując przy tym wartość jednej z kolumn do innej kolumny w nowym arkuszu (wartości z kolumny G z arkusza T-01 mają zostać skopiowane do kolumny D w arkuszu T-02 ) układ każdego arkusza jest identyczny. Zastanawiam...
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...
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ą...
Czy jest to operacja powtarzalna, to znaczy będziesz w przyszłości ponownie zrzucać tych 25 arkuszy do jednego arkusza? Bo jeśli nie, to, moim zdaniem lepiej to zrobić na piechotę, kopiując dane z poszczególnych skoroszytów do jednego. Można wcześniej np. ustawić różne kolory tła dla poszczególnych arkuszy, jak również ponazywać zakresy komórek obejmujących...
Mam stworzony plik excel. Założenie jest jego takie: W arkuszu zrodlo jest baza osób które mogą lub już/jeszcze nie mogą mieć wykonane badanie. Makro, które mam w pliku kopiuje mi wiersze posiadające informację zaproszenie do arkusza korespondencja . Na podstawie danych z tego arkusza powstanie korespondencja seryjna i zostaną rozesłane zaproszenia....
Witam. Chciałem zrobić plik exela który pomoże mi w rozliczaniu projektów. O ile z formułami w komórkach dałem sobie rade to z makrem już nie bardzo. Tak naprawdę pierwszy raz z niego będę korzystał. Prosiłbym o pomoc w stworzeniu takiego makra które w zależności od danych wejściowych skopuje odpowiednie komórki do drugiego arkusza w pierwsze wolne...
Dzień dobry, mam taki problem. Zrobiłam w Excelu przycisk, do którego przypisane jest makro kopiujące i wklejające 3 ostatnie wiersze. W jednej kolumnie są scalone 3 wiersze do jednej komórki i jest w niej lista rozwijana. Gdy włączę ochronę arkusza (na wybrane komórki, nie na tę z listą rozwijaną) to ta lista nie kopiuje się do kolejnego wiersza. Kopiuje...
W jednym arkuszu co jakiś czas jestem zmuszony tworzyć min. 5 wierszy (odpowiednio sformatowanych) i jest to dosyć czasochłonne, dlatego od kilku dni zmagam się z napisaniem makra, które by to trochę usprawniło. Chodzi o to aby przez buttony móc kopiować 5 wierszy z jednego arkusza do drugiego w odpowiednim miejscu. Problem polega na tym, że te miejsca...
tak właśnie też myślałam, z tym że czytałam, że Variant używa się wtedy kiedy nie mamy pewności czy w arkuszu znajdują się tylko np. liczby ze względu na to że variant zajmuje duzo miejsca Option Explicit Sub wczytywanie_danych() Dim dane As Variant dane = Range(Cells(1, 1), Cells(10000, 3)) End Sub czyli powyższe makro robi dokladnie to samo co makro...
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_...
Dołączyłem marko kopiujące dane dla grup . Wszystko działa prawidłowo. Makro nie kopiuje (co jest zrozumiałe) guzików do wyświetlania stanów towaru w poszczególnych salonach. Czy jest jakiś sposób żeby po wyborze grupy np lodówki pokazywały się guziki do wyświetlania stanów. Jest jeszcze jeden problem który mnie nurtuje. Co tydzień do tabeli w arkuszu...
Logika tego Twojego kodu jest dla mnie trudna do ogarnięcia. Na początku jesteś w arkuszu1 i sprawdzasz ostatni wiersz w kol. B - O.K. Potem w pętli przechodzisz kolejne arkusze i w każdym arkuszu: 1) znajdujesz komórki z tekstami: "Wartosc calkowita" i "Waluta", nadając im nazwy obiektów: "kWc" i 'kW". Tu pierwszy błąd: musisz szukać tych tekstów w...
Tak zaawansowany nie jestem :/ Ostatnia linijka Dodano po 7 Ogólnie z tym plikiem tekstowym jest taki problem, że generuje się raz 50.000 stron raz 60.000, innym razem 42.000 itp. i około 90% z nich jest mi nie potrzebnych. I teraz tak: 1. Mam makro, które częściowo obrabia ten plik - i chodzi, jak trzeba 2. Makro do wyszukiwania potrzebnego mi zakresu...
Dzień dobry, mam skoroszyt w którym jest 3200 arkuszy i każdego arkusza mam do skopiowania klika wybranych danych do kolejnych kolumn kolejnych wierszy podstawowego arkusza BAZA. Usiłuję napisać makro, które z każdego z tych arkuszy by przenosiło wybrane dane, utknąłem na takim etapie jak procedura podstawowa ma wrócić po kolejne dane do tego wybranego...
Makro to wielka zagadka :) W zasadzie wszystkie kryteria są w drugim arkuszu. Próbowałem tak: W arkuszu "SAMARA NETHERLANDS" w B3 wstawiłem formułę =SUMA.ILOCZYNÓW(('Client Export'!J:J="(O) woreczek - rozrywa się")*(LEWY('Client Export'!F:F;8)="12083828&qu... Jest to odpowiednik funkcji...
Zrodla = Split( "A1,A2,...,V2:W2" , ",") Cele = Split( "C9,C10,...,L103" , ",") For i = LBound(Zrodla) To UBound(Zrodla) Workbooks(CurrentFile).Sheets(1).Range(Z... ThisWorkbook.Sheets("XXX").Range(Cele(i)... Paste:=xlPasteAll Next i Funkcja Split dzieli Twoje stringi na substringi jak widać na obrazku http://obrazki.elektroda.pl/9146429600_1...
Na pewno masz w otwieranym skoroszycie Arkusz1? Pewnie nie bo używasz Sheet1 Poprawiłem kod na pewno mam w plikach karty oznaczone jako Arkusz 1 itd. niestety nadal nic się nie kopiuje, działa tylko MsgBox
Witajcie, Napisałem makro kopiujące cały wiersz. Problem mam z tym, ze jak bierze już dany wiersz do kopiowania w którym są checkboxy i kazdy z nich ma jakieś odwołanie, to wkleja wiersz ponizej już z tym odwołaniem. Nie wiem jak zrobić aby odwołanie się nie kopiowało, a checkbox tak. Poniżej wklejam kod: [syntax=vb]Sub WstawPo(SearchedRn As Excel.Range,...
Mam nadzieję, że nie zamęczam. Musiałem niestety odrobinę przemodelować tę tabelę stąd też pytanie - Co w poniższym kodzie, trzeba zmienić żeby zamiast kol. B,C,H przerzucał kol. B,C,V z arkusza "kontrole" (kolumny od R stanowią tablice pomocnicze - w zał. plik)? [syntax=vbscript] Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column...
makro arkusze arkusze google makro arkusze google
bosch sterownik silnika mixer pioneer ibiza uszczelniacz
Zamiennik diody SMD S638 - SS34, MBR340, SB340 Naprawa wzmacniacza Unitra WS503 w Krakowie