Macro komut değişikliği

[16prens]

Herkeze Slm
Ekli dosyada çalışma kitabında tüm sayfa tarih içeren macro durumunda. Ben sadece B sutununa uyarlamak istiyorum yardımcı olurmusunuz

 

[uzmanamele]

merhaba

aşağıdaki gibi deneyiniz

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
[COLOR=red]If Intersect(Target, [b:b]) Is Nothing Then Exit Sub[/COLOR]
Cancel = True
Calendar1.Value = Date
For a = 1 To 170 Step 8
Calendar1.Height = a
Next
End Sub

 

[16prens]

Arkadaşlar bu konu ile ilgili yardımcı olurmusunuz. ben bu kodlamayı yapamadım.

 

[16prens]

Arkadaşlar yokmu yardımcı olacak çalışma safası yapmam gerekiyor pazartesi günü okulda kullanacaklar yardım lütfen