doubleclick Yardım..

[lepregon]

A4:G28 hücresi arasına çift tıkladığımda A2 hücresine tıkladığım hücrenin değerini yazıyor. Benim istediğim A4:A28 arası hücrelere çift tıkladığımda A2 hücresine B4:B28 arası hücrelere çift tıkladığımda B2 hücresine yazmasını istiyorum.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B4:G28")) Is Nothing Then Exit Sub
[A2] = ActiveCell.Value
End Sub

 

[lepregon]

A4:G28 hücresi arasına çift tıkladığımda A2 hücresine tıkladığım hücrenin değerini yazıyor. Benim istediğim A4:A28 arası hücrelere çift tıkladığımda A2 hücresine B4:B28 arası hücrelere çift tıkladığımda B2 hücresine yazmasını istiyorum.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B4:G28")) Is Nothing Then Exit Sub
[A2] = ActiveCell.Value
End Sub

bu şekile G4:G28 hücresine kadar gitmesini istiyorum

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A4:G28")) Is Nothing Then Exit Sub
Cells(2, Target.Column) = ActiveCell.Value
End Sub

 

[lepregon]

Merhaba,

Bu şekilde deneyin.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A4:G28")) Is Nothing Then Exit Sub
Cells(2, Target.Column) = ActiveCell.Value
End Sub

Çok Teşekkür Ederim.

 

[lepregon]

Çok Teşekkür Ederim.

çift tıkla değildeTek tıkla yapabilirmiyiz acaba?

 

[Ömer]

Bu şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A4:G28")) Is Nothing Then Exit Sub
Cells(2, Target.Column) = ActiveCell.Value
End Sub