Tarih Formatındaki saatin kaldırılması

[Mesafe]

Kullandığımız bir paket programın excel cıktısında Tarih ile birlikte aynı hücre icerisinde saat de cıkıyor. Bir makro yardımıyla bu saatleri aynı sütun icerisinde (ek sütun kullanmadan) temizleyip sutunda sadece tarihlerin kalmasını istiyorum.

ilgi ve yardımlarınız icin teşekkürler.

 

[Necdet]

Merhaba,

Farklı yöntemlerde olabilir.

Sub SaatSil()
 
    Dim i   As Long
    
    For i = 3 To Cells(Rows.Count, "D").End(3).Row
        Cells(i, "D") = DateSerial(Year(Cells(i, "D")), Month(Cells(i, "D")), Day(Cells(i, "D")))
    Next i
    
End Sub

 

[Ziynettin]

Sub mesafe()
Dim i As Integer
For i = 2 To Range("D" & Rows.Count).End(3).Row
Cells(i, 4) = Format(Cells(i, 4), "dd.mm.yyyy")
Next i
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[Merhum İdris SERDAR]

.

Alternatif:

Sub Tarih()
Dim aln As Range
Dim hcr As Range
Set aln = Range("d3:d143")
For Each hcr In aln
hcr = Int(hcr)
Next hcr
aln.NumberFormat = "dd.mm.yyyy"
End Sub

.

 

[Mesafe]

Ilgi gosterip emek harcayan degerli ustadlara tesekkur ederim.