Soru Saat içeren tüm hücrelere metin yazdırma

[baykan_m]

Merhaba Arkadaşlar,

Puantaj programından çektiğim excel dosyası ektedir. Saat formatlı görünen tüm hücrelere "N" yazılmasını istiyorum. Yardımcı olabilirseniz çok sevinirim.

İyi çalışmalar

 

[Korhan Ayhan]

Saatler silinecek sanırım.

Deneyiniz.

Option Explicit

Sub Saatleri_Degistir()
    Dim Veri As Range, Son As Long
   
    Son = Cells(Rows.Count, 1).End(3).Row - 2

    For Each Veri In Range("D7:BK" & Son)
        If Veri.NumberFormatLocal = "ss:dd" Then Veri.Value = "N"
    Next
       
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[baykan_m]

Çok teşekkür ederim Korhan Bey. Tam istediğim gibi oldu. Ellerinize sağlık.

İyi çalışmalar

Saatler silinecek sanırım.

Deneyiniz.

Option Explicit

Sub Saatleri_Degistir()
    Dim Veri As Range, Son As Long
 
    Son = Cells(Rows.Count, 1).End(3).Row - 2

    For Each Veri In Range("D7:BK" & Son)
        If Veri.NumberFormatLocal = "ss:dd" Then Veri.Value = "N"
    Next
     
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub