enter la hücrelerdeki makroyu çalıştırmak

[dogan_yigit]

:hey:
slm arkadaşlar
ben birşeyi bulamadım sitede aramama rağmen
I13:I50 arasındaki hücrelerde enter tuşu ile makroyu nasıl çalıştırırım. yardımcı olursanız sevinirim .

site mükemmel........... :agla: :agla: :agla:

 

[Seyit Tiken]

Bu kodu kendinize göre tatbik ediniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, [A2:A20]) Is Nothing Then
Exit Sub
End If
Call Makro1 'çalıştırmak istediğiniz makronuzun adını yazınız'
End Sub

 

[dogan_yigit]

:yardim: :yardim: :yardim: :yardim:

:mutlu: arkadaşım tşk ettim ama bu makro enter la çalışmıyor, çift tıklamayla çalışıyor. bunun hücrede enter la çalışanı hakkında yardımcı olursanız çok sevinirim.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(ActiveCell, [A2:A20]) Is Nothing Then
Exit Sub
End If
Call Makro1 'çalıştırmak istediğiniz makronuzun adını yazınız'
End Sub


:yardim: :yardim: :yardim: :yardim:

 

[Korhan Ayhan]

Selamlar,

Tam olarak ne yapmak istediğinizi açıklarsanız belki farklı çözüm önerileri olan çıkabilir.

 

[Ali]

Bir modüle aşağı kodları yapıştırın

Sub auto_open() 'Enter tuşu ile makroyu ilişkilendirdik
Application.OnKey ("{RETURN}"), "ENTER"
End Sub

Sub mesaj()
MsgBox ("Enter tuşu ile çalıştım")
End Sub

Sub ENTER()
If Intersect(ActiveCell, [I13:I50]) Is Nothing Then Exit Sub
Call mesaj
End Sub

 

[dogan_yigit]

selam arkadaşım
bir cari prog yapmaya çalışıyorum
vede bu cari programda en son satıra veri girişi yaptığımda ve de I sütunundaki hücreye geldiğimde, enter tuşuyla geçtiğim zaman alta yenni bir satır eklemesini istiyorum. fakat yapamadfım.

ilginizden dolayı teşekkürler,
:keyif: :keyif:

 

[Korhan Ayhan]

Selamlar,

Sonuç olarak I sütunundaki hücreye veri girdiğinizde alta yeni bir satır eklemesini istiyorsunuz. Peki diğer satırlar gizlimi ?

 

[dogan_yigit]

selam fructose,
arkadaşım sağol,

If Intersect(ActiveCell, [I13:I50]) Is Nothing Then Exit Sub

bu makro işimi gördü
arkadaşlar ilginizden dolayı hepinize teşekkürler
:yazici: :dua: :dua: :dua: