enter makrosu

[igultekin2000]

iyi günler;
kullandığım makroya enter makrosu atamak istiyorum. yani G9 'a geldiğimde kendi makromun çalışmasını istiyorum. ama beceremedim.

http://s8.dosya.tc/server2/icyj1j/SARAYLAR_2015_STOK.rar.html
http://s3.dosya.tc/server8/w1235o/WORD-m.doc.html

 

[Emir Hüseyin Çoban]

. . .

G9 hücresini seçtiğinizde mi yoksa
G9 hücresinden ayrıldıktan sonra mı kodları çalıştırmak istiyorsunuz...

. . .

 

[igultekin2000]

. . .

G9 hücresini seçtiğinizde mi yoksa
G9 hücresinden ayrıldıktan sonra mı kodları çalıştırmak istiyorsunuz...

. . .

G9 hücresinden ayrıldıktan sonra

 

[Emir Hüseyin Çoban]

. . .

Dim adres

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If adres = "G9" Then
        Call Düğme3_Tıklat
    End If
    adres = Selection.Address(0, 0)
End Sub


Private Sub Düğme3_Tıklat()
    MsgBox "Düğme3_Tıklat makrosu çalışdı. "
End Sub

. . .

 

[igultekin2000]

. . .

Dim adres

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If adres = "G9" Then
        Call Düğme3_Tıklat
    End If
    adres = Selection.Address(0, 0)
End Sub


Private Sub Düğme3_Tıklat()
    MsgBox "Düğme3_Tıklat makrosu çalışdı. "
End Sub

. . .

önce benim diğer makronu çalışması gerekiyor ama makro çalıştı şeklinde çıkmasına rağmen diğer kayıt makrosu işlem yapmıyor

 

[Emir Hüseyin Çoban]

. . .

Diğer makronuzda yapılan işlem nedir.

Örneğinizde Düğme3_Tıklat içinde msgbox var. Denemelerimde onu çalıştırıyor.

. . .

 

[igultekin2000]

. . .

Diğer makronuzda yapılan işlem nedir.

Örneğinizde Düğme3_Tıklat içinde msgbox var. Denemelerimde onu çalıştırıyor.

. . .

giriş sayfasındaki bilgileri veri sayfasına kaydediyor

 

[Merhum İdris SERDAR]

.

Kırmızı olanı ilave edin.

Private Sub Düğme3_Tıklat()
[COLOR="Red"]Makro14[/COLOR]
    MsgBox "Düğme3_Tıklat makrosu çalışdı. "
End Sub

.

 

[igultekin2000]

.

Kırmızı olanı ilave edin.

Private Sub Düğme3_Tıklat()
[COLOR="Red"]Makro14[/COLOR]
    MsgBox "Düğme3_Tıklat makrosu çalışdı. "
End Sub

.

Sub Makro14()
'
' Makro14 Makro
'

'
Sheets("SABLON").Select
Range("A2:H2").Select
Selection.Copy
Sheets("VERİ").Select
Range("A2").Select
Application.Goto Reference:="R999999C1"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("SABLON").Select
Range("A2").Select
Application.CutCopyMode = False
Sheets("GİRİŞ").Select
Range("G2").Select
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$6" Then Exit Sub
Düğme3_Tıklat
End Sub
Private Sub Düğme3_Tıklat()
MsgBox "Düğme3_Tıklat makrosu çalışdı. "
End Sub

kayıt makrosunu mouse ve kısa yol tuşu kullanmadan ENTER le çalıştırmaya çalışıyorum ama uygulayamadım

 

[Merhum İdris SERDAR]

.

Yazdığım Kodu yazarak, denediniz mi?

Herhangi bir hücrede çift tıklayarak çalışır.

Enter yapmayı hangi hücrede yapılmasını istiyorsunuz?


.

 

[igultekin2000]

.

Yazdığım Kodu yazarak, denediniz mi?

Herhangi bir hücrede çift tıklayarak çalışır.

Enter yapmayı hangi hücrede yapılmasını istiyorsunuz?


.

makro çalışır uyarısını veriyor da kullanmam gereken makroyu çalıştırmıyor, makroyu kısa yol veya fareyle çalıştırıyorum, ama G9 Sütünda çalıştı uyarısı vermesine rağmen verileri ilgili yere kaydıtmiyor