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

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Altın Üyelik Bitiş Tarihi
06-01-2040
ö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.
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Bu şekilde deneyin.

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

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Altın Üyelik Bitiş Tarihi
06-01-2040
çalışmadı makro 1 hocam....a2 hücresine bir veri giricem ve enter dedikten sonra makro1 çalışsın istiyorum.
 

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Altın Üyelik Bitiş Tarihi
06-01-2040
değer girmem gerekiyormuş tm teşekkürler
 

Barons

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Altın Üyelik Bitiş Tarihi
06-01-2040
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Altın Üyelik Bitiş Tarihi
06-01-2040
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

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Altın Üyelik Bitiş Tarihi
06-01-2040
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde deneyiniz.
Kod:
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

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
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

Altın Üye
Katılım
14 Mayıs 2005
Mesajlar
967
Excel Vers. ve Dili
Microsoft Ofis 365
Altın Üyelik Bitiş Tarihi
06-01-2040
çok teşekkür ederim
 
Katılım
10 Ocak 2022
Mesajlar
50
Excel Vers. ve Dili
2019 vrs / ing-tr
Altın Üyelik Bitiş Tarihi
12-12-2023
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.
 
Üst