BeforeDoubleClick için value değeri belirleme

[zeidor]

Merhabalar
Aşağıdaki makro kodunda "a4" hücresine çift tıklayınca "a4" hücresinin value değerini "f4"e eşitliyor,ben ise "a4" hücresine çift tıklayınca "a2" hücresinin value değerini "f4" e eşitlesin istiyorum,
yardımcı olurmusunuz?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Rng As Range
Dim deger As Range

Set Rng = Range("A4") 'cift tiklamak istedigimiz hucre adresi

If Intersect(Rng, Target) Is Nothing Then
GoTo 10
End If

Range("F4").Value = Target.Value 'cift tiklandiginda F4 degerini A4 deki degere esitle

For Each deger In Range("F8:F60")
If deger.Value = "" Then GoTo 20

Next deger

20:
deger.Select 'F8:F60 araligindaki ilk bos hucreyi sec
Exit Sub

Cancel = True
10:
Exit Sub

End Sub

 

[vardar07]

Aşağıdaki satırı bulup diğeri ile değiştirerek deneyiniz.

Range("F4").Value = Target.Value

Range("A2").Value = Range("F4").Value

 

[zeidor]

Allah razı olsun vardar bey..