Tarih Silme

[lapot]

Arkadaslar , ekdeki dosyadaki A stunundaki tarihleri nasil temizleriz baska hic birseye dokunmadan?

saygilar

 

[emrexcel123]

buyrun

bu kodu dener misiniz >>
Sub delete()
son = [a65536].End(3).Row
For x = 1 To son
sayi = WorksheetFunction.IsNumber(Cells(x, 1))
If sayi = True Then
Cells(x, 1).ClearContents
End If
Next
End Sub

 

[Orion1]

merhabalar.
Aşağıdaki kodlar A sütununda tarih bulunan hücreleri temizler.

Sub tarih_sil()
For i = 1 To Cells(65536, "A").End(xlUp).Row
    If IsDate(Cells(i, "A").Value) Then
        Cells(i, "A").ClearContents
    End If
Next
MsgBox "Tarihler Temizlendi..", vbOKOnly
End Sub

 

[emrexcel123]

delete

Sub tarih_sil()
For i = 1 To [a65536].End(3).Row
If IsDate(Cells(i, 1)) Then
Cells(i, 1).ClearContents
End If
Next
MsgBox "Tarihler Temizlendi..", vbOKOnly
End Sub
ya da boş bir modulde "is" yazıp "ctrl + j" tuşuna basarsan istediğin kriterlere uygun verileri silebilirsin örnekler >>
.....................
IsArray = dizi
IsDate = tarih
IsEmpty = boşsa
IsError = hata
IsNumeric = rakam
IsNull = boş,geçersiz
IsMissing = eksik.hatalı gibi...
.....................

 

[Necdet]

Benim kodlarda şöyleydi :

Sub Tarih_Sil()
For i = [A65536].End(3).Row To 1 Step -1
If IsDate(Cells(i, "A")) = True Then Cells(i, "A").ClearContents
Next i
End Sub

Eğer tarih olan satırı silmek isteseydiniz :

Sub Tarih_Sil()
For i = [A65536].End(3).Row To 1 Step -1
[B]If IsDate(Cells(i, "A")) = True Then Rrows(i).Delete[/B]
Next i
End Sub

 

[schworse]

Sezar Seni Çok merak ediyorum her olaya bir defa bakarak anlıyor ve çözüyorsun gerçekten pes yani benim bir puantaj dosyası hazılamam gekiyor yardımcı olabilecek arkadaş var mı excel de çok programlar yaptım fakat makrom biraz zayıf olduğundan desteğe ihtiyacım var ben akşam saat 7 de işten çıkıyorum yarın iş çıkışı birkaç tane program konusu açacağım birincisi
puantaj ikincisi stok kontrol prg. 3.sü rehber yardımcı olabilirseniz şimdiden teşekkür ederim iyi akşamlar

 

[Korhan Ayhan]

Selamlar,

Eğer A sütunundaki veriler arasında tarihlerin dışında başka sayısal veri yoksa aşağıdaki koduda kullanabilirsiniz.

Sub TARİH_SİL()
    On Error Resume Next
    Columns("A:A").SpecialCells(xlCellTypeConstants, 1).ClearContents
End Sub