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...
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...
W skoroszycie znajduję się wiele arkuszy i z poziomu każdego z nich aktywuję arkusz "Menu" w ten sposób: [syntax=vbscript]Worksheets("Menu").Acti... I chciałbym w tym arkuszu mieć przycisk, który zareaguje tak jak opisałem powyżej, czyli: Mam już aktywny arkusz "Menu" klikam w przycisk, przenosi mnie do arkusza "A" wykonuje makro, przechodzi...
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...
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...
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...
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...
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 dla mnie śp. pamięci "kozak vba" "Charles Pearson" http://www.cpearson.com/excel/optimize.h... Ciekawa lektura, na trochę dogłębniejszą analizę. Kiedyś Piotr Majcher (pmsocho na YT) w jednym ze swoich filmików pokazał zastosowanie "Miernika do szybkości wykonywania się formuł w Excelu" (https://youtu.be/fWI8kHAyFtg). Więc z chęcią kiedyś potestuję...
If k <= Date Then Cells(k.Row, k.Column) = "" A jeżeli zakres nie jest w aktywnym arkuszu?
Który arkusz jest aktywny w trakcie podglądu ? Dlaczego właściwie do identyfikacji numeru wiersza, z którego pobierane mają być dane, służy zaznaczenie jakiejś jego komórki/komórek, czy to jedyny mechanizm, który można zastosować ? Makro aktywuje na poglądzie arkusz Etykieta. W podglądzie nie ma danych uzupełnionych z arkusza Baza oraz gubi się odwołanie.
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.
Kombinujesz jak koń pod górkę z tymi zakresami- skaczesz po arkuszach bez ładu i składu, to i nic dziwnego, że się to w którymś momencie rozjeżdża... Zrób raz, a porządnie, deklarację arkusza skąd i dokąd kopiujesz - a potem konsekwentnie się ich trzymaj przy kopiowaniu. Zakres Range i .Range to nie jest to samo - musisz uważać, co robisz. Odczytaj...
Witam wszystkich forumowiczów, mam pytanie związane z Excelem 2013, a mianowicie czy mogę uaktywnić przycisk wykonujący makro z listy drop box. Bardziej dokładnie opisując: mam kolumnę z komórkami wyboru listy drop box i jeśli wszystkie są wypełnione to ostatnia komórka jest zdefiniowana jako drop box tak lub nie. Jeśli jest wybrane Nie to nic się nie...
Każda para ma działać jak dwa wzorcowe przyciski: jeśli jeden jest aktywny to drugi nie. Oczywiście mogę utworzyć sześc kolejnych przycisków... a co jeśli tych par będę chciał mieć np 100? To trzeba przemysleć na etapie budowania arkusza. Jeśli miały być dwa przyciski, to są dwa przyciski. Wcale tak jednak być nie musi. Można osadzić w arkuszu JEDEN...
Witam! Mam problem z poprawnym działaniem mojego makra. Zadaniem makra jest skopiowanie zakresu danych z arkusza "faktura" do innego skoroszytu o nazwie rejestr2 arkusz "Rejestr". Kopiowane dane mają być wklejane do pierwszego wolnego wiersza. Poza tym trzeba sprawdzić czy faktura o danym numerze już istnieje w rejestrze. jeżeli istnieje to ma się wyświetlić...
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.
Przecież pod linkiem jest składnia. Cytuję przykład dodania arkusza przed obecnie aktywnym: [syntax=vbscript]ActiveWorkbook.Sheets.A... Before:=Worksheets(Worksheets.Count) [/syntax]
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...
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
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...
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...
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))"...
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...
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]
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.
Korzystam z podobnego rozwiązania ale potrzebne jest też formatowanie warunkowe (aby zaznaczać tylko zakres wiersza). Zaznaczanie aktywnego wiersza za pomocą formatowania warunkowego i VBA 1. Zaznaczanie aktywnego wiersza Definiujemy nazwę: AktywnyWiersz=0 Wpisujemy formułę w VBA w sekcji Worksheet - SelectionChange Private Sub Worksheet_SelectionChange(ByVal...
Odwołanie do aktywnego arkusza może rozwiąże problem.
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...
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
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....
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...
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...
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...
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.
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....
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...
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?
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.
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.
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 .
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...
Moim zdaniem wychodzisz z błędnego założenia. Sugeruję kolejność: 1. Kliknięcie przycisku w arkuszu otwiera formularz (i nic więcej). 2. Wypełnienie formularza przez użytkownika. Koniecznie zablokuj kontynuowanie bez wypełnienia kluczowych pól. Po wypełnieniu formularza można pobrać wartości potrzebne do przede wszystkim nadania nazwy wstawianego, nowego...
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.
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 " &...
W Module1 jest makro. Zrobić aktywny arkusz z kolumny, naciśnij klawisz Alt-F8, wybierz 'kokos' i uruchomić
Nagraj makro (kopiuj arkusz i zmiana nazwy) i pod nazwę podstaw 8 od lewej & 1 od prawej + 1 nazwy aktywnego.
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)
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ć"...
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...
excel makro aktywny arkusz arkusz makro makro arkusz
niska wydajność klimatyzacji airbag boczny otwierać skrzydło
stanley fatmax bateria radio nasluchowe
FirstChip FC1178BC USB2DISK 32GB Fake Capacity, Micron 1GB NAND, VID FFFF, MPTool Recovery Lancia Lybra – układanie gąbek podszybia, uszczelnienie, montaż, oryginalne wkładki EPDM
