eğer A4 hucresine 3 yazarsam "work" adlı makro otomatik çalışsın

[baknediycem]

eğer A4 hucresine 3 yazarsam "work" adlı makro otomatik çalışsın.

herkese iyi çalışmalar.

 

[agent1980]

Merhaba...

Sayfa1 in Kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A4").Value = 3 Then
Call work
End If
End Sub

Sub work()
MsgBox ("Merhaba")
End Sub

Yazıp deneyebilirsiniz.

 

[Ferhat Pazarçevirdi]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
if range("A4").value=4 then
call work
else
'istediginiz baska bir eylem veya makro
end if
End Sub

 

[Ferhat Pazarçevirdi]

Agent1980, pardon

Sen daha hızlısın

 

[agent1980]

Rica ederim

Benim seviyemde bir soruydu... Sen fazla kolay diye hemen yazmamışsındır.

 

[baknediycem]

tesekkurler

elinize sağlık

 

[ozgurdenizlioglu]

merhabalar peki Sayfa1 in Kod bölümü nerden acilir?

 

[hakpin]

Merhaba;
Acaba aynı hücreye boş iken her hangi bir sayı veya rakam yazıldığında da makro çalışırmı.