hücre seçildiğinde otomatik çalışan makro

[BARIŞ1]

bir dosya üzerinde çalışmaktayım. benim istediğim hücre seçildiğinde fare veya klavye ile mesela d15 hücresi seçildiğinde userform1 açılsın.
birkaç saatir aradım bulanmadım. yardımcı olursanız sevinirim.

 

[Seyit Tiken]

Bu kodu sayfanın kod penceresine yapıştırın ve ilgili hücreye çift tıklayın.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show 0
End Sub

 

[Seyit Tiken]

Yukarıdaki kod bütün hücreler için geçerli.
Aşağıdaki kod belli hücre(ler) için geçerlidir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Intersect(ActiveCell, [D15]) Is Nothing Then
MsgBox "İmleci İlgili Hücreye Götür"
Exit Sub
End If
UserForm1.Show 0
End Sub

 

[Levent Menteşoğlu]

benim istediğim hücre seçildiğinde fare veya klavye ile mesela d15 hücresi seçildiğinde userform1 açılsın.

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. D15 hücresi seçildiğinde userform açılacaktır.

[vb:1:37676f54a0]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Address = "$D$15" Then UserForm1.Show
End Sub
[/vb:1:37676f54a0]

 

[Zeki Gürsoy]

Yukarıdaki olaylar hücrede çift tıklandığında gerçekleşir. Eğer geçerli sayfada D15 seçildiğinde de çalışması için;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$D$15" Then Exit Sub
UserForm1.Show 0
End Sub

biçiminde yazılmalıdır.

Edit: Cevap gelmiş bile

 

[hafasepa]

bir aralıkta yer alan bir hücreyi seçtiğimizde olur yapamadım

Yukarıdaki olaylar hücrede çift tıklandığında gerçekleşir. Eğer geçerli sayfada D15 seçildiğinde de çalışması için;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$D$15" Then Exit Sub
UserForm1.Show 0
End Sub

biçiminde yazılmalıdır.

Edit: Cevap gelmiş bile

bir aralıkta yer alan bir hücreyi seçtiğimizde olur yapamadım

 

[Korhan Ayhan]

Bu satır yerine;

If Target.Address <> "$D$15" Then Exit Sub

Aşağıdaki satırı deneyiniz. (Kendi hücre aralığınıza göre uyarlarsınız..)

If Intersect(Target, Range("A1:A100")) Is Nothing Then Exit Sub