Double Click

[tahsinanarat]

7.Sutunda (G sütununda) işlem yapıldığında o satırın en başına (A sütununa) gitsin double clik yapsın istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[dEdE]

Merhaba,
Aşağıdaki kodu sayfanın kod bölümüne yazarak dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
    Cells(Target.Row, 1).Select
    SendKeys "{F2}"
End Sub

 

[tahsinanarat]

Sn. dede, cevabınız için teşekkürler, ancak istediğim bu değil, sizin kodlar F2 enter ile hücrenin içine giriyor, benim yapmak istediğim geldiği bu hücre üzerinde çıft tıklama olayını gerçekleştirmek. Bilgilerinize

 

[Orion1]

Böyle yaparsanız olur.

Private Sub Worksheet_Change(ByVal Target As Range)
'buraya doubleclick olayına yazdığınız kodları yazın
Range("A1").Select
End Sub

 

[tahsinanarat]

Sn. Orion1 hocam, Bulduğum cevabı yazacaktım girdiğimde sizin cevabınızı gördüm, ben de şöyle bir çözüm bulmuştum, doubleclick kodlarını modele bir makro adı vererek kayıt ettim, sonra ismini verdiğim MyDoubleClickMakro nun çalışmasını sağladım

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo son

    If IsEmpty(Target) Then Exit Sub

    If Intersect(Target, [G:G]) Is Nothing Then Exit Sub
    Cells(Target.Row, 1).Select
    Sheets("Sayfa1").Select
If Target.Value = "" Then
    Target.Interior.ColorIndex = xlNone
    Target.Offset(0, 1) = ""
Else
    Set Bul = Sheets("cariler").Columns("a").Find(Target, LookAt:=xlWhole)
    If Bul Is Nothing Then
        Target.Interior.ColorIndex = 3
        Target.Offset(0, 1) = ""
        MsgBox Target.Value & " Degerini Bulamadim "
    Else
     
        Target.Interior.ColorIndex = xlNone
        Target.Offset(0, -1) = Date
        Target.Offset(0, 1) = Sheets("cariler").Cells(Bul.Row, "C") & " " & Sheets("cariler").Cells(Bul.Row, "D")
        Target.Offset(0, 2) = Sheets("cariler").Cells(Bul.Row, "F") & " " & Sheets("cariler").Cells(Bul.Row, "G")
        Target.Offset(0, 3) = Sheets("cariler").Cells(Bul.Row, "H")
        Target.Offset(0, 4) = Sheets("cariler").Cells(Bul.Row, "I")
        Target.Offset(0, 5) = Sheets("cariler").Cells(Bul.Row, "J")
        Target.Offset(0, 6) = Sheets("cariler").Cells(Bul.Row, "K")
        Target.Offset(0, 7) = Sheets("cariler").Cells(Bul.Row, "M")
        MyDoubleClickMakro
        sozlesmeac
'Target.Offset(, 1).Next.Select
        'degistir
   End If
End If
son:
End Sub

Sub MyDoubleClickMakro()

Dim sat As Long, son_sat As Long
Sheets("Hayat_dolap").Select
son_sat = Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row '+ 1
sat = ActiveCell.Row
If son_sat >= 65533 Then
    MsgBox "Sayfa1'de Satır doldu başka kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
End If
Sheets("Sayfa1").Range(Sheets("Sayfa1").Cells(son_sat, 1), Sheets("Sayfa1").Cells(son_sat, 14)).Value = _
Range(Cells(sat, 1), Cells(sat, 14)).Value
Sheets("Sayfa1").Select
Range("H3").Select

End Sub