Excel - VBA - Uruchamianie makra poprzez VBA na podstawie tekstu

Question

Witam serdecznie. Zaczynam się uczyć języka VBA i mam pewien problem którego nie mogę przeskoczyć. Bardzo prosiłbym o pomoc. Mam arkusz W wierszu w poszczególnych komórkach np. F5,L5.... mam do wyboru TAK / NIE Chciałbym aby po wybraniu któregoś z tych słów uruchamiało się moje makro. Stworzyłem...

adamas_nt · Accepted Answer

Argumentem procedur zdarzeniowych jest zmienna 'Targret' reprezentująca "obrabiany" zakres. Wystarczy więc jeśli Target.Row zwraca 5.
Czyli zamiast select i tych wszystkich case'ów: if Target.Row=5 then itd.

Loker · Accepted Answer

Private Sub Worksheet_Change(ByVal Target As Range)

Dim Komorka As Range

If Not Application.Intersect(Rows(5), Range(Target.Address)) Is Nothing Then
For Each Komorka In Target.Cells
Select Case Komorka.Value
Case "TAK":
.
.
.
End Select
Next
End If

End Sub

adamas_nt · Accepted Answer

Najprościej:Kod: VBScriptZaloguj się, aby zobaczyć kod Jeśli w nagłówku dołożyć: Option Compare Text wtedy nie ma znaczenia wielkość liter.

Loker · Accepted Answer

Nie zadziała jeśli target jest większy niż pojedyncza komórka (np. wklejanie kilku komórek). Odnośnie mojego przykładu - a u mnie działa tzn. reaguje tylko na wiersz 5. Edit: Mała modyfikacja eliminująca pewną niedogodność przy wklejaniu kilku komórek na raz Kod: VBScriptZaloguj się, aby zobaczyć kod

Loker · Accepted Answer

Zamiast MsgBox (1)

mrgaj · Answer

Dziękuję za szybką odpowiedź nie mniej jednak jestem baardzo początkujący mógłbyś mi zarysować jak taki kod wygląda w całości?
dziękuję

EDIT:


Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 5 Then AUTOWIERSZ
    
        
 
    End Sub

zrobiłem tak lecz makro uruchamia się po KAŻDEJ zmianie w KAŻDEJ komórce wiersza 5
a mi chodzi aby uruchamiało się gdy zostanie wpisanie słowo TAK lub NIE

mrgaj · Answer

Dziękuję ! o to chodziło ALE - teraz się uruchamia po wpisaniu GDZIEKOLWIEK w arkuszu słów TAK/NIE - a mi chodziło wyłącznie o konkretny wiersz 5

mrgaj · Answer

Dziękuję Ci bardzo ! Jesteś wielki Faktycznie działa tylko na 5 - gdzieś mi ta 5 uciekła wcześniej Jeszcze tylko gdzie w ten kod wcisnąć makro AUTOWIERSZ ? przy którym then

mrgaj · Answer

Dzięki tam też wstawiłem. Chciałem zostawić ten msg wpisałem sobie komunikat. Dlatego spytałem.

Loker · Answer

Kod: VBScriptZaloguj się, aby zobaczyć kod

mrgaj · Answer

Witam ponownie. Wszystko działało do momentu dodania wielu danych w kolumnach.. Trochę tego jest = ponad 1.5k VBA działa - makro się uruchamia ale pojawia się błąd : Run time error 13 , Type missmatch Pokazuje błąd przy Case'ach Case TAK MsgBox (Dziękuję za informacje !) AUTOWIERSZ Case NIE MsgBox (Dziękuję za informacje !) AUTOWIERSZ Case WARUNKOWO MsgBox (Dziękuję za informacje !) AUTOWIERSZ O co chodzi ? Czy VBA/Makro mają jakieś ograniczenia co do rekordów ? Dziękuje za pomoc

Loker · Answer

A co jest w komórce, na której makro się wykłada? I co dokładnie robi AUTOWIERSZ?

mrgaj · Answer

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 [godziny] 16 [minuty]: Troszkę muszę znów zmodyfikować początek kodu aby umieścić w innej karcie ( a nie umiem Kod: text Rozwiń Zaznacz wszystko Kopiuj do schowkaPrivate Sub Worksheet_Change(ByVal Target As Range) Dim Komorka As Range If Not Application.Intersect(Rows(5), Range(Target.Address)) Is Nothing Then  For Each Komorka In Target.Cells  If Komorka.Row = 5 Then  Select Case Komorka.Value   Case AWARIA  MsgBox (Dziękuję za informacje !)  Send_Range     Case SPRAWNY  MsgBox (Dziękuję za informacje !)  Send_Range     Case WARUNKOWO  MsgBox (Dziękuję za informacje !)  Send_Range        End Select  End If  Next End If Potrzebuję aby makro uruchamiało się po wybraniu w KOLUMNIE którejś z wartości : AWARIA,SPRAWNY,WARUNKOWO Najlepiej byłoby gdyby makro uruchamiało się na podstawie wykrycia powyższych wartości w AKTYWNEJ KOMÓRCE gdyż Kolumna ma sporo wierszy gdzie w większości już są wpisane powyższe wybory. Jeżeli MAKRO będzie zczytywać wartość z całej kolumny uruchomi się i powstanie zamknięta pętla ( w kółko będzie się odpalać ) a tego nie chcemy...? ( w kolumnie są już wpisy) dziękuję jeszcze raz za pomoc !

Loker · Answer

Worksheet_Change uruchamia się tylko w przypadku zmiany wartości jakichś komórek i pracuje tylko na tych zmienionych komórkach więc nie ma ryzyka jakiegoś zapętlenia. Co znaczy po wybraniu w KOLUMNIE którejś z wartości - makro ma sprawdzać konkretną kolumnę?

lanzul · Answer

Jeśli obawiasz się zapętlenia kodu w procedurze zdarzeniowej, to zastosuj instrukcję: Application.EnableEvents = False / True Zapoznaj się w pomocy podręcznej z jej stosowaniem.

mrgaj · Answer

Rozumiem. Tak w kolumnie są do wyboru 3 opcje tekstowe. Chciałbym aby makro sprawdzało konkretna kolumnę, i uruchamialo się po wyborze jednej z nich. Dziękuję za pomoc

Loker · Answer

Podmień Kod: VBScriptZaloguj się, aby zobaczyć kod na Kod: VBScriptZaloguj się, aby zobaczyć kod Będzie sprawdzało w trzeciej kolumnie.

mrgaj · Answer

Jak zwyklę w punkt dziękuję . Działa Jeszcze ostatnia rzecz i stawiam kratę dobrego piwa ! A czy można (pewnie można) dołożyć warunkowanie które będzie uruchamiało różne makra na podstawie zawartości kolumny A w aktywnym wierszu. Wpisując w kolumnę D=AWARIA lub SPRAWNY lub WARUNKOWO , VBA sprawdza co widnieje w kolumnie A i na podstawie jej zawartości uruchamia odpowiednie makro. np. Jeżeli komórka w KOLUMNA A = BAZA i D = AWARIA i to uruchom makro BAZA Jeżeli komórka w KOLUMNA A = DOM i D = WARUNKOWO i to uruchom makro DOM Jeżeli komórka w KOLUMNA A = MAGAZYN i D = SPRAWNY to uruchom makro MAGAZYN itd. A................... B............ C................. D BAZA.................................................. AWARIA DOM.................................................. WARUNKOWO MAGAZYN....................................... SPRAWNY jak zawsze pełen szacunek za pomoc

Loker · Answer

Tak na szybko: Kod: VBScriptZaloguj się, aby zobaczyć kod Zamiast MsgBox(Baza) itp. wstaw wywołanie odpowiednich makr.

Excel - VBA - Uruchamianie makra poprzez VBA na podstawie tekstu

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Post #17

Post #18

Post #19

Post #20

Podsumowanie tematu