hücre çıkışında makro çalışsın

[Barons]

örnek dosyada a2 hücresinden enter ile çıkınca makro çalışsın istiyorum ancak herhangi bir yeri tıklayıncada çalışıyor.Yardımcı olursanız sevinirim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A2]) Is Nothing Then Exit Sub
    makro1
End Sub

.

 

[Barons]

çalışmadı makro 1 hocam....a2 hücresine bir veri giricem ve enter dedikten sonra makro1 çalışsın istiyorum.

 

[Barons]

değer girmem gerekiyormuş tm teşekkürler

 

[Barons]

peki A2 hücresinde değer olsun olmasın o hücre üzerinde iken enter yapınca çalışsın dersek,koddaki değişiklik ne olur?

 

[Ömer]

Veri olması önemli değil, A2 hücresini tetiklerseniz kod çalışır yani içine girip çıkarsanız da çalışır. Sizin tam olarak istediğiniz nasıl bir uygulama daha detaylı bilgi verir misiniz.

 

[Barons]

A2 hücresinde veri yoksa çalışmıyor...sildim hücreyi tekrar A2 seçtim enter dedim çalışmıyor....içinde veri olsun olmasın çalışmasını istiyorum

 

[Barons]

birde buradaki intersect (keşişme) komutunu biraz açıklarsanız sevinirim.Target.address ile niye olmuyorda intersect ile oluyor.? teşekkürler

 

[Seyit Tiken]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
makro1
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$3" Then
makro1
End If
End Sub
Sub makro1()
MsgBox "selam"
End Sub

 

[Ömer]

A2 de entera basmanız yeterli olmaz hücrenin içine girip çıkmanız gerekir aksi durumdan hücre tetiklenmez. A2 hücresindeyken F2 basıp enter yaparsanız çalıştığını görürsünüz.

target.address olarak da yazabilirsiniz. Ben yeniden yazdığım için o şekilde yazdım. Siz kod başlık satırında hata yapmıştınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$a$2" Then Exit Sub
makro1
End Sub

 

[Barons]

çok teşekkür ederim

 

[aywaz1986]

Merhaba bir soruda ben sormak istiyorum musadenizle;

Excell içinde herhangi bir yere tıklayınca USERFORM açılsın istiyorum. Excell arayüzü açılmadan USERFORM çalışma komudu var şu an fakat arada bir hata veriyor direk excell açılıyor bununda önüne geçmek için excell bir yere tıklayınca USERFORM.show makrosu devreye girsin istiyorum. Kullanıcılar USERFORM dışında hiç bir yere giremesin.