D sütunundaki hücreye çift tıkladığında aynı satırda B sütunundaki tarih gelsin

[Tevfik_Kursun]

Merhaba Arkadaşlar,
D sütunundaki hücreye çift tıkladığında aynı satırda B sütunundaki tarih nasıl getirilir?
Saygılarımla

 

[muratboz06]

D sütunun hücre biçimini tarih olarak belirleyiniz.
İlgili sayfanın kod bölümüne aşağıdaki kodu yazınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Rows > 1 Then
        Exit Sub
    End If
    If Target.Column = 4 Then
        Target = Cells(Target.Row, 2)
    End If
End Sub

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

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

 

[muratboz06]

B sütunundaki tarihler değişme ihtimali varsa aşağıdaki kod daha uygun olacaktır.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Rows > 1 Then
        Exit Sub
    End If
    If Target.Column = 4 Then
        Target.FormulaR1C1 = "=RC[-2]"
       End If
End Sub

 

[Tevfik_Kursun]

İlgilerinize çok teşekkür ederim arkadaşlar.
Saygılarımla