aktywny arkusz makro

EXCEL - Makro do usuwania przeterminowanych dat w kolumnie 'AI'

If k <= Date Then Cells(k.Row, k.Column) = "" A jeżeli zakres nie jest w aktywnym arkuszu?

Excel-makro-kopiuj i wklej do nowo utorzonego arkusza jeśli suma >20

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.

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Makro do wstawiania nowego arkusza, jeśli nie istnieje - jak dopisać kod?

Przecież pod linkiem jest składnia. Cytuję przykład dodania arkusza przed obecnie aktywnym: [syntax=vbscript]ActiveWorkbook.Sheets.A... Before:=Worksheets(Worksheets.Count) [/syntax]

Makro w Excelu: Kopiowanie danych z aktywnego wiersza do końca arkusza

No jak chcesz koniecznie kopować: Sub Kopio_aktyw_wiersza() ' ' Kopiowanie danych z aktywnego wiersza kol. A do D ' aktywny = Selection.Row kolumna = 1 ostatnia = Cells(Rows.Count, kolumna).End(xlUp).Row ' bez selekcji od razu kopiowanie wybranych komórek : Range(Cells(aktywny, 1), Cells(aktywny, 4)).Copy 'kopiowanie danych z aktywnego wiersza zakres...

Jak stworzyć makro drukujące Arkusz 2 w Excel 2007?

Metoda PrintOut z klasy workshet nie powiodła się Uruchamiasz makro z aktywnego arkusza "formularz" :!: a drukujesz inny arkusz "oswiadczenie" :idea: Twój wcześniejszy kod jest jednoznaczny :D tj. ActiveWindow. Selected Sheets

[VBA][Excel] - Makro na aktywowanie arkusza z poziomu już aktywnego

[syntax=vbscript] On Error GoTo SubStop For Each Sheet In Worksheets Sheet.Test Next Sheet SubStop: On Error GoTo 0[/syntax]

Wstawianie wierszy przez makro o określonej liczbie wierszy

Spróbuj takiego makra: [syntax=vbscript]Sub Powielanie() Dim ile As Long, w As Long w = 1 Do With Cells(w, 2) ile = .Value .ClearContents .Offset(1, -1).Resize(ile - 1, 2).Insert xlShiftDown .Offset(0, -1).Resize(ile, 2).FillDown w = w + ile End With Loop Until Cells(w, 2) = vbNullString End Sub[/syntax] Makro działa w arkuszu aktywnym zgodnie z przedstawionymi...

VBA: Makro kopiujące wartość aktywnej komórki do 3 komórek poniżej w arkuszu Rejestr

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.

Jak zmodyfikować makro, aby działało po zmianie nazwy arkusza?

Odwołanie do aktywnego arkusza może rozwiąże problem.

Excel-vba - kopiowanie w petli, problem z podaniem zakresu cells

Prawdopodobnie uruchamiasz makro z aktywnym arkuszem innym niż "z". Każdy pojedynczy zakres w tym przypadku musi być precyzyjny, nawet jako argument. Path.Range(Path.Cells(), Path.Cells()) Masz do wyboru (zwróć uwagi na kropki przed Cells): [syntax=vb]with mainwkb.Worksheets("z") .Range(.Cells(i, 1), .Cells(i, 3)).copy 'itd End with 'co jest tym samym...

Jak zmodyfikować makro w Excel 2010, aby drukowało dwustronnie?

Nie zaznaczam zbiorczo wszystkich arkuszy i tak drukuje. Sytuacja ma miejsce jeśli wybiorę ręcznie jakieś określone arkusze i dam drukuj aktywne arkusze to drukuje dwustronnie. W moim makro nie ma aktywnych arkuszy więc może to jest przyczyną wydruku pojedynczego. Jutro wypróbuję twoje makro i się odezwę. Dodano po 15 Niestety makro "zbiorczo" nie działa....

VBA- przeszukiwanie wielu arkuszy i wypisywanie wierszy - EXCEL

Zakładając, że makro uruchamiasz przy aktywnym arkuszu wynikowym, konstrukcja powinna wyglądać mniej więcej tak ostWrs = tu szukamy ostatniej niepustej komórki w arkuszu wynikowym For Each sht In ThisWorkbook.Worksheets If sht.Name <> "tu nazwa arkusza wynikowego" Then ostWrsArk = tu szukamy ostatniej niepustej komórki w arkuszu źródłowym...

Excel - jak zastosować makro do wielu arkuszy w jednym pliku?

1. Umieść makro w module standardowym (jeśli jest w kodzie arkusza). 2. Odszukaj i podmień wszystkie odwołania do arkusza Np Worksheets("Arkusz1") na ActiveSheet . Można dla ułatwienia przypisać skrót klawiszowy i teraz wystarczy uruchomić makro w dowolnym, aktywnym arkuszu.

Jak napisać makro do kopiowania wierszy z plików xls zabezpieczonych hasłem?

Kopiowanie przypisane jest do A1 w dół w aktywnym arkuszu. Przejdź makro krok po kroku [wspomniane F8], obserwuj co się dzieje (jakie wartości przypisywane są do zmiennych). Czy nie lepiej byłoby zamapować lokalizację sieciową i odnosić się do skrótu?

Formuła ze zmienną z odwołaniem do zamkniętego pliku

Propozycja rozwiązania w oparciu o makro. W module uniwersalnym wpisałem takie makro: [syntax=vbscript]Sub NowaData() On Error Resume Next Dim ark As String With ActiveSheet ark = .Range("BA22").Value .Range("BI21:BI25").FormulaLocal = "=SUMA.ILOCZYNÓW('[Wyniki tygodniowe.xlsx]T" & ark & "'!$H$2:$H$23;--('[Wyniki tygodniowe.xlsx]T" & ark & "'!$G$2:$G$23=$BH21))"...

VBA,EXCEL - podwójna pętla do kopiowania/segregowania danych

Co do twojego kodu, .Range/.Cells - odwołuje się do aktywnego arkusza? Chodzi mi o te kropki na początku. Nie, odwołuje się do obiektu - w tym wypadku arkusza - użytego w otaczającej klauzuli With... To taki skrótowiec, którzy przed kropką wstawia to, co jest w With, czyli zamiast powtarzać: Przy próbie tworzenia kolejnego arkusza wywala błąd 1004...

kopiowanie wierszy do innego arkusza po znalezieniu okreslonego słowa

U mnie ten kod działa. Pytanie, czy zrozumiałeś co on robi? Bo sprawdza występowanie fragmentu "www" w kolumnie A (od drugiego wiersza) w aktywnym arkuszu (tym, który jest aktywny gdy odpalasz makro). PS. Zmienna poz jest niepotrzebna, została po innych fragmencie.

Makro kopiujące zawartość z arkuszu a do arkuszu b

Witam próbuje napisać makro kopiujące zawartość komórki aktywnego arkusza z komórki M2 do arkusza A komórki b1 ale jeśli b1 jest zajęte żeby wprowadziło dane do komórki b2 i tak coraz niżej .

Excel - Makro do usuwania formatowań warunkowych ze wszystkich arkuszy

Witam. Jak makrem usunąć wszystkie formatowania warunkowe, wszystkie znaczy ze wszystkich arkuszy pliku? Mam taki kod jak poniżej ale on usuwa tylko formatowania z aktywnego arkusza: [syntax=vbnet]Cells.FormatConditions.Del...

Jak połączyć kilka kolumn w jedną w Excelu? (dane liczbowe)

W Module1 jest makro. Zrobić aktywny arkusz z kolumny, naciśnij klawisz Alt-F8, wybierz 'kokos' i uruchomić

Excel - Wyciągnięcie daty z tekstu wpisanego w komórkę

W tym przypadku to przejdzie, ale nie zawsze Jak nie będzie takiego przypadku szczególnego :D to proponuję Ci makro "wyszukajdaty", które uruchamiane skrótem ctrl+w wypisze w aktywnym arkuszu w jednej kolumnie pierwsze daty, a w drugiej - drugie daty :spoko: - tak jak na zrzucie i w załączonym pliku. 1054371 1054372

VBA EXCEL - Makro do kopiowania arkusza Day jako Next Day1, Next Day2

Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.

Jak zmodyfikować makro Excel dla wielu arkuszy - podświetlanie wiersza

Trzeba odwołać się do aktywnego arkusz a nie do konkretnego.

VBA makro do tworzenia arkuszy o nazwach pobieranych z komórek

Arkusz1.Cells(ostw + 1, kQy.Column).Formula = Application.WorksheetFunction.Sum("=D7/E... Bardzo dziwne rzeczy wypisujesz w tym wyrażeniu. 1) Jeśli po prawej stronie masz wyrażenie zwracające wartość (WorksheetFunction.Sum), to po lewej stronie powinno być .Value, a nie .Formula. Pisałem już o tym, to nie jest formalny błąd, ale zagmatwanie kodu. 2)...

Makro nie działa na innym arkuszu. Kopiowałem kod w inny Arkusz.

Makro, które zamieściłeś powinno być umieszczone w module uniwersalnym skoroszytu, a odwołuje się ono do arkusza aktualnie aktywnego oraz do arkusza o nazwie "Baza". Ponieważ w kodzie są pętle po wierszach i kolumnach, a ich adresy początkowe są zapisane na sztywno, to struktura (w sensie umieszczenia początku danych) musi być jednakowa dla wszystkich...

Excel VBA: Parametry dla Find i Replace do wyszukiwania danych w skoroszycie lub arkuszu

Witam, Jaki parametr należy wpisać do Find i Replace by makro wyszukiwało /zamieniało/ dane w zależności od potrzeb w całym skoroszycie lub tylko w aktywnym arkuszu.

Excel-Blok. zapisanych komórek - nie zapisane dalej mozliwe do edycji

przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...

Jak dodać czyszczenie danych po skopiowaniu w VBA Excel?

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...

Makro do łączenia komórek w wierszach w zależności od ich wypełnienia

Propozycja makro łączącego komórki tak jak chciałaś. Makro wykorzystuje dane z kolumn H i I, zastępuje formuły w komórkach scalanych. Usuwa formuły w kolumnie J (aby umożliwić modyfikację danych w razie potrzeby). Nie ingeruje w formatowanie warunkowe, które było już ustawione w arkuszu. Makro jest zapisane w module uniwersalnym. Działa w arkuszu aktywnym....

[VBA] - Makro do kopiowania danych z innego pliku.

JRV Zgadza się. Przeoczyłem, że autor uaktywnia aktywny arkusz, czyli nie ten, którego się spodziewał.

Excel VBA - makro sprawdzające wartości ujemne w Arkuszu1, automatyczne uruchamianie

Bardzo dziękuję! :) Jeszcze mam ostatnie pytanie: czy jest możliwość aby makro sprawdzało te komórki w arkuszu 1 ale komunikat wyświetlało w arkuszu 2? (albo tym, który będzie w danej chwili aktywny). Bo z kolei to C11 i C10 zależą od wartości w innym arkuszu.

Makro,kopiowanie i filtrowanie danych miedzy arkuszami

To znaczy, że coś nie zgadza się z założeniami. Prawdopodobnie nazwy plików. Zapuść takie makro (aktywny arkusz z przyciskiem) [syntax=vb]Sub sprawdz() sciezka = Range("G11") plik = Dir(sciezka & "*.xls") While plik <> "" licz = Len(plik) - Len(Replace(plik, " ", "")) If licz > 1 Then MsgBox "plik " & plik & " ma w nazwie " &...

Excel - Makro wysyłające maile na podstawie numeru sklepu i bazy adresów

Najpierw musisz przygotować dane które chcesz wysłać, czyli jakiś raport. Możesz to zapisać do pliku, albo umieścić w roboczym arkuszu (to bym zalecał, bo szybsze). Następnie możesz wysłać plik lub aktywny (zawsze możesz go uaktywnić) arkusz.

VBA - Błąd przy duplikowaniu arkusza: przyciski bez makr

Witam, Napotkałem dzisiaj dzwiny błąd i nie mam pojęcia jak go wyeliminować. W moim arkuszu mam 3 pzyciski do których podpiete są makra. Dzisiaj potrzebowałem zobić makro które duplikuje mi aktywny arkusz w tym samym skoroszycie i zmienia jego nazwe. Napisane makro w pełni mnie zadowala i spełnia oczekiwania, ale jest jeden problem gdy uruchamiam makro...

Excel - Jak automatycznie oddzielić tekst na kolumny przy wklejaniu danych?

Makro umieść w kodzie arkusza, prawy pm i wybierz "Wyświetl kod" lub wklej przez edytor. Równie dobrze można wrzucić do modułu, wtedy makro (jeśli nie sprecyzujesz) będzie działać w aktywnym arkuszu.

Makro wyszukujące nazwę arkusza w pliku przez okno MsgBox - VBA

Rozumiem, że jest tam jakaś nawigacja ale przy 30 zakładkach bądź nawet więcej dalej to będzie na zasadzie szukania ich, a ja chciałbym jakieś rozwiązania, które pozwoli tylko wpisać nazwę arkusza i on wtedy się wyświetli jako aktywny. Na przykład jeżeli otwieram plik, chciałbym okno w którym wpisuje nazwę interesujacej mnie zakładki np. "KKS" i odrazu...

Excel (VBA) - wyszukiwanie komórki w tabeli przestawnej

W arkuszu "raport" zaznaczam jako aktywną komórkę E5. Naciskam przycisk "pokaż szczegóły" do którego podpięte jest makro i otrzymuję to co znajduje się w arkuszu "wynik kliknięcia".

[EXCEL] Jak uruchomić makro w tle w Excelu bez przerywania pracy?

Spróbuj wyłączyć odświeżanie: Application.ScreenUpdating=False za linią z Windows(rap).Activate. Włącz na końcu =True Jeśli nie zadziała można przerobić kod tak, żeby nie było potrzeby "biegania" po arkuszach (bez activate, select, etc)... Np fragment z sortowaniem (nie odwołuj się do okna instancji, tylko do konkretów). W przykładzie przypisanie i...

Excel - Jak zastosować makro do dzielenia komórek w 25 tys. arkuszy?

Pojawia mi się błąd next without for a bez next a stosuje tylko do aktywnego arkusza

MS Excel: Makro zmieniające kolor kształtów na innym arkuszu

Cześć witam wszystkich chodzi mi o makro które zmienia kolor tła kształtu , Kształty to trzy kwadraciki na arkuszu 1 , na arkuszu 2 znajdują się trzy przyciski , i chodzi mi oto żeby po wciśnięci przycisku zmieniał się kolor wypełnienia danego kwadracika mama takie makro ale to makro jest na aktywnym arkuszu a mi chodzi żeby cały czas pozostawać na...

VBA EXCEL - Makro po wypełnieniu komórki tworzy nowy arkusz i dodaje hiperłącze

same zwykłe litery, czy jest możliwość aby makro brało aktywną komórkę z formularza wzór a nie z formularza set?

Excel VBA - kopiowanie,transponowanie i wklejanie w nowym wierszu

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)

zaznaczanie obszaru, w którym mają być wstawione komórki

Jeżeli podczas działania makra aktywnym arkuszem jest "Arkusz uzgodnieniowy" to Twój kod pomimo tych błędów zadziała prawidłowo, ale jeśli aktywny jest inny arkusz, to kod nie zadziała. No właśnie i z tym wiąże się kolejny problem - ogólnie to makro wczytuje plik z określonej ścieżki poleceniem "GetOpenFilename" Tylko w ten sposób ma być wczytywane...

EXCEL VBA - Makro wstawiające dodatkowe nagłówki do tabel

Bez makra: - zaznaczasz arkusze w których mają być wprowadzone zmiany (CTRL+LPM na kolejnych nazwach arkusza "zakładkach" lub mając aktywny pierwszy arkusz w którym mają być przeprowadzone zmiany, trzymając SHIFT klikasz na nazwę ostatniego arkusza do zmian i zaznacza Ci się "zakres" arkuszy) - mając zaznaczone arkusze, w aktywnym arkuszu dokonujesz...

Jak usunąć makro z arkusza skopiowanego do nowego pliku Excel?

Oczywiście to co kolega (at)PRL zaproponował to jedna z możliwości, możesz również przesłać kod z aktywnego skoroszytu do innego bez "zewnętrznego" pliku.

(VBA) EXCEL - przenoszenie i łączenie kolumn w nowych skoroszytach według filtru

A co jeszcze zostanie? Chyba nic.;) Czyli faktycznie przegiąłem... No nic , będę musiał walczyć dalej sam. Pętelka , którą mam (makro) pięknie skacze po arkuszach i wywołuje makro do wysyłki email , przerobiłem to makro aby wysyłało na adres z komórki "D1" z aktywnego arkusza - no i ładnie to wysyła. Przecież nie pisałem "macie mi to zrobić" tylko...

makra - ukrywanie wierszy jeśli w całym zakresie wartości tylko zerowe

Witam, mam następujący problem. Potrzebuję makro, które ukryje wszystkie wiersze w aktywnym arkuszu dla których w kolumnach D:AD wartości równe są zero. Przy czym nie chce żeby usuwało wiersze z pustymi komórkami. Będe wdzięczna za pomoc. Markiza

VBA - Jak formatować liczby, pomijając wartości procentowe?

Bardzo dziękuje. Czy mogłabym jeszcze prosić o komendę , która pozostawia kursor w aktywnym konspekcie ? Mam w arkuszu 7 grupowań i chciałabym aby makro (powyższe z 1 zapytania) działało tak, ze kursor po dzialaniu makra zostaje w konspekcie z którego użytkownik włączył makro. ..ActiveSheet.Outline.ShowLevels

Makro- automatycznie sortowanie kolumny a i b w/g kolumny B

1 w 3 w 1: a) Workbook_Open - jeśli przy otwarciu danego zeszytu jego arkusz "Zamówienie" jest aktywny, to wywołaj makro sortujące, np.: [syntax=vba]If ThisWorkbook.ActiveSheet.Name = "Zamówienie" Then Call sortuj_to[/syntax] b) Worksheet_Activate - wywołaj makro sortujące, np.: [syntax=vba]Call sortuj_to[/syntax] c) Makro sortujące - wg starego lub...

Makro do zapisu PDF i wydruku arkuszy w Excelu - błąd w kodzie

Nie pomogło - ale dziękuję za pochylenie się nad tematem. Drukuje dobrze czyli tylko te arkusze, w których w komórce d21 jest wartość > 0 (pomijając wskazane arkusze), ale problemem jest zapis tych arkuszy wg nazwy z komórki F7 (nazwa inna w każdym arkuszu). Aktualnie zadziałało to w ten sposób, że wydrukowało OK, zapisało tyle pików w ilu jest wartość...

Eksport z Excela do Pdf. Jak zapisywać wybrane arkusze

Mam Makro, które pobierając dane z Arkusza zapisuje aktywny arkusz w lokalizacji określonej w komórce arkusza pod nazwą również pobieraną z komórki. Ograniczeniem jest to, że zapisywany jest aktywny arkusz. Co dopisać, aby do pdf były zapisywane arkusze, których nazwy również byłyby pobierane z komórki wskazanego arkusza? [syntax=vbscript]sub Export_to_pdf()...

Makro nie działa po dopisaniu do wydarzenia arkusza

Wyłącz event'y [syntax=vb]Private Sub Worksheet_Activate() Application.EnableEvents = False przeliczAZ Application.EnableEvents = True End Sub[/syntax]Bo jeśli wykonasz [syntax=vb]Sheets("wpłatyH").Visible = False[/syntax]Aktywnym staje się "ZALEGŁOŚCI" i masz pętlę.

EXCEL VBA - odczyt metodą ADODB z otwartego pliku (udział sieciowy)

Witam serdecznie, Mam problem z odczytem danych metodą ADODB z innego arkusza Excel będącego na udziale sieciowym i który może być otwarty przez inną osobę na swoim komputerze. Korzystam z funkcji napisanej przez Tajana: [url=http://www.excelforum.pl/viewtopic.... do ExcelForum - Funkcja GetValue. O ile funkcja ma podstawowe zadanie czytać...

Usuwanie zawartości komórek z wyjątkiem niektórych;kopia arkusza aktywnego

Witam, borykam się z następującym problemem. Nagrałam makro do przycisku, które kopiuje arkusz (zawsze ten sam, nie ten aktywny - niestety). Po skopiowaniu arkusza następuje usunięcie wszystkich wprowadzonych danych, żeby znowu mieć pustą formatkę na nowy tydzień. Jak wprowadzić w tym kodzie warunek, żeby w danym zakresie czyściło zawartość ale z wyjątkiem...

Excel - Makro do automatycznego wydruku tabeli z dostawami na koniec dnia

Szablon PZ musiałbyś najpierw utworzyć w dodatkowym arkuszu. Umieszczenie w nim danych i wydruk, to już tylko "chwila" Odn. zegara Wklej do modułu [syntax=vbscript]Option Private Module Sub Zegar() If Time > "23:49:00" And Time < "23:59:00" Then Druknij End If NextTick = Now + TimeValue("00:10:00") Application.OnTime NextTick, "UpdateClock" End...

Excel - jak automatycznie sortować komórki z wartościami różnymi od 0?

Nagraj makro sortowania i umieść je w kodzie arkusza przy zdarzeniu Worksheet_Change. Możesz ograniczyć aktywny zakres do jednej kolumny.

VBA/Excel - Jak uprościć kod filtra zaawansowanego bez kopiowania formatów?

Dzień dobry, Aby uniknąć migotania ekranu przy zmianie aktywnego arkusza należy na początku makra dopisać linijkę: [syntax=text]Application.ScreenUpdating = False[/syntax] a na końcu linijkę: [syntax=text]Application.ScreenUpdating = True[/syntax] Czy jest możlwe jeszcze jakieś usprawnienie, to trudno powiedzieć bez wglądu w strukturę danych. Jeżeli...

Excel VBA: Makro do wypełnienia dat w komórkach A2 w 31 arkuszach

Twój kod nie działa. Myślałem, że wiesz o tym, a jak nie wierzysz to porównaj co robi Twoje makro, a co jest mi potrzebne. W pole A2 wpisuje datę z dniem równym nazwie aktywnego arkusza..... Drwiny z 31 lutego to...żenua, wobec tego, że mam arkusz taki sam na 12 miesięcy roku.

VBA - Makro drukujące zakres komórek / open office

Próbujesz w OpenOffice uruchomić makro napisane w Excelu? Nie będzie działać. Trzeba przepisać. Mnóstwo informacji znajdziesz w Internecie. Tu przykład makra wydruku z zapisaniem "oryginał/kopia": http://obrazki.elektroda.pl/5534132900_1... Generalnie nie jest to trudne. Trzeba "złapać". Zakres C7:C10 aktywnego arkusza w VBA zapisujesz...

VBA masowe importowanie modułu *.bas do plików Makro

Powyższy kod nie zawiera błędów. Domyślam się że nie ma tylko ja coś robię źle bo skrypt przechodzi bez błędu ale też nic nie importuje Ten wiersz odpowiada za zaimportowanie do aktywnego arkusza pliku *.bas [syntax=vbscript]InsertVBComponent ActiveWorkbook, "C:\KbTest.bas"[/syntax] Czy coś źle rozumiem ?

Powtarzanie całego makra - tyle razy ile wynosi wartość konkretnej komórki

Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...

Excel VBA - wywoływanie User Form aktywną komórką

Jeśli makro zdarzeniowe ma działać w konkretnym arkuszu, to powinno być zdefiniowane w module kodu tego arkusza. Jeśli takie samo makro ma działać w kilku arkuszach, to można alternatywnie zdefiniować makro skoroszytu w module Ten_skoroszyt (ThisWorkbook). Te makra mają trochę inne nazwy, trzeba wybrać odpowiednie makro z listy.

Excel – zacinanie się i przenoszenie między plikami przy pracy na wielu arkuszach

Powiem tak: Nie spotkałem się z takim problemem ze "zwykłymi" plikami excela. Jednak wystarczy jeden plik z nieodpowiednio napisanym makrem który "rozwala" wszystko. Ktoś pisząc makro np. nie przewidział, że może być aktywny inny arkusz niż zamierzony w kodzie makra lub nie przewidział wyłączenia uruchomionej jakiejś procedury która może czeka na jakąś...

Jak stworzyć makro VBA do kopiowania danych między arkuszami?

Cześć, przejrzałam podobne tematy do mojego problemu ale niestety nie potrafię tego odzwierciedlić w moim zadaniu. Chodzi o to że mam dwa pliki A i B. Plik A jest aktywny i w nim chcę żeby działało makro, które ma na celu: -otworzyć plik B Arkusz2 i wyszukać liczb które znajdują się w plikuA w kolumnie A. Jeśli je znajdzie to przekopiować z tego samego...

Excel - makra kopiujące kolumny i sumujące kilka wierszy w jeden

Przykładowe makro: [syntax=vbscript]Sub numery() Dim coll As New Collection Dim ow As Long, i As Long ow = Range("A" & Rows.Count).End(xlUp).Row On Error Resume Next For i = 2 To ow If Range("A" & i).Value <> vbNullString Then coll.Add coll.Count + 1, Range("A" & i).Value If Err = 0 Then Range("B" & i).Value = coll.Count Else Err.Clear...

Excel: Jak stworzyć makro do weryfikacji numerów seryjnych?

No to już tylko makro. Np takie Sub Wpisz_Jest() Columns("A:A").Sel... On Error Resume Next wiersz = Selection.Find(What:=Range(&... After:=ActiveCell, LookAt:=xlWhole).Row Cells(wiersz, 3) = "Jest" Cells(1, 2).Select End Sub Możesz je umieścić w kodzie arkusza...

Excel_VBA: Instrukcja warunkowa na nieaktywnych skoroszytach

"Jaki sens ma deklarowanie zmiennej obiektowej typu Workbook w obrębie jednego skoroszytu (jak wynika z Twojego kodu)?" Moja odpowiedź dla naszego początkującego kolegi ma mieć walory edukacyjne, dlatego zastosowałem taką konstrukcję. Może się wydawać trochę bez sensu w tak prostym przypadku, ale przy złożonych aplikacjach mających setki może tysiące...

Excel VBA: Deklarowanie zmiennych dla całego modułu i operacje na arkuszach

Pliku xlsm nie mogę załączyć Zawsze możesz załączyć plik w formacie .xls albo skompresować swój plik np. do .zip i w tej postaci załączyć. Plik tekstowy też jest OK, ale nie można go uruchomić bez danych, więc można coś przeoczyć. Nie wiadomo z którego arkusza uruchamiasz makro. Zaraz na początku obliczasz numer ostatniego wiersza w kolumnie 18. arkusza...

Jak napisać makro w Excelu reagujące na kliknięcie hiperłącza?

Nie udało mi się znaleźć podobnego tematu, więc zakładam ten. Otóż kombinując ze swoim plikiem w excelu natrafiłem na problem. W jednym z arkuszy mam hiperłącza do poszczególnych arkuszy (zakładek). Wszystko działałoby dobrze, gdyby te arkusze nie były ukryte (ze względów estetycznych, w skoroszycie mam prawie 250 arkuszy i podczas pracy widoczny jest...

Makro Excel VBA - jak odwołać się do komórki po nazwie?

jakos nadal nie działa pojawia się komunikat Application.defined or object-defined error Dodano po 7 Jeśli tak zrobię to faktycznie jest ok wksz.Activate MsgBox Range("status") Jeśli wksz.Range("status") to już błąd Ja chce kopiować komórki pomiędzy arkuszami wiec użyłem polecenia 'Cells(NextRow, 1) = wksz.Range("status") gdzie cells jest poleceniem...

Makro do Excela: zapisywanie pliku do nowego katalogu i usuwanie starego

A mam jeszcze taki problem, w arkuszu posiadam dwa przyciski uruchamiające makra, i chciałbym aby jeden z przycisków był aktywny dopiero po przeniesieniu pliku z arkuszem do innej lokalizacji. I druga sprawa aby przycisk był widoczny w zależności od wartości komórki np. jeśli wpiszę do niej konkrety komunikat to wtedy przycisk się pojawia a jeśli jest...

VBA Excel - Kopiowanie danych z innych plików do pliku zbiorczego-poprawa kodu

Dzięki za wskazówki :) Korzystając z Twoich rad wklepałem kod ale niestety jak wgrywam plik nic się nie dzieje, tj nie są przepisywane żadne wartości i nie mam pojęcia gdzie leży błąd. Przypuszczam, że diabeł jak zwykle tkwi w szczegółach... Po pierwsze: zrób przypisanie do arkusza tak, jak Ci proponowałem, nie MsgBox (Dane.Name) ) Po drugie, przy...

Excel, tworzenie makra VBA dla połączenia kolumn i przypisywania wartości do listy

Cześć. Można próbować tak: [syntax=vbnet]Sub Makro1() Const oc1 = 1 ' wyjście do kolumny 1 Const oc2 = 3 ' wyjscie do kolumny 3 Const wks = "Sheet2" ' arkusz wyjsciowy ' Sheets(wks).Cells.Delete ' mozna odkomentowac aby czyscic caly arkusz przed wykonaniem makro Dim x, r, c As Integer r = 2 c = 2 x = 1 Do While Cells(r, 1).Value <> "" Do While...

{Excel, VBA} Jak stworzyć makro z goal.seek z pominięciem komórek dla których nie szukam wyniku?

Ja w "międzyczasie" napisałem coś takiego: [syntax=vbscript]Sub GoalSeekinRange() Dim i As Long, RngForm As Range, wks As Worksheet Dim RngGoal As Range, Rngx As Range Set wks = Worksheets("Brudnopis") Set RngGoal = wks.Range("L5:L9") Set Rngx = wks.Range("J5:J9") Set RngForm = wks.Range("K5:K9") For i = 1 To RngGoal.Count If IsNumeric(RngGoal(i)) And...

vba - Kopiowanie zakresu danych z jednego arkusza do aktywnego arkusza

Witam. Domyślam się że to co potrzebuję jest bardzo proste. Mianowicie potrzebuję pomocy żeby stworzyć przycisk dzięki któremu będę mógł kopiować wartości z jednego arkusza do aktywnego arkusza (w którym znajduje się przycisk) do konkretnej kolumny z tym żeby jak będzie kopiować do kolejnego pustego wiersza. Czyli np. po naciśnięciu przycisku z arkusza...

VBA: filtrowanie aktywnych numerów z Arkusz1 i dopasowanie danych z Arkusz2 do Arkusz3

zaczęłam uczyć się vba, ale nie do końca rozumiem... Czego nie rozumiesz? Bardzo proszę o pomoc w napisaniu takiego makro Chcesz się uczyć, czy chcesz żeby ktoś za Ciebie to zrobił?

przypisanie do przycisku makra z aktywnego skoroszytu

Witam Mam makro (wstawianieprocedury), które wstawia procedurę (Makro2) do aktywnego skoroszytu. Przy okazji jest tworzony przycisk w aktywnym arkuszu, który miałby uruchamiać tą wstawioną procedurę z Makra2. Problem w tym, że przycisk nie próbuje się odwoływać do Makro2 z aktywnego skoroszytu, ale do tego skoroszytu w którym jest makro wstawianieprocedury....

Excel VBA – makro kopiujące arkusz „xyz” do nowego pliku o nazwie z B3 z formatowaniem

Witam, No to jeszcze jedno pytanko. W moim pliku "1" dołożyłem drugi przycisk "CommandButton1", który zapisuje mi dane i zamyka skoroszyt. Chciałbym zrobić tak, że gdy "aktywny" jest pierwszy przycisk to ten mój (do zapisywania) jest nieaktywny. I na odwrót. Jak to zrobić??

Excell - makro - blokowanie komórki.

Chodzi o to, że cały arkusz musi być aktywny do edycji (będą wprowadzane dane). Dopiero po wciśnięciu blokady komórka ma zostać zablokowana tak, aby nikt nie mógł zmienić jej zawartości. Z góry dziękuję za pomoc.

[VBA] Makro nie przechodzi do kolejnego tygodnia w grafiku pracy

Hej. Mam jeszcze jeden problem. Dzialają mi oba przyciski sprawdź oraz kolorowanie przy zmianach. Dodałem jeszcze jeden przycisk, który dodaje nowy arkusz po aktywnym arkuszu. Teraz pytanie jak zrobić, żeby nowy arkusz był kopią poprzedniego arkusza włącznie z przyciskami, formułami itd. ale bez wpisanych godzin. Utknąłem na tym że, kopiuje mi arkusz...

Excel VBA: Jak zapamiętać i przywrócić aktywny arkusz przy zamykaniu i otwieraniu?

Mam jakiś tam plik w Excelu który pracuje na podstawie makro, mam w tym pliku kilka arkuszy. Ponieważ plik będzie uruchamiany na kilku komputerach a zarazem posiada kilka zabezpieczeń wpadłem na pomysł aby podczas zamykania skoroszytu nastąpiło ukrycie wszystkich arkuszy oprócz jednego. Wszystko działa OK, ale i zarazem denerwuje gdyż po ponownym uruchomieniu...

VBA/Excel: Makro kopiujące wiersze przy spełnieniu warunku tak

Jak rozumiem, dane masz w arkuszu Wk (aktywnym) i chcesz je przekopiować do arkusza Ww (zestawienie)? Jeśli tak, po lewej stronie musi być odniesienie do arkusza, do którego kopiujesz dane (Ww), a po prawej - arkusza źródłowego (Wk). Dlatego też dziwię się, że piszesz że to zdziałało odwrotnie. Jeden szczegół na który nie zwróciłem uwagi - jeżeli w...

Excel makro z wyborem arkusza do wklejenia danych - jak to zrobić?

Dzięki troszkę sobie je jeszcze przerobiłem wygląda tak [syntax=vb] Sub Kopiowanie() Dim plik As Variant Dim openFile As Workbook Dim Nazwa_Pliku As String Application.ScreenUpdating = False Nazwa_Pliku = ActiveWorkbook.Name MsgBox Nazwa_Pliku plik = Application.GetOpenFilename( _ FileFilter:=",*.xl*", _ Title:=" Wczytaj plik z danymi") If plik = False...

Kopiowanie z określonego arkusza do innego arkusza

jak coś napiszesz to spróbuj przeczytać kod tak jak to robi makro Range("D6:H10").Select - zaznacz komórki D6:H10 Selection.Copy - skopiuj selekcję Sheets("X2").Select - zaznacz arkusz X2 ActiveSheet.Cells(6, 4).Select - w akrtwnym skoroszycie zaznacz D6 (ponieważ wyżej zaznaczyłeś arkusz X2 więc on będzie aktywny) ActiveSheet.Paste - w aktywnym arkuszu...

Excel VBA: Jak napisać makro działające na dwóch otwartych plikach?

No i widzisz bo pracujesz na aktywnym arkuszu. Jak sobie przypiszesz do zmiennej workbook to nie musisz fokusować drugiego okna. Autofiltr też możesz zrobić na obiekcie. A pliku do zmiennej nie musisz otwierać możesz go przypisać: [syntax=vbscript] Set Wrkb2 = Workbooks("zeszyt2.xlsb") [/syntax] A potem się odwołujesz do tego obiektu. Aktywacje możesz...

excel 2013 makro zapisujace xls w pdfie - zapis do pliku pdf pod okreslona nazwa

WItam, pomozcie, temat niby prosty, ale jednak nie moge sobie z nim poradzic. potrzebuje makra, ktore zapisywaloby dany arkusz excela (aktywny w danym momencie) w formacie pdf, nazwa tego pliku bylaby brana z dwoch komorek tego arkusza, np e1 I e5, a sam plik pdf zapisywalby sie na pulpicie w folderze PDF. po skonczonym dzialaniu wyskakuje komunikat...

Jak rozszerzyć makro VBA w Excelu na wszystkie arkusze i dodać warunek?

Witam utworzyłem sobie makro które domyślnie ma za zadanie znaleźć w konkretnym wierszu te komórki które mają aktualną datę , i w ten sposób wyświetlić komunikat z treścią zawartą w innej komórce, która należy do tej samej kolumny co komórka z datą (jednak leży w innym wierszu). I tu pojawia się problem. Nie mogę poradzić sobie z rozszerzeniem działania...

[VBA Excel] - Filtr dat od do nie wyświetla danych, tylko po kliknięciu ok

Próbuje zrobić makro które po wprowadzeniu w inputbox dat od i dat do założy filtr na dane i zapisze go do PDF problem jest z filtrem. Po wprowadzeniu nie wyświetla żadnych danych mimo iż kryteria się wprowadzają, dopiero jak kliknę "ok". Dane się wyświetlają, poniżej kod: Dim data_Od As Date data_Od = InputBox("Podaj date od:") Dim data_do As Date...

Sumowanie ilości sztuk dla unikatowych detali: formuły i metody

Nie napisałeś, w której wersji Excela ma to działać. W każdej wersji to jest standardowy przykład do zastosowania konsolidacji. Nagłówki kolumn trzeba sobie wpisać ręcznie albo skopiować. Potem umieszczamy kursor (komórkę aktywną) w miejscu, gdzie ma być początek wyniku (pod wierszem nagłówkowym w lewej kolumnie) i otwieramy dialog Dane/Konsoliduj....

vba - zamkniecie pliku po upywie danego casu ktos wie jak to zrobic

Teoretycznie można coś podobnego zrobić - choć w praktyce jest to bardzo złe rozwiązanie, a już zwłaszcza na plikach w pracy, gdzie istotne jest bezpieczeństwo i pewność danych... Może najpierw wykład, potem kod ;) Garść faktów: Excel nie nadaje się do pracy wielozadaniowej (czy równoległej, zwał jak zwał). Teoretycznie można w pliku włączyć jakiś tam...

VBA - Filtrowanie kolumn i uzupełnienie danych lub dodanie wiersza

Zupełnie mnie nie przekonuje to rozwiązanie, wpisywanie wartości w jednym arkuszu a potem wyszukiwanie wg kilku kryteriów, automatyczna zamiana lub dopisanie itp. Trochę za dużo kombinacji. Trzeba pamiętać, że działania makr są nieodwracalne, najmniejszy błąd i pozamiatane :( Oczywiście makro jw. da się napisać :) Proponuję inne, wg mnie prostsze rozwiązanie...

Excel - Jak wyszukać i przenieść dane osób na urlopie do innego arkusza?

Do skopiowania wyników filtrowania w inne miejsce aktywnego arkusza. Można to obejść w VBA. Wiec nie rozumiem w czym problem? W arkusz1 masz bazę. W arkusz2(aktywny) kryteria filtrowania i określenie miejsce w które chcesz odfiltrowane dane umieścić. Jeżeli operacja ma być jednorazowa, robisz to "z ręki". Jeżeli robisz to często, lub potrzebujesz odfiltrowania...

Jak sprawdzić działanie makra kopiującego dane z zakresu A1:C10000?

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]

Excel - dynamiczna ścieżka w WYSZUKAJ.PIONOWO z ZŁĄCZ.TEKSTY

Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...

[VBA] EXCEL - Makro dodające wiersz - wydłużona praca przy akruszu udostępnionym

Cześć, mam dość rozbudowany plik - są oczywiście funkcje, formatowania warunkowe i makra. Wszystko działa płynnie do momentu włączenia funkcji udostępniania arkusza (w tradycyjnej formie, Excel 2016). Jedno z makr jest odpowiedzialne za wstawienie poniżej aktywnego wiersza nowych wierszy w ilości podanej przez użytkownika i przeklejenie tam zawartości...

Przycisk polecenia - Wykonanie polecenia z innego arkusza

Przycisk wywołuje procedurę zamieszczoną w module Arkusza1, dlatego program chce wykonać poniższe polecenie właśnie w Arkuszu1: [syntax=vbscript]Range("c5:c1000").Selec... Nie może tego jednak uczynić, ponieważ aktywny jest Arkusz2. Musisz zatem wskazać, że chcesz to zaznaczenie wykonać w Arkuszu2: [syntax=vbscript]Sheets("Arkusz2").Range...

[VBA] Makro kopiujące nazwy arkuszy do komórek i status z checkboxów

Pięknie Panu dziękuje to jest to o co mi chodziło :) mam jeszcze jedno pytanie. Dopisałem do tego kodu zwracanie wartości z komórki która znajduje sie w aktywnym arkuszu : Sheets("lista").Cells&... 3) = ActiveSheet.Cells(3, 3) Powstał problem że poszukiwane wartości z komórki ("c3") mogą znajdować sie również w innym...

VBA: Błąd przy kopiowaniu danych między arkuszami Excel

Siema, Mam napisane makro vba, żeby kopiowało mi dane z komórki zawartej w aktywnym pliku excel do drugiego aktywnego. Pisałem to na dwa sposoby i za każdym razem wywala mi błąd. Poradźcie proszę. Będę wdzięczny za każdą pomoc! 1. Tutaj wywala błąd - Compile Error: Sub or Function not defined. Sub screen() ' ' screen Macro ' ' Workbook(cale.xls).Activate...

VBA pobieranie danych z arkusza o różnych nazwach

Mam makro pobierające dane z plików *xlsx w katalogu i wkleja je do aktywnego arkusza. Większość danych pobierana jest z arkusza o nazwie "Arkusz1". Co zrobić aby pobierał dane z arkusza o dowolnej nazwie. Zazwyczaj arkusz wypełniony danymi jest tylko jeden ale czasem zdarza się, że są trzy aktywne arkusze ale tylko pierwszy zawiera dane. [syntax=vbscript]Sub...

[Excel] Jak makro może wpisywać datę w komórce z przyciskiem?

Witam wszystkich, Chciałem wykorzystać kalendarz w swoim arkuszu z http://www.elektroda.pl/rtvforum/topic14... Przypisałem go do przycisku. Chciałem, żeby makro nie wpisywało mi daty w aktywnej komórce, tylko w komórce gdzie znajduję się przycisk. Chciałem stworzyć kilkadziesiąt - około 70, takich przycisków w jednym skoroszycie. Czy nie będzie...