Makro otomatik çalışsın

[serkankeser]

Herkese Merhaba.
Bugün ikici kez soru soruyorum ama inşallah sizleri sıkmıyorumdur kusura bakmayın.
Soruma gelince C1 hücresinde değişiklik yapınca bul isimli makromun;
G9 hücresinde değişiklik yapınca sırala isimli makromun çalışmasını istiyorum.
Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$1" Then bul
If Target.Address = "$G$9" Then sırala
End Sub

 

[serkankeser]

Çok teşekkür ederim Levent Bey.
Herkese iyi akşamlar.

 

[serkankeser]

Merhaba;
Levent Bey C1 hücresinde değişiklik yapınca her iki makroda çalışıyor. Ben sadece C1 den sonra bul makrosunun G9 dan sonra diğer makronun çalışmasını istiyorum. Dosya ekte. iyi çalışmalar.

 

[Levent Menteşoğlu]

Aşağıdaki kodları deneyin.

Dim deg

Private Sub Worksheet_Change(ByVal Target As Range)
If deg = "$C$1" And Target.Address = "$C$1" Then bul
If deg = "$G$9" And Target.Address = "$G$9" Then kat
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
deg = ActiveCell.Address
End Sub

 

[serkankeser]

Çok teşekkür ederim. İyi günler.

 

[fatihmcelik]

bunları denedim olmadı.bire arkadaşlar acaba c6 hücresindeki değer belirlediğim bir diğer hücredeki değere ulasırsa otomatik olarak o makroyu çalıştırmak mümkünmüdür ilginize şimdiden teşekkür ederim.

 

[Levent Menteşoğlu]

Mümkündür elbette, bu hücrfelerdeki verile el ilemi giriliyor yoksa bir formüllemi geliyor. Karşılaştırılacak hücreler hangileridir.