B1 hücresinde 1 yazıyorsa "makro1" çalışsın

[mücahitayan]

Merhaba arkadaşlar;

şimdi yavaş yavaş sistemimi geliştiriyorum sayenizde ve yardımlarınızla, çok teşekkür ederim.


Bir ricam daha olacak;

benim 5 tane makrom var


ve b1 hücresinde bu makroların hangisinin çalışacağı formülle çıkacak.

Istediğim şudur ki. Ben bir butona bastığımda b1 hücresinde ne 1 yazıyorsa "makro1"'i, 2 yazıyorsa "makro2"'yi, 3 yazıyorsa "makro3"'ü ..... çalıştırsın toplam 5 makrom var.


Bununla alakalı ne tür bir makro olabilir. çok teşekkür ederim arkadaşlar.

 

[ECYavuz]

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$1" Then Then Exit Sub
Select Case Target.Value
Case 1
Call Makro1
Case 2
Call Makro2
Case 3
Call Makro3
Case 4
Call Makro4
Case 5
Call Makro5
Case Else
End Select
End Sub

Şeklinde deneyin...

 

[mücahitayan]

Şeklinde deneyin...

Sayın ECYavuz,

bu dediğinizi denedim fakat hata veriyor.

"If Target.Address <> "$B$1" Then Then Exit Sub"

kısmı hatalı :S ayrıca PrivateSub'lar butona uyarlanamıyor. o konuda ne yapacağız :S teşekkür ederim.

 

[fedeal]

günaydın,

If Target.Address <> "$B$1" Then [COLOR="Red"]Then[/COLOR] Exit Sub

kırmızı olan kelime çift kullanılmış birini silin düzelecektir.ayrıca kodları sayfanın kod bölümüne kopyalayın butona gerek olmayacak. b1 hücresinde değişiklik oldukça çalışacak.
aynı satırı alttaki şekildede kullanabilirsiniz.

If Intersect(Target, Range("b1")) Is Nothing Then Exit Sub

saygılar.

 

[fedeal]

ayrıca b1 hücresinde formül varsa yani 1.2.3.4.5 sayıları hücreye formülle geliyorsa sayfada değişim hadisesi algılanmıyacak.onun için söyle bir kod kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(65536, 250) = "" Then Cells(65536, 250) = Cells(1, 2)
If Cells(65536, 250) = Cells(1, 2) Then Exit Sub
If Cells(1, 2) = 1 Then Call makro1
If Cells(1, 2) = 2 Then Call makro2
If Cells(1, 2) = 3 Then Call makro3
If Cells(1, 2) = 4 Then Call makro4
If Cells(1, 2) = 5 Then Call makro5
Cells(65536, 250) = Cells(1, 2)
End Sub

ilk denemede kod çalışmayacak daha sonra kullanabilirsiniz.
daha sonra kodlar b1 hücresi degiştikçe (formüllede olsa) çalışacaktır.