"#N/A" - to jest angelskie, w VBA tak ma byc, N/D(w komorce) myslim ze narodowe(Local)
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.
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...
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))"...
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...
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 .
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...
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 ?
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...
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.
Super. Dzięki makro śmiga
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....
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...
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...
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 .
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...
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....
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?
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.
Makro ukrywa wybrane komórki i uwidacznia inne.
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...
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....
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...
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
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, ";")...
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...
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...
Witam, mam problem z makrem dotyczący podświetlenia aktywnego wiersza. Zrobiłem coś takiego jak w załączniku - chodzi mi o podpowiedź jak przerobić formatowania tak, aby podświetlane były na niebiesko tylko komórki niepuste. Reasumując, na niebiesko podświetlone mają być tylko komórki, w których jest jakiś tekst lub liczba a nie w deklarowanym zakresie...
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.
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
... powiedzmy, że chodzi o aktywną komórkę ale zawsze jest to inna komórka
witam, okazało się , że żle postawiłem pytanie. chodzi mi teraz o odczytanie wartości komórki, która jest aktywna (zaznaczona) w momęcie włączania makra. Wczesniej postawiłem pytanie jak odczytać wartośc z konkretnej komórki (nie ważne która komórka była zaznaczona podczas uruchamiania makra). Chodzi mi o takie coś, zaznaczam obojetnie jaką komórkę...
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...
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
W załączonym pliku w arkuszu jest Combobox 1 utworzony z poziomu arkusza. Zależy mi na Combobox nazwa "CH", który został utworzony z poziomu makra -VBA.
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...
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))...
Działa :) Dziękuje serdecznie przyjacielu ! Jeszcze jedno : A jakbym chciał zaznaczyć zakres dwóch wierszy tzn. aktywnego i jednego wyżej :) pozdrawiam
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
Witam, Jestem totalnym amatorem w pisaniu makra i utknąłem w miejscu. Problem polega na tym, że potrzebuję aby ostatnia wypełniona komórka z kolumny A została skopiowana do końca danych w kolumnie B. Za każdym razem będzie różna ilość wypełnionych wierszy w kolumnie B dlatego nie mogę ustawić zakresu na sztywno, a jak nagrywam makro to właśnie tak się...
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...
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...
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.
Kopiowanie formuł jest właściwością tabeli i w zasadzie sposób odwoływania się nie powinien tu mieć znaczenia. Mnie jednak po przekształceniu zwykłego zakresu w tabelę, to od razu nie zadziałało, dlatego zmieniłem sposób odwołania. Można też raz skopiować formułę, a potem powinno już działać automatycznie. Jeśli po wpisaniu czegoś do kolumny C chcemy...
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]...
makro kopiować aktywny komórka makro komórka makro komórka komentarz
ekspres delonghi wymiana grzałka arduino projekt flash prostownik regulacja tyrystor
drzwi zmywarki bosch zamykają drzwi zmywarki bosch zamykają
Jak sprawdzić sterownik hulajnogi elektrycznej? Jak ustawić kanały w telewizorze JVC?