bir veriyi R1C1 e dönüştürme

[feridici_genc]

merhaba,
ekte bir işçinin giriş çıkış bilgileri var. özel bir program verileri excel e attığında ekteki gibi bir tablo geliyor karşımıza. buradaki saat gibi görünen verileri üstüne gelip F2 ye basarak gerçek saate dönüştürüyorum. bu dönüştürme yi yapmazsam onu bir saat gibi görmüyor ve formül kullanamıyorum. makro kaydederek f2 ye basıldığında ne işlem olduğunu öğrenmek için bir deneme yaptım. ActiveCell.FormulaR1C1 gibi bir kod çıktı. sanırım veriler R1C1 değil. böyle 7 bin + satır var bunları tek tek f2 ye basarak yapamam. başka yolu varmıdır?

http://www.dosya.tc/server35/MxOLJe/Kitap2.xlsx.html

http://www.dosya.tc/server35/MxOLJe/Kitap2.xlsx.html

 

[Korhan Ayhan]

Aşağıdaki kodu deneyiniz.

Sub Saate_Çevir()
    Dim Alan As Range, Son As Long
    
    Application.ScreenUpdating = False
    
    Son = Cells(Rows.Count, 1).End(3).Row
    
    For Each Alan In Range("E3:J" & Son)
        If Alan.Value <> "" Then
            If IsNumeric(Left(Alan.Value, 1)) Then
                Alan.Value = CDate(Alan.Value)
            End If
        End If
    Next

    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[feridici_genc]

Teşekkür ederim. çok sağolun.