Spróbuj takiego makra. [syntax=vbscript] Sub Kopiowanie() Dim arkA As Worksheet, arkB As Worksheet, arkZest As Worksheet Dim OstA&, OstB&, GdzieWkleic&, PierwszyWiersz%, IleKolumn% Set arkA = ThisWorkbook.Worksheets("aaa") Set arkB = ThisWorkbook.Worksheets("bbb") Set arkZest = ThisWorkbook.Worksheets("Zestawienie") OstA = arkA.Cells(Rows.Count,...
No tak. Mój błąd, bo powinno być w innej kolejności. Sorry, ale dzisiaj sobota ;) Coś tam (w załączniku) kopiuje. Przeanalizuj, dostosuj do własnych potrzeb.
[syntax=vb]wiersz = 6 Sheets(1).Activate While Cells(wiersz, 1) <> "" Cells(wiersz, 2).Copy Sheets(Cells(wiersz, 1).Text).Range("C8") wiersz = wiersz + 1 Wend [/syntax]
OK. Teraz mam pilne zadanie, w godzinach wieczornych coś do rozwiązania. ... Tu to jest [syntax=vb]Sub copyNumKs() Dim bd As Range, bs As Range, r& With Sheets(1) Set bd = .Cells(1, 5).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 1) End With With Sheets("wydruk") Set bs = .Cells(1, 2).Resize(.Cells(Rows.Count, 1).End(xlUp).Row, 2) End With For r = 2...
O coś takiego chodzi? [syntax=vb]ost_wiersz = Worksheets("Arkusz2").Range("A" & Rows.Count).End(xlUp).Row Worksheets("Arkusz2").Range("A" & ost_wiersz + 1 & ":H" & ost_wiersz + 1).Value = Worksheets("Arkusz1").Range("A1:H1").Val... Worksheets("Arkusz1").Range("A1:H1").Cle...
Wstawiłem tabelę, włączyłem rejestrator makr, zmieniłem nazwę w 'Narzędzia tabel'. Nagrało się m/in: https://obrazki.elektroda.pl/2689543600_... Odpowiedź: Tak, można
Jeśli dobrze rozumiem, to tak:
Po pierwsze - ustaw breakpoint'y i zobacz, w którym miejscu Cie "wyrzuca". Po drugie - po osiągnięciu sumy >20 przechodzisz do nowego arkusza, coś tam wklejasz po czym nie wracasz do pierwotnego arkusza - a Twój kod pracuje na arkuszu w tym momencie aktywnym.
Jeśli makro, następnie tak
Zacznij z petli For Each c In Sheets(1).Cells.SpecialCells(xlCellTypeA...
Chyba łatwiej zrobić dwuklik na wierszu, z którego chcesz kopiować. Równocześnie uruchamiasz makro i wskazujesz wiersz. Możesz też się upewnić, czy to właściwy wiersz. Oczywiście można też wstawić tam InputBox, tylko wtedy jak chcesz uruchamiać to makro? Jeśli chodzi o moją propozycję, to komórki docelowe wypisujesz po kolei jako adresy obiektu Range:...
A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie jak w pierwszej kolumnie tabeli tj. nazwisko i imię), a jeśli arkusz dla danych osób już istnieje, to je pominie. Można np tak: 968207
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
[syntax=vbscript]Sub Zawiera() Sheets("Arkusz1").Select a = InputBox("Podaj tekst do szukania: ", "Wyszukaj") ow = Cells(Rows.Count, "A").End(xlUp).Row y = 1 For x = 1 To ow If InStr(1, Cells(x, 2), a) > 0 Then Range(Cells(x, 1), Cells(x, 2)).Copy Sheets("Arkusz2").Range("A" & y) y = y + 1 End If Next End Sub [/syntax] Poniżej bez rozróżniania wielkości...
Zadaniem jest napisać makro... Wystarczy "zwykła" formuła, jeśli satysfakcjonuje Cię takie rozwiązanie. Coś na wzór: JEŻELI(CZY.BŁĄD(WYSZUKAJ.PIONOWO(...));0... W VBA należałoby zagnieździć dwie pętle dla porównania każdej komórki z każdą...
Ok teraz masz kryteria w tablicach w kodzie VBA w razie jakbyś chciał dodać kryterium, musisz zwiększyć tablicę o 1 i dopisać do tego dodatkowego elementu kryterium z gwiazdkami. Jak zobaczysz kod to chyba będziesz wiedział o co kaman. Dodałem też zabezpieczenie przed kliknięciem dwa razy na makro
Nie wykrzacza się, ale nic nie kopiuje. Arkusz pozostaje pusty...
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...
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...
To dlatego, ze Pan przemianol skorozsyt z gelda na gelda-1. Trzeba skopiować makro do wlasnej książki i przypisać je do przyciskow.
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
Witam. Prosiłbym o pomoc, mianowicie do poniższego makra potrzebuje wstawić warunek, jeżeli w pliku są puste arkusze, to ma ich nie kopiować. Z góry dzięki za pomoc.
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Zarejestruj makro pojedynczej operacji kopiowania arkusza, podejrzyj co jest w środku, a potem dopasuj do własnych potrzeb.
Znalazlem problem, kopiowanie zadzialalo. Dzieki za porady.
Makro jest w pliku ZBIORCZY.XLSM. Te 1_19, 2_19, ..., n_19 nie mają w sobie makra. Z nich makro napisane w pliku ZBIORCZY.XLSM kopiuje do pliku ZBIORCZY.XLSM wiersz nr 2 z Arkusza 1.
[syntax=vbscript]Sub Makro() Sheets("Arkusz1").Select a = Application.Match("W", Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row), 0) nw = Sheets("Arkusz2").Cells(Rows.Count, "A").End(xlUp).Row + 1 If Not IsError(a) Then Sheets("Arkusz2").Range("A" & nw) = Range("B" & a) Rows(a).Delete End If End Sub [/syntax]
Koledzy dobrze radzą, ale to trzeba wdrażać od początku projektu. Więc na przyszłość trzeba to zaplanować inaczej. Tymczasem jednak potrzebne jest rozwiązanie doraźne, polegające na kopiowaniu tego co jest. Na razie to jest ilość danych, z którą Excel sobie poradzi, ale jak danych będzie przybywać, to kopiowanie będzie trwało coraz dłużej. Ponieważ...
Moze być tak :) [syntax=vb]Sub kopiuje() Application.ScreenUpdating = False Dim ws As Worksheet Dim ws2 As Worksheet Set ws = Sheets("Arkusz1") Set ws2 = Sheets("Arkusz2") With ws .Cells(1, 1).Copy End With With ws2 ws2.Activate Cells(Rows.Count, "A").End(xlUp).Offset(1).PasteSpecial End With ws.Activate Application.ScreenUpdating = True End Sub[/syntax]...
Takie proste makro powinno załatwić sprawę: [syntax=vb]Application.ScreenUpdating = False Set wssuma = Worksheets("Suma") ost_wiersz_sumy = wssuma.Cells(wssuma.Rows.Count, 1).End(xlUp).Row For i = 2 To ost_wiersz_sumy With Worksheets(wssuma.Cells(i, 1).Value) ost_wiersz_arkusza = .Cells(.Rows.Count, 2).End(xlUp).Row .Range("B" & ost_wiersz_arkusza +...
Witam, Mam problem z makrem, które znalazłem na forum i które staram się przerobić pod moje potrzeby. Docelowo, makro ma sprawdzać czy w komórce w kolumnie F arkusza 1 jest wyraz "tak" i jeżeli to się potwierdzi to kopiować w pierwsze wolne miejsce w kolumnie D akrusza 2 zawartość komórki B arkusza 1. I jednocześnie usuwać ten wiersz z arkusza 1. Poniżej...
A czy zadziała to w wesji Open Office? Nie. W OO nałeży napisać inne makro. Dodano po 1 tak mam To jak myślisz, dlaczego makro nie zadziałało? ;) Nie odpowiedziałaś na pytanie o wersję Excela!
Dostosowałem makro z w/w tematu. Nie testowałem zbytnio, ani nie testowałem istniejących procedur. Ale na zakończenie usuwana jest zawartość arkusza "TEMP", dlaczego?
nie rozumiem, jak to w kod arkusza? w makro?
Jaky format w A1? Sprobuj Sheets(Range("A1").Text).Select
Po tym opisie wydaje mi się, że nie potrzebne jest w ogóle makro. Prawdopodobnie dało by radę zrobić to formułami. Załącz plik z przykładowymi danymi i zobaczymy co da się zrobić.
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.
Makro to strzelanie z armaty do komara, do jednorazowej operacji wystarczy użyć sposobu. Ja użyłbym funkcji wyszukaj.pionowo. Sprawdzałbym kolumny osobno wyszukując wartości w tej drugiej tabeli. Funkcja ta daje wartość n/d# jeśli nie znajdzie. Potem sprawdziłbym które wiersze nie mają w którejś z kolumn tej wartości. Ułożyłbym formułe =jeżeli(oraz(czy.brak(kkol1);czy.brak(ko...
Witajcie Może się Wam to przyda
Sprawdzałeś powyższy kod? Zasada jest taka, że pierwszy arkusz, to ten do którego będą kopiowane dane z pozostałych arkuszy.
Ręce opadają :) To co Ty właściwie chcesz zrobić? ale jeśli dane są pobierane z internetu Dane z internetu wprowadzaj od razu do "z góry upatrzonego" zakresu. lub np z innej komórki Oprogramuj tą "inną komórkę"... Co to znaczy "z automatu"? Żeby coś się zmieniło w arkuszu, najpierw musi się coś wydarzyć.
Gdybyś zarejestrował sobie makro, to pewnie udałoby Ci się je zmodyfikować pod ten problem. Makro nic więcej nie robi, jak kopiuje i wkleja. W załączniku masz rozwiązanie.
Kopiowany wiersz nie będzie pasował w nagłówki. Musiałoby być (w kodzie arkusza "101-183") coś takiego Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C2:P50")... Is Nothing And LCase(Target.Value) = "x" Then wrsZrd = Target.Row nazwaArk = Cells(1, Target.Column)...
Przepraszam jak mieszam, ale może zobacz tutaj: http://vbatools.pl/podziel-dane-na-arkus...
Chcesz przelecieć po wszystkich arkuszach - do tego jest pętla For Each. Zakładam, że na każdym arkuszu oprócz arkusza, z którego uruchamiasz makro - chcesz wykonać jakąś akcję. Żeby nie wykonywać akcji na arkuszu z którego uruchamiasz makro, możesz wykorzystać warunek If jak w przykładzie.
W tym wypadku wygodniejsza będzie pętla For . Jeśli docelowo dane mają być kopiowane do wielu kolumn należy zagnieździć jedną wewnątrz drugiej. Licznik pierwszej określałby wiersz, drugiej kolumnę. Twój opis nie jest oczywisty i można różnie go interpretować. Najlepiej wrzuć plik z przykładowymi danymi i układem arkusza wynikowego.
Po kliknięciu komórki np. C16 ma się utworzyć arkusz o tej nazwie tj. "C16"? Czy raczej arkusz z nazwą projektu? Jeżeli to drugie, to zamiast używać tabeli przestawnej proponuje: 1. utworzyć arkusz z polem/formantem kombi dla którego źródłem danych będzie pole (kolumna) "nazwa" z arkusza Dane. Po wybraniu elementu z listy zwraca się pozycję tego elementu...
A wbudowany filtr oraz kopiuj-wklej nie wystarczy?
Witam serdecznie, zaczynam dopiero zabawę z makrami w Excelu i potrzebuję pomocy. Chcę napisać makro, które: - otworzy wskazany przez użytkownika plik (nie jest znana jego nazwa i ścieżka więc potrzebuję aby pojawiało się okno wyboru pliku) - to jest w help excela) (np.: PLIK1.xls) - następnie skopiuje wybrane arkusze (nazwa arkuszy się nie zmienia,...
Witam, mam taki problem. Mam kilka arkuszy, których ilość może się zmieniać natomiast struktura będzie zachowana. Każdy arkusz zawiera dane osoby, projekt i ilość godzin przepracowanych na danym projekcie. Liczba projektów jest zmienna w miesiącu maksymalna wartość 30. Chciałbym żeby do arkusza wynikowego skopiować nazwisko, nazwę projektu, ilość godzin...
Post pod postem, ale jakoś chcę zwrócić uwagę autora :) Tak z niedzielnych nudów zacząłem kombinować z tymi pętlami. A jak już jest (prawie) gotowe, to wrzucam. Może się przyda... Warunkiem jest umieszczenie pracowników w odpowiednich wierszach zgodnych z Nr ewidencyjnym i Lp. tzn jeśli Pani Monika ma NrEw. 2 i jest w 4 wierszu (Lp 3), to tak musi być...
A takie coś nie wystarczy? Po wykonaniu skryptu kopiujesz 2 kolumny wynikowe na nowy arkusz i wklejasz specjalnie tylko zawartość.
Może jeszcze załącze cały kod. jaki jest w pliku z makrem który potrzebuje zmodyfikowac. [syntax=vbscript]Sub WyborPliku() ' ' WyborPliku Makro ' ' Klawisz skrótu: Ctrl+j ' Wybor okreslonego pliku na którym ma się wykonać makro Dim robWB As Workbook: Set robWB = ThisWorkbook Dim robWS As Worksheet: Set robWS = robWB.Worksheets("MAKRO") Dim fd As FileDialog...
Witam Potrzebuję stworzyć makro które będzie działało tak że przy pomocy przycisku będzie kopiowało wypełnione komórki w akruszu 1 (wielokrotnie wpisywanie rożne dane do tych samych komórek) do kolejnych wierszy w arkuszu 2. Przykład w załączniku. Będę wdzięczny za pomoc. Pozdrawia
Niestety dalej zapisuje tylko z 01.YY do 43_01. Następnie otwiera 43_02 i koniec Dodano po 2 W plikach 43_02, 43_03... itd makro tylko je otwiera. makro musisz mieć umieszczone w każdym z plików 01.YY , 02.YY itp
Może być w ten sposób? (kolumny pomocnicze można ukryć) Co prawda załączyłaś dane gdzie zawsze był nr transakcji ale działa też jak go wykasujesz -uwzględnia to. edit: podmieniłem trochę formuły by było łatwiej kopiować w bok. Może trochę utrudniłem zrozumienie formuły ale... Główna formuła np. dla "a" w danym miesiącu to: =SUMA.ILOCZYNÓW((C1:C10000="a")*1;(A1:A1...
A Twoje makro mi nie poszło, mam info "subscript out of range". Masz otwarte obydwa pliki? Nie zmieniałeś ich nazw, ani nazw arkuszy?
pokazyje błąd. Nie powinno tak być, albo nie rozumiem. WYSZUKAJ.PIONOWO(A1;Y!A:B;2;0) tylko wtedy, jeśli LICZ.JEŻELI(Y!A:A;A1)>0 Innymi słowy jeśli w Y jest, w przeciwnym razie zapisz ""(empty string) Czy możliwe by nie zmieniał komórki Arkusza X. jesli nie wyszuka w Arkuszu Y odpowienika ? Nie, bo jesteśmy wszystkie formuły przepisze w klatki kolumny...
Odwróciłbym to: makro realizujące aktywację wskazanego arkusza w wybranym skoroszycie i zawierające polecenie copy , przypisane do dowolnej (nie wykorzystywanej domyślnie w Excelu) kombinacji klawiszy, lub uruchamiane zdarzeniem arkusza Np dwuklik... Schowek w Excelu jest obiektem, do którego należałby się odwołać. Natomiast uruchamianie makra kombinacją...
Musiałem dodać fragmenty kodu odpowiedzialne za zróżnicowaną numerację kopiowanych przycisków, a następnie identyfikację przycisku "Clear", który został użyty. Wszystkie przyciski "Copy" działają identycznie - kopiują zawsze pierwszą tablicę na pierwsze wolne miejsce. Możesz tej pierwszej tablicy nie wypełniać, potraktować ją jako szablon, unikniesz...
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
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
Przedstawione makro nie do końca tylko "zapisuje jako" plik. Ono tworzy nowy plik kopiuje odpowiednie dane (arkusze) zapisuje go pod pewna nazwa i go zamyka. Przy czym, ponieważ jest wyłączony "podgląd", nie widzisz wszystkich kroków. Też tak chcesz stworzyć plik? Czy wystarczy ci "zwykłe" zapisz jako - czyli plik nazwijmy go źródłowym, na którym włączysz...
następnie wykonywane jest w tym pliku skomplikowane działanie Na pewno można je z powodzeniem wykonać w VBA. Z drugiej strony: Dlaczego "w kolumnie obok" nie użyjesz tej formuły z "Zeszyt2"? Wydaje mi się, że zamiast opisywać zawartość arkuszy lepiej (wygodniej dla wszystkich) wrzucić plik z przykładem w postaci załącznika na forum :) Szybciej i precyzyjniej...
Potrzebuję makro, które pomogło by Jeśli chcesz gotowy, staraj się nie powodować niepotrzebnych prac, temu kto by mogł pomoc. Które naprawdę powinny być format pole 'numer artykułu ' bo na jednej stronie to tekst(arkusz1) na inny numer(arkusz2)?
A jaki przykład? Bo opis nie do końca pojmowalny. :(
Do tego nie jest potrzebne makro. Wystarczy MSQuery i kwerenda SQL. Dla struktury pliku z załącznika kwerenda będzie wyglądała w następujący sposób: [syntax=sql]SELECT * FROM [Arkusz1$] WHERE Arkusz1$.Nagł_A IN (SELECT Nagł_A FROM [Arkusz2$])[/syntax] Przeanalizuj plik oraz kwerendę i dostosuj ją do swojego pliku.
http://office.microsoft.com/pl-pl/excel-...
Chciałabym, aby odpowiednie komórki automatycznie uzupełnić odpowiednimi odniesieniami do sąsiedniego arkusza. VBA fajna rzecz - warto się poduczyć :D , lecz póki co dla Twoich celów wystarczy wykorzystać prostą funkcję :spoko: 897374 3 formuły jak na zrzucie możesz kopiować do następnych kart.
Deklarujesz zmienną jako skoroszyt, przypisujesz arkusz. Nie może działać...
This user is not allowed to use direct links. Please email support(at)box.net for support Zamieść to po prostu tutaj. A rada jeszcze taka - stwórz od nowa skoroszyt i wklej makro.
nagraj makro, to jest chyba najprostrze rozwiazanie,
Długo nikt nie odpowiada, więc chyba coś tu nie jest jasne. Excel może działać (upraszczając nieco) poprzez formuły lub poprzez makra. Formuły nie mogą niczego przenosić, mogą jedynie "kopiować", a ściślej zwracać wynik tam, gdzie wcześniej wpisano formułę, pozostawiając dane źródłowe bez zmiany. Formuły działają automatycznie, przeliczają się same,...
W załączonym pliku nie ma przycisku "next" więc ciężko określić co ma się kopiować a co nie. Natomiast przycisk "zapisz" który istnieje w twoim pliku z wykorzystaniem makra kolegi adamasa, przynajmniej w E2010 nie jest kopiowany. do nowego arkusza (w domu sprawdzę na 2003)
Tak, nagrałam to makro w tym pliku, w którym mi wywala błąd w kodzie I jak uruchomisz to makro w tym pliku na serwerze to wszystko ok? (to podstaw pod te makro zmienne i zobacz)
Witaj! Takie porównanie nie wymaga makro, wystarczy zwykła formuła, jeśli zamieścisz wzorcowy arkusz, to napisze to w kilka minut.
heh.. no w zasadzie tak ;) Dodano po 4 edit: Tylko, że kwoty do KP to kolumna E a kwoty do KW to kolumna F Dodano po 6 A czy jest możliwość, aby Arkusz z drukami był od razu mieszany ? tzn KP i KW na jednym arkuszu w odpowiedniej kolejności? wzory KP i KW różni się nieco prawym dolnym rogiem ( z podpisami ) więc rozbiłem je na dwa arkusze i chciałem...
Kopiuj całe wiersze. Odpowiednia linia jest w makro w załączniku. Usuń apostrof opisanej linii, wyrzuć/zaapostrofuj trzy następne (od For do Next).
W arkuszu jest 5 kolumn. W 5 są dane typu prawda, fałsz, które są powiązane są z odpowiednimi komórkami w kolumnie 1 i 2 (te same wiersze). Plik zmienia się więc za każdym razem inne wiersze są FAŁSZ. Jak stworzyć makro, które kopuje komórki z kolumny 1 i 2 mające w kolumnie 5 FAŁSZ do nowego arkusza?
Do powielania arkuszy i adaptacji formuł możesz wykorzystać makro z załączonego pliku :D - zaczyna pracę dopiero od arkusza 2.2 :!: i działa w ten sposób, że po wybraniu 1 arkusza w skoroszycie (tj. o najwyższej numeracji w nazwie :D ) - poprzez dwuklik myszką w ten arkusz - automatycznie kopiuje arkusz i ustawia nową nazwę i podmienia formuły :spoko:...
Dziękuję. Wszystko działa. Zamykam Dodano po 8 Pojawił się jeszcze jeden problem. Makro nie chce zapisać do pliku xlsm Jest na to jakiś sposób? Dodano po 13 Przebrnąłem przez problem z zapisem do xlsm dodając: FileFormat:=xlOpenXMLWorkbookMacroEnable... Jednak napotkałem na kolejny problem, makro kopiuje arkusz ze wzoru z obsługą makr jednak nie kopiuje...
Jeżeli arkusz ma być eksportowany do nowego pliku, to lepiej zrezygnować z formuł (będą się łącza za nim ciągnąć) i zrealizować wyszukiwanie w makro (metoda Range.Find, lub w pętli). p.s. Jeśli umieściłeś makro w module, zastosuj precyzyjne odwołania (arkusze). Przycisk przyciskiem, ale łatwo "wdepnąć"...
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...
Witaj. Sprawdź załącznik. Checboxy zastąpione czymkolwiek w kolumnie (może być X, może być cokolwiek poza pustym polem). Poprawność stawiania xów czy innych jest sprawdzana na bieżąco, więc jeśli spróbujesz postawić iksy dla dwóch różnych zamówień to wyjdzie błąd już w momencie stawiania. Nie jestem pewien, po co numer wiersza, wystarczy że masz w tabeli...
Wpisałem jak poniżej Set dirObj = MergeObj.Getfolder("D:\Arkusze\")
Dziękuje za pomoc Makro działa tylko 2 rzeczy nie do końca robi tak jak chciałem (może wcześniej się źle wyraziłem). Makro w komórkę J1 w zakładce Dane1 wstawia całą listę krajów, mi natomiast chodziło aby w komórkę J1 wstawiał nazwy wg kolejności z listy. Np. Komórka J2= Albania makro kopiuje wszystkie dane policzone dla Albanii do arkuszy Kraje1 i...
mam duży problem (choć prosty :-) ) mam tekst: get system name name = ... w drugiej kolumnie odpowiedni " PPPoA Bridging ... skrypt: WierKon = InputBox("wiersz koncowy") N = WierKon Sheets.Add.Name = "liczniki_pppoa" ' nowy arkusz Sheets("liczniki_pppoa").Select ActiveWorkbook.Sheets("liczniki_pppoa").... = 3 Sheets("Arkusz1").Select 'WierAkt...
Mam małe pytanko jak zmienić makro aby zaczytywało z podkatalogu plików?
Ja chce kopiować komórki pomiędzy arkuszami Umieść kod w module (nie w kodzie arkusza)...
Myślę, że będzie to wyzwanie (raczej) niewykonalne. Możesz stworzyć procedurkę uruchamianą z jakiegoś przycisku lub z menu "Makro". Chcesz kopiować jakiś stały fragment arkusza?
Chcesz za każdym razem kopiować tylko niektóre z tych danych (komórek) czy zawsze wszystkie?
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...
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]
Witam Mam problem ze stworzeniem makra. W zasadzie to nie wiem jak się za to zabrać . Parę miesięcy temu byłem na podstawowym szkoleniu z excel i tam miałem okazję napisać kilka prostych rzeczy i na tym moje doświadczenie się kończy. Widzę że na tym forum jest dużo ludzi którzy mają szeroka wiedzę na ten temat i mam nadzieję że ktoś zechce mi pomóc....
[syntax=vbnet]Sub Bazy() On Error Resume Next Dim a As Worksheet, b As Worksheet Set a = Sheets("Baza danych A") Set b = Sheets("Baza danych B") a.Select owa = Cells(Rows.Count, "B").End(xlUp).Row owb = b.Cells(Rows.Count, "C").End(xlUp).Row For x = 5 To owa w = "" w = Application.Match(Cells(x, 2), b.Range("C5:C" & owb), 0) + 4 If w > 0 Then Cells(x,...
Oczywiście że jest... Zidentyfikuj sobie jakoś wózki (nie wiem, albo nr, albo coś innego), zrób makro i po krzyku...
Teraz działa wszystko jak w zegarku, a to jeszcze jedno pytanko czy można kopiować dane z ukrytego arkusza?, a jeszcze jedno czy część nazwy pliku może być pobrana z nazwy arkusza ?
Jeśli chodzi o klasyczne odwołanie, to nie jest to możliwe, gdyż odwołanie zwraca tylko wartość komórki, bez formatowania. Ponadto, nawet z użyciem VBA, komórka zawierająca formułę musi być sformatowana jednolicie (to znaczy można sformatować całą komórkę, ale nie poszczególne znaki). Szkoda, że nie dałaś pliku załącznika, bo wtedy łatwiej można by...
Zobacz, czy o to chodziło. Makro do kopiowania: [syntax=vbscript]Sub Kopiuj() Dim b As Worksheet Dim ow As Long Set b = Sheets(ActiveSheet.Index - 1) ow = b.Cells(Rows.Count, "A").End(xlUp).Row - 1 Dim CopyRng As Range, PasteRng As Range b.Range("A4:B" & ow).Copy ActiveSheet.Range("A4").PasteSpecial Paste:=xlPasteValues b.Range("N4:O" & ow).Copy ActiveSheet.Range("N4").PasteSpecial...
a koniecznie makro? To można zwykłymi funkcjami zrealizować.
excel makro kopiować arkusz excel kopiować arkusz arkusz excel kopiować arkusz
czujnik biegu wstecznego alkoholem izopropylowym samsung wymiana klawiatury
rudocell viessmann ogranicznik przepięc
Odczyt oprogramowania z mikrokontrolera 89C51RB3 Telefunken TLEDDS 55FHD Firmware Update Guide