Saat yazdırma yardım

[Kartalmusa71]

Ekli dosyada derdimi anlatmaya çalıştım. Ben biraz birşeyler yaptım ama biraz fazlasına ihityacım var.Şimdiden yardımlarınız için teşekkürler.

 

[downunder]

Ekli dosyada derdimi anlatmaya çalıştım. Ben biraz birşeyler yaptım ama biraz fazlasına ihityacım var.Şimdiden yardımlarınız için teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
Cells(Target.Row, "E").ClearContents
If UCase(Replace(Replace(Target.Value, "ı", "I"), "i", "İ")) = "Number" _
Or IsNumeric(Target) = True Then
Cells(Target.Row, "E").Value = Time
End If
End Sub


Bu kondu bende kopyalayıp kullandım fakat bişi sormak istiyorum.Sadece Rakam olduğunda zaman yazıyor.Hem Harf;hem rakam olduğunda yazmıyor.Ben Aynı işlemi hem harf hem rakam kullanarak yapmak istiyorum..Yardımcı olurmusunuz?Teşekkürler..

 

[Ömer]

Ekli dosyada derdimi anlatmaya çalıştım. Ben biraz birşeyler yaptım ama biraz fazlasına ihityacım var.Şimdiden yardımlarınız için teşekkürler.

Merhaba,

Kodları aşağıdakilerle değiştiriniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Selection.Cells.Count > 1 Then Exit Sub
If Intersect(Target, [A2:M65536]) Is Nothing Then Exit Sub
 
If (Target.Column - 1) Mod 3 <> 0 Then Exit Sub
 
With Target.Offset(0, 2)
    .ClearContents
    If UCase(Target.Value) = "NUMBER" Or IsNumeric(Target.Value) = True Then
        .Value = Time
    End If
    If Target = "" Then .ClearContents
End With
 
End Sub

.

 

[Ömer]

Bu kondu bende kopyalayıp kullandım fakat bişi sormak istiyorum.Sadece Rakam olduğunda zaman yazıyor.Hem Harf;hem rakam olduğunda yazmıyor.Ben Aynı işlemi hem harf hem rakam kullanarak yapmak istiyorum..Yardımcı olurmusunuz?Teşekkürler..

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Selection.Cells.Count > 1 Then Exit Sub
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
 
With Range("E" & Target.Row)
    .Value = Time
    If Target = "" Then .ClearContents
End With
 
End Sub

.

 

[downunder]

Bu şekilde deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
 
If Selection.Cells.Count > 1 Then Exit Sub
If Intersect(Target, [B2:B65536]) Is Nothing Then Exit Sub
 
With Range("E" & Target.Row)
    .Value = Time
    If Target = "" Then .ClearContents
End With
 
End Sub

.

Teşekkürler tam çözüm oldu şimdi.Ellerinize sağlık