- Katılım
- 15 Temmuz 2012
- Mesajlar
- 2,790
- Excel Vers. ve Dili
- Ofis 2021 TR 64 Bit
Merhaba hayırlı geceler.
Ekte gönderdiğim excel dosyamın sayfanın kod bölümünde aşağıdaki kod var, kod E ve F sütununda çift tıkladığında tarih ve saat atıyor, bu sütunlarda dolu olan hücrelerde tekrar tıklandığında tarih ve saat atmıyor, kodlar tam istediğim gibi gayet güzel çalışıyor.
Ben bu kodu Private Sub Worksheet_Change(ByVal Target As Range) bu başlık altında çalıştırmaya çalıştım ama yapamadım.
Yapmak istediğim B2 sütunundan aşağıya doğru bilgi girdiğimde C sütunundaki ilgili hücreye tarih, D sütunundaki ilgili hücreye saat atmasını ve A sütununa sıra no vermesini istiyorum istiyorum.
Yardımcı olur musunuz?
Ekte gönderdiğim excel dosyamın sayfanın kod bölümünde aşağıdaki kod var, kod E ve F sütununda çift tıkladığında tarih ve saat atıyor, bu sütunlarda dolu olan hücrelerde tekrar tıklandığında tarih ve saat atmıyor, kodlar tam istediğim gibi gayet güzel çalışıyor.
Ben bu kodu Private Sub Worksheet_Change(ByVal Target As Range) bu başlık altında çalıştırmaya çalıştım ama yapamadım.
Yapmak istediğim B2 sütunundan aşağıya doğru bilgi girdiğimde C sütunundaki ilgili hücreye tarih, D sütunundaki ilgili hücreye saat atmasını ve A sütununa sıra no vermesini istiyorum istiyorum.
Yardımcı olur musunuz?
Kod:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Target.Column <> 5 Then
If IsDate(Target.Value) = False Then
Target.Value = Format(Now, "dd.mm.yyyy")
End If
End If
If Target.Column <> 6 Then Exit Sub
If IsTime(Format(Target.Value, "hh:mm")) = False Then
Target.Value = Format(Now, "hh:mm")
End If
End Sub
Function IsTime(str)
If str = "" Then
IsTime = False
Else
On Error Resume Next
TimeValue (str)
If Err.Number = 0 Then
IsTime = True
Else
IsTime = False
End If
On Error GoTo 0
End If
End Function
Ekli dosyalar
-
17.7 KB Görüntüleme: 4