G,I,K,M sutununa çift tıklayınca tarih atma

[dr_1356]

merhabaG,I,K,M,O,Q,S,U,W sutununa çift tıklayınca tarih atma nasıl yapılır tek sutuna aşagıdaki makro oluyor ama birden fazla sutunu nasıl yapabilirim bana yardımcı olabilirmisiniz


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [AB196:AB256]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then
Target = Date
Target.Offset(0, 1).Select
End If
End Sub

 

[1Al2Ver]

merhabaG,I,K,M,O,Q,S,U,W sutununa çift tıklayınca tarih atma nasıl yapılır tek sutuna aşagıdaki makro oluyor ama birden fazla sutunu nasıl yapabilirim bana yardımcı olabilirmisiniz

Merhaba,

Kod'da; kırmızı olan yeri düzelterek dener misiniz ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [G196:W256]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then
Target = Date
Target.Offset(0, 1).Select
End If
End Sub

yada,

Sadece G,I,K,M,O,Q,S,U,W sütunlarında çalıssın derseniz ;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [G:G,I:I,K:K,M:M,O:O,Q:Q,S:S,U:U,W:W]) Is Nothing Then Exit Sub
On Error Resume Next
If Target = "" Then
Target = Date
Target.Offset(0, 1).Select
End If
End Sub

 

[dr_1356]

çok teşekür ediyorum tam istedigim gibi olmuş iyi geceler