G sütununda bir hücreye çift tıklayınca, aynı hizada olan E sütunundaki tarihi kopyalama

[Tevfik_Kursun]

Merhaba Arkadaşlar,
G sütununda bir hücreye çift tıklayınca, aynı hizada olan E sütunundaki hücredeki tarihi G sütunundaki hücreye kopyalayıp I sütunundaki hücreye sıçrasın istemiştim. Denilenleri yapıp G deki hücreye DOĞRU yazıyor, neden olabilir?
Saygılarımla

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("G1:G" & Rows.Count)) Is Nothing Then Exit Sub
Cancel = True
Target = Target.Offset(0, -2).Value
Target.Offset(0, 1).Activate
End Sub

 

[Korhan Ayhan]

Alternatif;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 7 Then
        Cancel = True
        Target = CDate(Cells(Target.Row, 5))
        Target.Next.Next.Select
    End If
End Sub

Not : Artık bu tarz kodları sizlerin yazıp düzenleyebilmesi gerekir diye düşünüyorum.

 

[Tevfik_Kursun]

Sayın Korhan Hocam,

Not : Artık bu tarz kodları sizlerin yazıp düzenleyebilmesi gerekir diye düşünüyorum.

Size aynen katılıyorum. Ancak DOĞRU ifadesinin neden geldiğini anlamadım. Zaten sorum da bu idi.
Cevap veren tüm arkadaşlara teşekkür ederim.
Saygılarımla

 

[Korhan Ayhan]

Böyle durumlarda F8 tuşu ile kodu adım adım çalıştırarak hatayı gözlemleyebilirsiniz.

Hataya sebep olan satırda yazım hatası var. Bold bölümün silinmesi gerekiyor.

Target = Target.Offset(0, 2).Select

 

[Tevfik_Kursun]

Hataya sebep olan satırda yazım hatası var. Bold bölümün silinmesi gerekiyor.

Çok teşekkür ederim.
Saygılarımla