hücreye çift tıklandığında DD.MM.YYYY hh:mm

[kadir_s]

Merhaba,

Bu linkte (http://www.excel.web.tr/showthread.php?t=1504) sn. Hamitcan'ın eklediği makro bulunmakta. Fakat makroyu excel sayfasında çalıştıramadım. "EK" şeklinde cevap alabilir miyim?

Bir de hücre aralıklarını nasıl tanımlarız? Hücreler arasında konu dışında kalan hücreler var. Yani c1-c2 ve c4-c7 arası hücrelerde çift tıklandığında tarih ve saat oluşmalı.

Teşekkürler, kolay gelsin.

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne uygulayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C1,C2,C4:C7")) Is Nothing Then Exit Sub
Cancel = True
ActiveCell = Now
End Sub

 

[conari]

if ActiveCell =[c2] or .... then

--işlemler

end if

 

[kadir_s]

özür dilerim, hücre değil sütun aralıkları belirtecektim.

yani c1 c2 değil de BE-BF sütunu BH:BK sütunları arası olacaktı. veridiğiniz örneker üstüne denedim ama yeterli bilgim olmadığı için bir yerlerde yanlış yapıyorum sanırım.

 

[Orion1]

özür dilerim, hücre değil sütun aralıkları belirtecektim.

yani c1 c2 değil de BE-BF sütunu BH:BK sütunları arası olacaktı. veridiğiniz örneker üstüne denedim ama yeterli bilgim olmadığı için bir yerlerde yanlış yapıyorum sanırım.

Aşağıdaki kodu deneyiniz:
Çalışma sayfasının kod bölümüne yapıştırınız..!!

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("BE:BF,BH:BK")) Is Nothing Then Exit Sub
Cancel = True
ActiveCell = Now
End Sub

 

[kadir_s]

sn. V.Basic For Applications, conari, Orion2 yardımlarınız için çok teşekkürler. iyi çalışmalar

 

[Orion1]

sn. V.Basic For Applications, conari, Orion2 yardımlarınız için çok teşekkürler. iyi çalışmalar

Rica ederim.
İyi çalışmalar.