aktywny arkusz

VBA Kopiowanie całego aktywnego arkusza do nowego skoroszytu

Nie robiłeś dokładnie "tak", bo w kodzie masz After:=Workbooks("wczyt.xlsm"), co jest składniowo bez sensu: "wstaw nowy arkusz za plik wczyt.xlsm". Ja tylko dodam, że składnia [syntax=vb]ActiveSheet.Copy After:=Workbooks("wczyt.xlsm").Sheets(Sh... nie zadziała jak trzeba, bo po otwarciu pliku, jak w przykładzie, aktywnym jest nowootwarty...

vba - Kopiowanie zakresu danych z jednego arkusza do aktywnego arkusza

[syntax=vb]Sub Wklej() sh = ActiveSheet.Name Sheets("Baza").Select Range("A1:D1").Select Selection.Copy Sheets(sh).Select nw = Cells(Rows.Count, "A").End(xlUp).Row + 1 Cells(nw, 1).Select ActiveSheet.Paste End Sub[/syntax] Kombinuj...

Nie znalazłeś odpowiedzi? Zadaj pytanie Sztucznej Inteligencji

Excel - Formuła sczytująca dane w zależności od aktywnego arkusza

Bez makra tak się nie da. Najprościej to rozdzielić na 3 pliki. Jeden do obliczeń i dwa na dane. W tym pliku do obliczeń daj ścieżkę do innego pliku z danymi. Oba pliki z danymi muszą mieć tą samą nazwę umieszczone roboczo w dwóch różnych folderach. Po wprowadzeniu danych i zapisaniu kopiujesz plik z danymi tam gdzie podałeś ścieżkę w pliku do obliczeń....

zapisanie aktywnego arkusza do pliku z wyborem miejsca docelowego

a może znasz inną metodę zapisu arkusza do pliku TXT tak by przy zapisie nie było "" "ciapek" Nie wiem, o której wersji mówisz, ale 2007, [syntax=vb]ActiveWorkbook.SaveAs Filename:="D:\Moje dokumenty\Desktop\Zeszyt1.csv", FileFormat:=xlCSV, CreateBackup:=False[/syntax] zapisuje bez cudzysłowów.

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

Wybierz gdzieś komórka dla nazwy arkusza. (np. arkusz3!Z1) [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) Range("arkusz3!Z1") = ActiveSheet.Name End Sub Private Sub Workbook_Open() Sheets(Range("arkusz3!Z1")).Activate End Sub [/syntax]

Kod VBA do kopiowania obszaru D6:E10 z Arkusza1 do Arkusza2 na podstawie wartości z C6

Coś pokręciłaś z tym hasłem. Odblokować trzeba ten arkusz, do którego dane będą kopiowane, czyli: [syntax=vbscript]Worksheets(2).Unprotect Password:="123"[/syntax]Potem analogicznie zablokować. Oczywiści można też z Activesheet pod warunkiem, że ten arkusz (docelowy) będzie aktywny. Arkusz źródłowy może być chroniony. Odblokowana musi być w nim tylko...

VBA / excel - wykonanie skryptu, nieaktywny arkusz, arkusz ukryty

No bo dla niego cells(3,16) i cells(2,17) oznacza komórkę w aktywnym arkuszu uzupełnij to o Worksheets("license")

Funkcje niestandardowe - Funkcja zdefiniowana nie działa po uruchomieniu makra

Moim zdaniem przyczyną problemu jest brak kwalifikowanego adresu komórki w funkcji umieszczonej w module ogólnym. Range("Q5") odwołuje się do komórki Q5 w arkuszu aktywnym. Jeśli przejdziemy do innego arkusza niż "pacjent", a funkcja się przeliczy, to będzie chciała pobrać dane z komórki Q5 w aktualnie aktywnym arkuszu, a tam ich nie znajdzie, więc...

VBA - SpecialCells nie wyszukuje we właściwym arkuszu

instrukcja "With" nie wpływa w ogóle Jeszcze jak wpływa np. With Sheets(1) .Cells(1,1) =5 'jest komorka A1 pierwszego arkusza Cells(1,1) = 5 jest A1 aktywnego arkusza End With

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?

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

Tak dokładnie, tylko z zakresu komórek Z2:AA2 w arkuszach innych niż aktywny [syntax=vbscript]For Each ws In Sheets If ws.Name <> ActiveSheet.Name Then With ws.Range("Z2:AA2") .Value = .Value End With End If Next ws[/syntax]

EXCEL Kopiowanie wierszy z innego arkusza niż aktywny

.. Nie wiem jak zmienić w pierwszej części programu aby kopiował z innego arkusza... [syntax=vb] Sheets("Arkusz1").Select Range("G20").Select Selection.Copy Sheets("Arkusz2").Select Range("G20").Select ActiveSheet.Paste[/syntax]

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

Excel 2000: Tworzenie przycisku kombi do wyboru opcji w arkuszu

Istnieja trzy sposoby. Z pomocą VBA ( pisanie kodu ), Formularzy lub Sprawdzanie poprawności. VBA pominiemy. Jezeli dane ( zebrane w kolumnie ) sa w tym samym aktywnym, arkuszu, mozna je szybko wybierać, edytować, za pomocą Sprawdzania poprawności. Recepta: 1. menu Dane/Sprawdzanie poprawności 2. Dozwolone/Lista 3.Żródło - wskazać zakres danych w kolumnie...

Excel / VBA - Generowanie tabeli C na podstawie danych z A i B

Jeżeli chodzi o arkusz to nie ma problemu. Zamień Sheets("Arkusz1") na ActiveSheet wtedy wypełnianie tabeli będzie dotyczyć aktywnego arkusza. W załączeniu sortowanie nie na "Tabeli" edit -------------------------- Jak już jest sortowanie trochę inaczej, to numerację (Lp) dodałem do pętli wpisujących dane tabeli C

EXCEL VBA wysyłanie maila (Prześlij dalej) na podstawie

symbole "w" w formule if w = ... oraz odwołania adresów- Range(xd...) Do czego odnoszą się te Range? Jeżeli w = temat szukanej wiadomości to przesyła dalej, a range odnosi się do aktywnego arkusza gdzie ktoś sobie wpisał odbiorcę itp. ps odnośnie PW nie wiem co masz tam w tym A1

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

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

Excel VBA - warunkowe ukrywanie i odkrywanie wierszy

lub [syntax=vb]Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 7 And Target > 0 Then Rows(Target.Row).Hidden = True End Sub [/syntax] lub odpalic dla aktywnego arkusza [syntax=vb]Sub ukryj() For r = 2 To Application.CountA(Columns(1)) - 1 Rows(r).Hidden = Cells(r, 7) > 0 Next End Sub [/syntax]

Pobieranie danych z aktywnego arkusza do innego pliku

Witam, mam następującą zagwozdkę. Mam kilkanaście plików. Jeden z nich ma kontrolować czy są wypełnione dane komórki w pozostałych plikach. W plikach, które wypełniają pracownicy jest makro, które powoduje po kliknięciu przycisku powstanie nowego arkusza z pustą tabelą o nazwie "przekazanie zmiany" &date i ukrycie poprzedniego arkusza. Oba pliki chciałam...

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

VBA - Automatyczne czyszczenie komórek przy otwarciu wzoru.xlsm

Zmień na: [syntax=vb] Option Explicit Private Sub Workbook_Open() If ThisWorkbook.Name = "wzór.xlsm" Then With ThisWorkbook.Sheets("Arkusz1") '<--Tu nazwa twojego arkusza .Range("E18").ClearContents '<--czyści tylko wartości zostawia formatowanie .Range("E18").Clear '<--- czyści i wartości i formatowanie 'Range("E18").Value = "" wstawia do...

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

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

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

VBA Excel - Jak powiększyć czcionkę w zapisywanym PDF-ie z pliku .xlsm?

Ta wersja powiększa czcionkę w aktywnym arkuszu czyli Czyli powiększ - zapisz - powróć do poprzedniej. [syntax=vbscript]Sub PDFy() Application.ScreenUpdating = False Dim DatExample As Date Worksheets("baza zamówień").Range("C2").Value = Worksheets("baza zamówień").Range("R2").Value DatExample = Date s = "C:\PlikiPDF\DPFy\" With ActiveSheet .PageSetup.CenterHeader...

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

EXCEL 2007 - Jak przeliczyć arkusz makrem tylko raz i ustawić tryb manualny?

Wciskasz F9 i ci przelicza ale jak chcesz koniecznie makrem to wystarczy Calculate lub ActiveSheet.Calculate Czyli Sub Przelicz() Calculate Sub End a sam arkusz Sub Przelicz_Ark() ActiveSheet.Calculate Sub End Jeszcze przypomnienie ze skrótów klawiszowych excela: F9 oblicza wszystkie arkusze we wszystkich otwartych skoroszytach. Kombinacja...

Szablon arkusza spisu z natury do Excela - gdzie znaleźć?

Dokładnie takiego samego to chyba nie znajdziesz (czyjaś praca). Mnie się udało znaleźć jeden podobny arkusz (aktywny do wypełnienia) ale to też jest czyjaś praca. Tak że szukaj w internecie aktywnego arkusz .xlsx i sam dostosuj do swoich potrzeb. https://obrazki.elektroda.pl/1875457600_...

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

Eksport z Excela do Pdf. Jak zapisywać wybrane arkusze

Zakładając, że komórka A4 zawiera nazwę "STR2", a komórka B4 nazwę "RAPORT", to tak: [syntax=vbscript]Sheets(Array(range("A4"... te nazwy są w innym arkuszu niż aktywny, to można dodać kwalifikator.

[exel] VBA Excel: Dlaczego czasami ComboBox jest pusty mimo ustawionego RowSource?

Prawdopodobnie nie zawsze masz aktywny właściwy arkusz. Uzupełnij odwołanie Np Me.ComboBox9.RowSource = Sheets("Arkusz1").Rang... 21), Cells(33, 21)).Address ' data

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

Prześledziłem kod na Twoim pliku i wygląda na to, że działa poprawnie, jedynie trzeba usunąć poprawność danych z wstawionej kolumny czyli, po: [syntax=vb].Range(Cells(iFrstRw, "I"), .Cells(lLstRw, "I")).Insert shift:=xlToRight[/syntax] wstawić jeszcze: [syntax=vb]Range(.Cells(iFrstRw, "I").Offset(1, 0), .Cells(lLstRw, "I")).Validation.Delete[/syntax]...

Uproszczenie kodu kolorowania komórek bez zaznaczenia w Excelu

Musisz zrozumieć podstawy VBA, najlepiej coś na ten temat przeczytaj. Każdy zapis w VBA musi albo coś deklarować albo coś wykonywać. Twoja pierwsza linijka kodu ani nic nie deklaruje, ani nie wykonuje. Od drugiej powinno być dobrze pod warunkiem, że arkusz SPR jest aktywny. Nie możesz tak chaotycznie używać Range poprzedzonego nazwą arkusza i bez tej...

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]

Excell wyszukiwanie tekstu i kopiowanie do innego arkusza

Zamiast If Left(LTrim(.Cells(i, 11)), 4) = tekst Then podstaw If InStr(.Cells(i, 11), tekst) > 0 Then i analogicznie w drugim przypadku. p.s. Zdaje się, że w pliku nie postawiłem kropek przed przed Cells. Z drugiej strony aktywnym jest arkusz ostatnio otwarty, ale dla porządku...

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] Błąd przy wczytywaniu danych z Range(Cells(x,y), Cells(x,y))

Jeśli procedura jest w module uniwersalnym, to Cells bez kwalifikatora odnosi się do aktywnego arkusza w aktywnym skoroszycie. Jeśli procedura jest w module obiektu np. arkusza, to Cells bez kwalifikatora odnosi się do tego arkusza w tym skoroszycie. Proszę sobie zrobić taki test: [syntax=vbscript]Sub ZArkObcego() Workbooks(1).Activate Debug.Print Cells(1,...

VBA Excel zapisywanie do isntniejącego / nowego skoroszytu

W obu przypadkach jest to aktywny arkusz aktywnego skoroszytu. Ale dla pewności dopisz: [syntax=vbscript]n.ActiveSheet.Name = "Nazwa"[/syntax] za instrukcją warunkową.

EXCEL - Modyfikacja procedury VBA: dodawanie i kopiowanie wierszy, zmiana wartości w kolumnie G

chcę to zmienić na przycisk To proponuję wykorzystanie kodu typu :spoko: : [syntax=vbscript]Public Sub Powiel() i = 2 Do Until IsEmpty(Cells(i, 7)) If Cells(i, 7).Value > 1 Then a = i + 1 b = a + Cells(i, 7).Value - 2 Range("A" & i & ":K" & i).Select Selection.Copy Range("A" & a & ":A" & b).Select Selection.Insert Shift:=xlDown Range("G" & i & ":G"...

Excel VBA: Jak stworzyć przycisk Drukuj z dynamicznym zakresem danych?

Dobrze, że dałeś sobie radę. To się ceni ale to samo co na pięciu przyciskach możesz mieć na jednym po zastosowaniu mojego kodu. Nie chcę Ci udowadniać wyższości Świąt Bożego Narodzenia nad Wielkanocą. Mam jednak drobne podejrzenie, że mój kod przekleiłeś w całości bez sprawdzenia. A tam był drobny błąd na który nie zwróciłeś uwagi. A1 . Zmień sobie...

EXCEL VBA: Tworzenie arkusza, nadawanie nazwy, wpisywanie danych w kolejnych wierszach

Nie jest dla mnie to jasne. O ile kryteria stworzenia arkusza są jasne (bo jest on tworzony na podstawie formularza - i podejrzewam że arkuszy może być kilka) - to na jakiej podstawie ma być wybierany arkusz? Też na podstawie nazwy z formularza? W każdym razie FormulaR1C1 albo Value możesz zastosować do komórki w dowolnym arkuszu, nie tylko bieżącym:...

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 makro do tworzenia arkuszy o nazwach pobieranych z komórek

To, co jest przed Find określa, gdzie metoda ma szukać. Może tam być zakres z aktywnego arkusza, jak jest teraz, albo zakres z innego arkusza (z kwalifikatorem Worksheets(nazwa_lub_numer)), albo nawet z innego (otwartego) skoroszytu.

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

[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]

Jak zaznaczyć komórki od aktywnej do wiersza 3000 w VBA Excel?

Na przykład druga linijka w instrukcji With [syntax=vbscript].Range(Selection, .cells(3000, Selection.Column)).Select [/syntax] Albo inaczej: [syntax=vbscript]Selection.Resize(3001 - Selection.Row).Select[/syntax]Z tym, że instrukcji Select możesz używać tylko w arkuszu aktywnym.

Wpisz w komórki tekst jeśli w innej komórce występuje słowo

Czemu nie ma załącznika? Niby to proste, ale niejasne. Komórka A1 w którym arkuszu? w aktywnym? w określonym z nazwy? w pierwszym, w którym komórka A1 jest wypełniona? W sąsiednim arkuszu należy rozumieć: w następnym czy w poprzednim? Poszukiwane słowo "białe" lub "czarne" ma stanowić pełną zawartość komórki czy fragment zawartości komórki? Czy wielkość...

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

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

dane z Comboboxa były wpisywane do aktywnej komórki arkusza.

Mam opracowane rozwiązanie. Nie bardzo mi ono pasuje ponieważ mam przycisk lista a chciałem aby combobox był aktywowany po najechaniu wskaźnikiem myszki na pole żółte. Czy ktoś z Państwa może pomóc?

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 ?

VBA - narzędzie do eksportu danych między plikami z dynamiczną zmianą nazw i ścieżek

Nie rozumiem skąd błąd.... w komórce C2 jest dobra nazwa. Nie spojrzałem wcześniej na rysunek. [syntax=vbscript]Set wsDocelowy = wbDocelowy.Sheets(Range("C2").Value)[/sy... Będziesz mieć błąd bo, gdy otwierasz skoroszyt staje się aktywny i w tym aktywny w C2 pewnie nic nie masz. Jak nazywa się ten arkusz z załączonego obrazka? wtedy [syntax=vbscript]Set...

[VBA Excel] Pętla w pętli / wyszukiwanie kilku zmiennych

co robię źle ... Np.: brak deklaracji zmiennych "ostw" i "ostw2", jak również deklaracje innych nie wiedzieć czemu "variant", Np.: ... ostw = Worksheets("DANE").Cells(Rows.Count, "B").End(xlUp).Row ostw2 = Worksheets("LOG").Cells(Rows.Count, "B").End(xlUp).Row Zapis " Rows.Count " odnosi się do bieżąco aktywnego arkusza, a nie do arkusza "DANE", czy...

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.

VBA Excel, ukrywanie/odkrywanie wierszy w niekatywnym arukuszu

Zrobiłem ukrywanie wierszy na arkuszu, w którym wprowadzam dane. If Target.Address = "$D$41" Then If Target.Value = 1 Then Rows("42:62").EntireRow.Hidden = False End If If Target.Address = "$D$41" Then If Target.Value = 1 Then Rows("63:355").EntireRow.Hidden = True ... i tak łącznie pojawia mi się piętnaście formatek do wpisywania danych. Po kliknięciu...

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

Arkusz pytań i odpowiedzi do egzaminu technik elektryk czerwiec 2008

aktywny

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

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

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ć

VBA jak zrobić by dane z comboboxa były wyświetlane w innym arkuszu

Niestety, nie jestem telepaty, nie widać gdzie przycisk, gdzie komboboks, który jest aktywnym arkusz

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

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.

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.

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

EXCEL VBA: Generowanie csv z odfiltrowanych danych z arkusza - kolumny 'ID' i '/category@name[pol]'

Spróbuj takiego kodu: [syntax=vbscript]Sub create_csv() Dim FileName As String Dim PathName As String Dim ws As Worksheet, wscsv As Worksheet Set ws = ActiveWorkbook.Sheets("cześci") Set wscsv = ActiveWorkbook.Sheets("DO csv") FileName = "zestawy części.csv" PathName = Application.ActiveWorkbook.Path wscsv.Cells.Clear ws.AutoFilter.Range.SpecialCells(xlCellT...

EXCEL - VBA - fnd & rplc dane pobierane z komórki

No właśnie u mnie jakoś to nie działa jakbym potrzebował.. dane są zamieniane bez problemu tylko w aktywnym arkuszu (do tego już doszedłem), a ja potrzebuje jednym kodem dokonać zamiany w kilku arkuszach skoroszytu.. dziękuje za zaangażowanie

vba/makra - kopiowanie wybranych wierszy do nowych arkuszy

Masz rację, zmieniłam na kopiowanie od 2 wiersza. Docelowo w kolumnie I w pliku bazowym będą wagi, w jaki sposób mogę podsumować kolumnę I w każdym aktywnym arkuszu- od arkusza o nazwie"1" do ostatniego?

VBA, excel, pojawiające się wiersze, w zależności od zawartości komórki

Powrócę do tematu. :-( Zrobiłem takie ukrywanie na arkuszu, w którym wprowadzam dane. Wydruk natomiast 'wychodzi' z innego arkusza, do którego przenoszą się dane. Potrzebuję też żeby i tam się ukrywały/pojawiały wiersze na podstawie wprowadzonych danych w tym pierwszym arkuszu. O ile temat jest prosty w aktywnym arkuszu, to po automatycznym przeniesieniu...

Pętla VBA z funkcją konwertującą skróty na pełne nazwy w zakresie komórek

Czyli w przypadku zmiennych również trzeba używać value Nie o tą zmienna mi chodziło. (a,b) Jak mogę wskazać zmienną do skopiowania? Nie jestem też pewny czy dobrze zastosowałem funkcję. [syntax=vbscript]ActiveWorkbook.Sheets(1... & Number).Copy[/syntax] ps. pamiętaj, że masz number z aktywnego arkusza a kopiujesz z 1 (ten aktywny nie musi...

Excel - Jak usunąć zdublowane wiersze w arkuszu z 40,000 rekordów?

No niestety do końca tego nie sprawdziłem .... Mój błąd. :cry: Dobrze, że można skopiować chociaż do aktywnego arkusza ...

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)

Excel VBA - Kod czyszczący wiele arkuszy przestał działać - czyści tylko pierwszy arkusz

To może znajdzie się ktoś kto to będzie mógł sprawdzić :) Poczekam, na razie muszę sobie radzić ręcznym czyszczeniem każdego arkusza osobno, na szczęście jest to tylko raz w miesiącu Dodano po 11 Niestety nie mam dostępu do 365 i nie mam jak sprawdzić( A może jakiś inny kod czyszczący który by ogarną temat? Trzeba jednak zwrócić uwagę że nie zawsze...

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

Excel - Kopiowanie wybranych kolumn z poprzedniego arkusza do aktywnego

Może, tylko pisał o kopiowaniu wartości, wymienił kolumnę B, a nie A i nie napisał, czy dane we wszystkich kolumnach sięgają jednakowo daleko.

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.

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.

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 kopiować dane z wielu arkuszy do jednego?

No tak if omija mi aktywny arkusz ..moge tu teżź podać nazwę konkretna..a jak wpisać do kolumny A z góry na dół np nazwy wszystkich arkuszy ktory znajdują sie w kazdym arkuszy na pozycji B2 czyli utworzyc taką liste

Trudne zadanie - automatyczna kalkulacja wybranych komórek

Czy w kolumnie F tak ma być? Tam są formuły, po scaleniu część danych znika. Założyłem, jak w przykładzie, że obszary do scalenia nie będą do siebie przylegać, tylko będą oddzielone co najmniej jedną linią bez scaleń. Na początku procedury są dwie stałe, które określają położenie początku danych do przetworzenia [syntax=vbscript]Const pkol = 1 'pierwsza...

VBA import wielu plików XML do Excela według listy arkuszy i nazw plików

Set NextImportRow = Range("$A$1") - był w aktywnym arkuszu("FileList"), podczas tworzenia nowego arkusza(ActiveWorkbook.Worksheets.Add.Na... = SheetName) nie zmienił obiektu Dodano po 1 'Dest' zostal na Filelist

Jak zdobywać punkty i być aktywnym na forum z arkuszami E.08 dla Technika Elektryka?

Proszę przeczytać Regulamin Forum.

Excel - Obrazy wstawione w excelu przesuwają się w druku.

Bo robi się ciemno. Jeśli podgląd wydruku jest ok, a błąd wydruku występuje w połączeniu z drukarką zewnętrzną spróbuj zapisać aktywny arkusz jako plik pdf a następnie wydrukować z dowolnego programu do wyświetlania lub edycji pdf (np. Acrobat reader).

[VBA Excel] Automatyczne pobieranie zakresu danych w makrze - jak ustawić?

Chyba najlepiej będzie jak wstawisz plik z tym co masz, bo np. odwołujesz się do aktywnego arkusza (ActiveSheet), a piszesz że wykres ma być w nowym arkuszu, co z Twojego kodu w ogóle nie wynika...

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

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 VBA - Kopiowanie danych z innego pliku - co tu nie gra??

no ok kopiuje...ale dlaczego tworzy się nowy arkusz i do niego kopiuje a nie do aktywnego arkusza??? Takich buttonów będę miał w całym skoroszycie chyba z 10 więc albo będzie kopiowało do aktywnego skoroszytu albo wskazanego a nie tworzenie się nowego;/ i to jest teraz dla mnie problem;/

[exel] VBA Excel: Błąd w porównywaniu pustych komórek w pętli Do Until

Witam. Ma problem z poniższą instrukcją: a = 2 If Sheets("Roboczy").Cell... 6) <> "" Or Sheets("Roboczy").Cell... 7) <> "" Then Do Until Cells(a - 1, 1) = Sheets("Roboczy").Cell... 6) & Cells(a, 1) = Sheets("Roboczy").Cell...

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

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?

Wciśnięcie klawisza Enter ma wstawić konkretną wartość

Propozycja w załączniku. Działa w Arkuszu1 (jeśli inny arkusz trzeba zmienić w kodzie). Przycisk Aktywny/Nieaktywny przełącza stan programu. Reaguje na oba klawisze Enter. Cały kod jest w Module1.

vba - kod na szukanie duplikatów i jak znajdzie to wykonaj kopiowanie

Można. Służy temu instrukcja Call. Przykład:[syntax=vb]Sub Przycisk() Call Makro1 Call Makro2 End Sub[/syntax]Makra umieść w module standardowym. Będą działać w aktywnym arkuszu. Jeśli ma być inaczej musisz adresować precyzyjnie (z nazwą arkusza). Sheets("Nazwa").Cells(wiersz, kolumna)

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

VBA Excel 2010 - Jak wyróżnić aktywny wiersz w wielu tabelach?

Witaj Worksheet_SelectionChange - Dla pojedynczego arkusza jest tylko jeden i nie trzy

excel, otwieranie innych plików excela w różnych arkuszach pliku bazowego.

Mam coś takiego, działa umozliwia mi wybranie jednego pliku i wstawienie w aktywnym arkuszu. Jakaś podpowiedź co dodać żebym mógł wybierać kilka plików i zostały otwarte w osobnych arkuszach? Sub OpenCloseWorkbook() Dim MonthlyWB As Variant Dim FileName As String MonthlyWB = Application.GetOpenFilename( _ FileFilter:="Microsoft...

Excel VBA - Jak kopiować grafik z ukrytego arkusza?

ale to nie działa chyba dlatego że kod jest umieszczony w Module To nie to. Makro aktywuje arkusz o nazwie przypisanej do zmiennej 'grafik', dlatego ActiveSheet będzie zawsze Sheets(grafik). Najprościej byłoby przerobić je na procedurę z przekazaniem argumentu w postaci nazwy aktywnego arkusza. Ale jest jeszcze wiele niejasności... Najlepiej, gdybyś...

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

[syntax=vbscript]Sub WyszukajNumery() Application.ScreenUpdating = False Dim a1 As Worksheet, a2 As Worksheet, a3 As Worksheet Set a1 = Sheets("Arkusz1") Set a2 = Sheets("Arkusz2") Set a3 = Sheets("Arkusz3") ow1 = a1.Cells(Rows.Count, "A").End(xlUp).Row ow2 = a2.Cells(Rows.Count, "A").End(xlUp).Row a1.Select y = 1 For x = 2 To ow1 If Cells(x, 2) = "Aktywny"...