"#N/A" - to jest angelskie, w VBA tak ma byc, N/D(w komorce) myslim ze narodowe(Local)
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.
same zwykłe litery, czy jest możliwość aby makro brało aktywną komórkę z formularza wzór a nie z formularza set?
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 .
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...
Witam! Mam prosty problem. Potrzebuję za pomocą przycisku, do którego przypiszę makro czyścić aktywną komórkę. Dla Excela wygląda to tak: Sub SetValue() ActiveCell = Null ' to clear the contents End Sub czy ktoś pomoże napisać coś podobnego dla OpenCalc ?
Potrzebuję pomocy przy stworzeniu makra do kopiowania zakresu komórek z Arkusza1 do Arkusza 2. Wybieram np. komórkę Arkusz1:D7. Makro kopiuje komórki C7, D7,E7,F7,G7 i H7 i wkleja je do Arkusza2(C15, H15). Wybieram drugą komórkę np. Arkusz1:D25 i makro wkleja zaznaczony obszar do Arkusza2 w kolejny wiersz(C16, H16). Makro powinno działać tylko przy...
Super. Dzięki makro śmiga
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))"...
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...
Nagraj takie makro: -ustaw aktywną komórkę A1 -naciśnij Ctrl+Shift+Strzałka w dół -naciśnij Ctrl+Shift+Strzałka w prawo zobacz różnicę... Osobiście staram się unikać select'ów, więc zrobiłbym to tak:[syntax=vba] Sheets(i).activate w = Range("A1").End(xlDown).Row k = Range("A1").End(xlToRight).Column Set RNG = Range(Cells(1, 1), Cells(w, k))[/syntax]
Tak z ciekawości zapytam: A co z tą wstawioną (bez skojarzeń proszę), nową kolumną? Ma jakieś znaczenie dla obliczeń? Jaki jest cel takiego działania? Dlaczego makro rozpoczyna od aktywnej komórki? Co, jeśli C2 jest pusta?
Dalej nie bardzo wiadomo, o co dokładnie chodzi. Masz makro, które po wykonaniu zwraca w kolumnie E formuły z odwołaniami względnymi do komórek z kolumn C i D. Jeśli pomiędzy kolumny C i D wstawisz dodatkową kolumnę lub kolumny, to formuły (obecnie w kolumnie E) dostosują się do nowych adresów kolumn źródłowych i formuły będą nadal działać prawidłowo....
Dzięki za zainteresowanie i odpowiedź, ale nie do końca mi o to chodziło. Może nie dość jasno się wypowiedziałem. W komórkach A5 - A10 zwarte są nazwy makr - (dajmy na to, że w A8 będzie to "przelicz", w A9 "decyzje", w A10 "kontrole" itp.). Uruchamiamy makro o nazwie dajmy na to "start". Makro to sprawdza który wiersz jest aktywny, jeśli jest to np....
Chyba jeszcze prościej jest skorzystać z opcji CurrentRegion, czyli dla twojego przykładu: ActiveWorkbook.PivotCaches.Create(Source... SourceData:=Sheets("Arkusz1").Range("A4"... Version:=6).CreatePivotTable TableDestination:= _ "Arkusz2!R3C1", TableName:="Tabela przestawna1", DefaultVersion:=6 Od komórki,którą podasz w parametrze...
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...
Trzeba zmienić sposób adresowania w makro z bezwzględnego na względny . A najlepiej związać z aktywną komórką i wtedy nawet nie trzeba go kopiować - jedno makro będzie obsługiwało wszystkie wiersze. :D
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.
Makro ukrywa wybrane komórki i uwidacznia inne.
Najpierw musisz utworzyć marko które będzie się uruchamiała po zmianie tekstu w komórce. Przykład Cells.Find . Na końcu wyrażenia dajesz .Activate i komórki w których znaleziono daną wartość robią się aktywne. Na końcu używasz czegoś [url=http://java2s.com/Code/VBA-Excel-Ac... żeby przejść do właściwej komórki.
Niestety nie. Chodzi o to aby po wykonaniu makra w komórce A1 (jako aktywnej) zostało TR a do B1 przeniosło lodówka .
Kłopot w tym , że chciałbym żeby makro działało na wybranych komórkach tylko w kolumnach C i L. zadaniem makra jest zmiana koloru aktywnej komórki i wpisaniem dnia np. "Pn". Mam oddzielne makra na kolory dla poszczególnych dni i czasami omyłkowo zamiast zmienić tylko kolor w wierszu zmieniam każdą komórkę z danymi na co prawda właściwy kolor ale dane...
... powiedzmy, że chodzi o aktywną komórkę ale zawsze jest to inna komórka
muszę go 'zedytować' przed wrzuceniem tutaj, a to wieczorem :) Po lekkiej edycji calego pliku jest ok :) Jeszcze jedna rzecz jest dość uciążliwa - mianowicie przy każdorazowej zmianie aktywnej komórki uruchamia się makro dzielące wynik z I1, czy można to ograniczyć do jednorazowej akcji? Dorzucam plik
Skoro ma być w VBA... Przykład z tablicą i... InputBox'em ;) [syntax=vb]Sub aver() tekst = InputBox("Wpisz liczby oddzielając średnikiem", "Obliczanie średniej") tekst = Replace(tekst, " ", "") 'wyrzucamy spacje tekst = Replace(tekst, ":", ";") 'mogło się komuś omsknąć tekst = Replace(tekst, ".", ",") 'to sie często zdarza tablica = Split(tekst, ";")...
Hej, szukam pomocy, ponieważ poszukuję makra, aby excel aktywną komórkę wpisał w polu wyszukiwania w outlooku. Jedynie co znalazłem to niestety pobieranie wszystkich maili, bądź otwarcie ostatniego maila, a mi zależy jedynie na powyższym. Wiem, że to wydaję się proste, ale chyba tak proste to nie jest :( Błagam o pomoc. Z góry dziękuję za pomoc.
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...
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...
Cześć, Chcę stworzyć makro, który sumuje dane w komórkach kolumny P i w momencie gdy suma przekroczy 20 wstawia pusty wiersz. Po czy sprawdza dalej, aż do ostatniej aktywnej komórki. Makro, które utworzyłam nie wyrzuca mi błędu, ale jedyne co robi to przechodzi od komórki P1 do pierwszej pustej. [syntax=vbscript]Function PrzejdźDoOstatniego1() Dim ile...
Działa :) Dziękuje serdecznie przyjacielu ! Jeszcze jedno : A jakbym chciał zaznaczyć zakres dwóch wierszy tzn. aktywnego i jednego wyżej :) pozdrawiam
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".
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...
No nie wiem, marek003 pewnie już coś ma w rękawie, ale tak się zastanawiam... W tej formie, to rzeczywiście karkołomna robota. Potrzebny byłby arkusz pomocniczy, obliczający zależności dla każdej (tak mi się wydaje) pary komórek. Zdaje się, że o wiele prościej byłoby napisać makro. Test byłby przeprowadzany jedynie na aktywnej komórce (Target.Value),...
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....
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.
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...
Witam:) Nie wiem czy to dobre miejsce na ten temat ale jakoś nie mogę połapać się na tym forum a tym bardziej założyć nowy temat Bardzo proszę o pomoc, mam zadanie tego typu chciałbym aby makro wyszukiwało mi zakres aktywnych komórek np (A1:A2) z przykładowymi wartości np 1,2,3,4,5...20 i chciałbym aby pętla kopiowała mi te wartości określoną ilość...
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...
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
Tak oczywiście. Musisz stworzyć sobie userform, w którym umieścisz odpowiednie przyciski do wyboru dnia, miesiąca i roku. Kombinuj w ten sposób. Jeśli nie to w userformie umieść pola tekstowe ze zmiennym tekstem tworząc siatkę kalendarzową. Pola te muszą być aktywne tak, że po kliknięciu na nie makro wpisze w wybraną komórkę (zaznaczoną) tą informację,...
Po naciśnięciu tego przycisku tylko komórka A1 ma być niedostępna do edycji, a wszystkie inne mają być nadal aktywne? I jak długo ten stan ma trwać? Czy coś takiego? Hasło do zniesienia ochrony "x".
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...
Dzień dobry, Oczywiście przycisk jest tylko jedną z możliwości wywoływania makroinstrukcji. Można użyć np. skrótu klawiaturowego. Zakładam, że to co Pan chce wkleić jest w schowku w pamięci. Do poprzedniego makro dodałem instrukcję ActiveSheet.Paste, która wkleja zawartość schowka w miejscu kursora. Dalej wykonywana jest makroinstrukcja jak poprzednio...
Tak. Używam "Microsoft Communication Control" Problem udało się rozwiązać poprzez wstawienie do pętli DoEvents. Do DoEvents Loop Until MSComm1.InBufferCount >= 9 Program w pętli umożliwia zmianę komórek bez wysyłania danych, a pętla kończy się w momencie kiedy z urządzenia zostaną wysłane dane do komórki. Po zmianie komórki procedura startuje na...
Pojawia mi się błąd next without for a bez next a stosuje tylko do aktywnego arkusza
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ść...
Sub ZamienNaHiperlink() Dim komorka As Range Dim nazwaPliku As String Dim sciezka As String Set komorka = ActiveCell If IsEmpty(komorka.Value) Then MsgBox "Aktywna komórka jest pusta.", vbExclamation Exit Sub End If nazwaPliku = Trim(CStr(komorka.Value)) ' Buduje pełną ścieżkę z podwójnymi ukośnikami sciezka = "file:///D:\as\" & nazwaPliku &...
Powiem szczerze, że nie działa to zbyt płynnie i jest dodatkowo utworzony kolejny arkusz. Przy wyszukiwaniu np. numeru 100 000 000 po wpisaniu w wyszukiwarce 10 wyświetla się wiersz natomiast, gdy wpiszę 100 to już nic nie wyszukuje. Przy filtrowaniu wyszukuje bardzo dokładnie nawet po fragmencie numeru, który znajduje się w środku natomiast nie ma...
Nagraj makro sortowania i umieść je w kodzie arkusza przy zdarzeniu Worksheet_Change. Możesz ograniczyć aktywny zakres do jednej kolumny.
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...
Chodzi o wyłączenie przeliczania. Ale jeśli zrobisz to ręcznie, zgubisz datę. W Excelu jest skrót Ctrl+: Możesz sobie dorobić coś podobnego: Wstaw moduł (Narzędzia>Makra>Zarządzaj) i wklej http://obrazki.elektroda.pl/7824836700_1... Po tym wszystkim Ctrl+spacja wstawia aktualną datę w aktywnej komórce.
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...
Zaznacz sobie ten swój zakres czyszczonych komórek: Range("G7:AA15") Range("G17:AA22") Range("G26:AA29") Range("G32:AA37") Range("B40:I47") i nadaj mu nazwę "intro" :cunning: - wówczas proponowane makro wyczyści Ci tylko ten pożądany zakres. :bye:
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()...
Wiem ze VLOOKUP. Ale myślałem że jeżeli wstawię to jako string to używając zapisu angielskiego zwróci mi błąd w stylu #NAZWA Sprawdzę to wkrótce i dam znać co z tego wyszło. Dodano po 4 Ok, zapis funkcji bez żadnego wywoływania zmiennej itp jest ok. Jest tylko problem. Jak w zapisie Range("D1").Formula = "=VLOOKUP(A1, Arkusz2!A:B,2,0)"...
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.
Witam To jest makro wyszukane w jakiejś książce nie pamiętam. Tworzy nowe skoroszyty dla filtra z tabeli przestawnej. Zmień fragment aby tworzyło nowe arkusze Dodano po 6 Proponuję stronę helion.pl Tam do książek są przykłady na FTP. Skarbnica przykładów ;-)
Nagraj makro i dostosuj do swoich potrzeb. Dzięki. Nie pomyślałem i rzeczywiście udało się. Będę tylko wdzięczny jak ktoś mi podpowie co należy dopisać jeżeli chcę np edytować komórkę w kolumnie C pod ostatnią wypełnioną komórką (w kolumnie są też puste komórki) Dodano po 1 Mam takie teraz makro: [syntax=vbscript]Sub wstawianie_bezduplikatów() Sheets("Arkusz1").Select...
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
Dzięki za odpowiedź ale.. chodziło mi o coś innego: Np. mam kolejno w wierszu (niezależnie czy to wiersz 10 czy 50) : B A ‘ Aktywna komórka A B B C ‘ Koniec zaznaczania A A C C Ustawiam się na pierwszej komórce A, włączam makro i chcę żeby zaznaczyło mi komórki od A (w dół) do danego słowa - w tym wypadku np. do C. *Czyli zaznacza wiersze...
Trochę czasu wolnego się trafiło, poczytałem toiowo, i znalazłem może niezbyt eleganckie ale dosyć satysfakcjonujące rozwiązanie mojego problemu. Tylko brak mu automatyzacji i całościowego podejścia jeszcze. Są dwie kolumny, w jednej nazwa towaru po polsku (A), w drugiej ma być po angielsku (B). Część drugiej jest już przetłumaczona, więc niektóre komórki...
W zasadzie ładnie algorytm już opisałeś, pozostaje tylko poszukać odpowiednich funkcji. Wg mnie, jeżeli nazwy w kolumnie A nie będą się powtarzały, to o wiele prostsza w użyciu będzie funkcja .match , np. [syntax=vb] Szukana_nazwa = Worksheets("Arkusz1").Cells(ActiveCell.R... 1).Value 'Wiersz aktywnej komórki, kolumna A czyli 1 Nr_wiersza = Application.WorksheetFunction.Match(Szuk...
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))...
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....
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...
A co z ilościami, ceną i wartością? Która ilość ma znaleźć się na PZ? Sucha się "sama" liczy, czy wpisujesz ręcznie? Czy kopiowanie danych z aktywnego wiersza, czy z ostatniego. Które dane są wymagane, a które można pominąć (PZ tworzona jest mimo niewypełnionych komórek wiersza)?
A co jest w komórce, na której makro się "wykłada"? I co dokładnie robi AUTOWIERSZ? Nie wiem ale gdzieś musiał się wkraść jakiś chochlik - zrobiłem od nowa i wszystko hula jak powinno. AUTOWIERSZ dodaje nowy wiersz wraz z formułami w poszczególnych komórkach. Dodano po 19 Troszkę muszę znów zmodyfikować początek kodu aby umieścić w innej karcie ( a...
Witam, Potrzebuję pomocy przy stworzeniu makra lub kodu, instrukcja poniżej: Zaczynając od komórki A2 → skanuję kod kreskowy skanerem, który wprowadza mi numer artykułu w komórkę A2 i automatycznie przeskakuje do A3. Następnie musi wykonać makro z buttona "Szukaj" po czym znów aktywuje komórkę A2. Kolejno schodzi o 4 wiersze w dół i aktywuje pierwszą...
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ć"...
Witam, W załączonym przykładzie w pliku Excel mam dwa arkusze: Dane oraz Tabela. W arkuszu Dane mam wstawioną tabelę z danymi, która jest na bieżąco uzupełniana przez różnych użytkowników. W arkuszu Tabela mam wstawioną tabelę przestawną która prezentuje dane z podziałem na osoby odpowiedzialne za dany temat i przyporządkowanymi jej tematami. Bardzo...
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.
No dobrze z tym sobie poradziłem. Dodano po 17 Mam nowy problem. Jak mając komórkę z formułą zliczającą dane w jednym skoroszycie przenieść tylko wynik do drugiego skoroszytu, aby był zmienną do obliczeń w aktywnym skoroszycie. Pomooocyyy
Witam! Chiciałbym zapisać w VBA kolejność przemieszczania kursora. Czyli np, mam komorkę A2 po naćiścnieciu ENTER przesuwa się do A6 z A6 do C8 czyli zgodnie z wymaganą kolejnością. Blokowanie nie zdaje egzaminu ponieważ mam nagrane makro oraz funkcje jeżeli , przesuniecie pinowe vba itp. te komórki w których jest "co kolwiek aktywne" po zablokowaniu...
Witam. Mam makro, które w zależności od wartości komórki "F6 >0" drukuje tylko te karty. Niestety tylko jednostronnie, a chciałbym aby to był wydruk dwustronny. Gdy wybiorę karty ręcznie i dam "drukuj aktywne arkusze" drukuje mi dwustronnie (opcja włączona w ustawieniach drukarki na stałe). W arkuszu są 74 karty. Proszę o pomoc, co jest nie tak?. To...
Witam, Chciałbym w Excelu wstawić przycisk powiedzmy o nazwie PRZYCISK1 , który po kliknięciu wstawiałby w aktywną/kliknięta wybraną w tej chwili komórkę daną wartość np. PRZ1 i przechodził do komórki poniżej. Czy da się to zrobić a jeśli tak to jak? Z góry dziękuję za pomoc Pozdrawiam Odpowiedz
Po naciśnięciu na przycisk commandbutton, otwiera się "Wstawianie hiperłącza", po wybraniu pliku, dodaje adres do następnej wolnej komórki w wybranej kolumnie. Wprawdzie makro nie działa poprzez okno "Wstawianie hiperłącza", ale wstawia łacza, podepnij je sobie pod przycisk. [syntax=vb]Sub Dodaj_Hiperlacze() Dim iCol% 'kolumna aktywnej komórki Dim...
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...
Jeśli makro jest w module lub jest to kod formularza a wcześniej nie jest aktywowany właściwy arkusz, to wartość pobierana jest z komórki bieżącego (aktywnego w tym momencie) arkusza. Dla uniknięcia "pomyłek" lepiej użyć pełnego adresu Np w bloku "With-End With" With Sheets("Arkusz1").Rang... & j) .Value = .Value...
Witam Mam do uzupełnienia dość spory arkusz. Zazwyczaj chodzi o wpisanie wartości w dwóch komórkach, ale często sprawy się komplikują i muszę wstawić nowy wiersz, skopiować kilka potrzebnych komórek z wiersza powyżej (nie wszystkie), wprowadzić zmianę w jednej komórce i sformatować wiersz. Jako, że jest tego dość dużo, a czasu mam mało, chciałem użyć...
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...
Jak uruchamiasz procedurę? Ja używam przycisku i po zaznaczeniu dowolnej komórki, w której jednak musi być prawidłowa część ścieżki, po kliknięciu przycisku makro pobiera tę wartość. Przykładowo zaznaczam komórkę B8 z tekstem "Obrazki" (taki jest podfolder z obrazkami u mnie), klikam przycisk i kod umieszczony w makro: [syntax=vbscript] imgLocation...
Witam, Jestem zupełnie nowa w temacie VBA i wrzucono mnie od razu na gęłboką wodę. Mam do napisania aplikację sortującą bazę danych. Ale po kolei: na chwilę obecną potrzebuję makro które będzie wyszukiwało wartość tekstowa w 1 wierszu i jeśli ją znajdzie ustawi tam aktywną komórkę po czym wstawi 4 puste kolumny na prawo od niej. pózniej muszę wypełnić...
Dzień dobry, Nie wiem dokładnie co to makro miałoby robić, jeśli odwołuje się do obiektów z docelowego arkusza to można całość objąć instrukcją With: With Worksheets("Arkusz2") 'tu nazwa docelowego arkusza ' .... kod makra End With W kodzie makra nazwy tych obiektów, które odnoszą się do arkusza docelowego należy poprzedzić kropką, to znaczy np. .Range("A2")...
Makro jest do zrobienia. Możliwa jest też obsługa makrem komunikacji z ew. PowerPoint co po spięciu z całą tabelą daje możliwość "odwrócenia" wszystkich wpisów w komórkach z automatu. Szkoda tylko, że autor wątku zamilkł, a taki był aktywny... do czasu.
Cześć, Jestem początkujący w VBA, ale porwałem się, by przygotować skoroszyt obsługujący raporty kasowe i druk KP w szkole muzycznej. W załączonym pliku nie wiem jak napisać taki skrytp: W arkuszu "dane" wpisuję kwotę, którą za dany miesiąc wpłacił uczeń np. w komórce J8, i pozostawiam tę komórkę zaznaczoną. Uruchamiam makro, które przykleja do odpowiednich...
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...
Witam! Potrzebuję pomocy w takiej sprawie: mam w jakiejś kolumnie nieokreśloną ilość zapisanych jedna po drugiej komórek i usiłuję napisać makro, które zwróci w aktualnej komórce sumę komórek od pierwszej powyżej aktualnej do ostatniej (w górę) zapisanej komórki. Próbowałem łączyć Range(Selection, Selection.End(xlUp)).Select z ActiveCell.FormulaR1C1...
WITAM!! Bardzo prosze o pomoc w napisaniu makra: musi zawierać ono 3 przyciski (yesNoCancel) oraz ikonę ostrzeżenia. musi wyswietlac zapytanie "czy kolor obramowania aktywnej komórki ma być czerwony a wnętrza niebieski" TAK- obramowanie czerwone, wypełnienie niebieskie NIE- nic musi to dzialac w excelu 2010 VB... wogole sie na tym nie znam- dla tego...
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...
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...
potrzebuję aby nowy folder był tworzony w tym konkretnym folderze Jeśli w komórce A1 będzie wprowadzona ścieżka aktywnego pliku z makrem :idea: (np. =INFO("katalog") :D ) to możesz tworzyć nowe podfoldery np. wg takiego kodu :spoko: : [syntax=vbscript]Sub StworzFolder() Dim FullPath As String Dim CheckDir As String Dim PATH As Variant Dim Folder As...
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...
Wielkie dzięki. To jest to o co mi chodziło. Do pełni szczęścia brakuje mi tylko tego, aby makro działało również wtedy, gdy tekst w dowolnej komórce kolumny A jest zaciągany z innego arkusza np. w komórce A5 jest wpisana formuła =Sheet2!D1 lub w dowolnej komórce kolumny A aktywnego arkusza wpisana jest np. formuła ="data cos tam"&Sheet2!A1 Da się tak...
Używałem tej opcji ale tylko dla "zwykłych tabel" czyli komórek obramowanych itp. Jak w Excel mam wstawione table przez "wstaw tabele" to nie ma możliwości wykonywania operacji na więcej niż jednym arkuszu w obszarze tabeli (opcja wstaw kolumny jest nie aktywna).
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.
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...
Dziękuję bardzo w końcu po wielu próbach zadziałało :-). W ramach nauki VBA chciałbym trochę udoskonalić powyższe makra. Obecnie w pliku 1 mam dwa przyciski cmdSave i CommandButton1, które działają w następujący sposób: cmdSave -tworzy mi plik o nazwie komórki B3 pliku 1 i zapisuje na dysku we wskazanej lokalizacji (jest aktywny przy otwarciu pliku...
Witam, czy mógłby mi ktoś pomóc przy następującym problemie: chciałbym zrobić makro za pomocą którego po wprowadzeniu danych i zatwierdzeniu ich enterem, kursor (albo jak kto woli następne aktywne pole do wprowadzania) będzie przechodził w określone miejsce. Nie chodzi mi o przechodzenie jedno pole niżej, czy jedno pole w prawo. Tylko o przechodzenie...
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...
Problem został rozwiązany, napisałem kod od nowa ;) A co do aktywnego okna z kodem na zrzucie to on pojawiał się sam gdy odpalałem makro w skoroszycie. Po odpaleniu pojawiał mi się edytor VSB i wyskakiwało właśnie to okno. Dzięki za pomoc Sprawa zamknięta.
makro komórka aktywna komórka excel makro komórka komentarz
przepływomierz odpowiada iskry nagrzeje zablokować windows update
resetowanie hasla windows filtr piaskowy
Nissan Primastar - Przyczyny Podwyższonych Obrotów Silnika Sprawdzenie legalności laptopa Dell Tag: 9M5BH74