veri silme

[erdenek]

Üstadlar ekteki dosyalarda yer alan 1.dosyada Veriler sayfası istatistik ve sınava girmeyenler sayfasında yer alan veri makro nasıl silebiliriz.2.dosyada sadece istatistik ve sınava girmeyenler sayfasındaki veriler silinecek.

 

[erdenek]

yok mu bir çözüm.

 

[Korhan Ayhan]

Ben tam olarak hangi veriyi neye göre silmek istediğinizi anlayamadım. Daha açık bir şekilde yazabilir misiniz?

 

[erdenek]

üstad 1.dosyada veriler sayfasında a3 aralığından başlayıp e sütunundaki son satır yine 1.dosyada sınava girmeyenler sayfasında a3 ten başlayıp d sütunun son satır ve istatistikler sayfasındaki tüm veriler silinecek.2.dosyada ise sınava girmeyenler sayfasında a3 ten başlayıp d sütunun son satır ve istatistikler sayfasındaki tüm veriler silinecek.

 

[Korhan Ayhan]

Aşağıdaki kodları kullanabilirsiniz.

1. Dosya için;

Sub SİL()
    With Sheets("VERILER")
        Son = .Cells(.Rows.Count, 1).End(3).Row
        .Range("A3:E" & Son).ClearContents
    End With
    
    With Sheets("Sınava Girmeyenler")
        Son = .Cells(.Rows.Count, 1).End(3).Row
        .Range("A3:D" & Son).ClearContents
    End With
    
    Sheets("ISTATISTIKLER").Cells.ClearContents
End Sub

2. Dosya için;

Sub SİL()
    With Sheets("Sınava Girmeyenler")
        Son = .Cells(.Rows.Count, 1).End(3).Row
        .Range("A3:D" & Son).ClearContents
    End With
    
    Sheets("ISTATISTIKLER").Cells.ClearContents
End Sub

 

[erdenek]

Aşağıdaki kodları kullanabilirsiniz.

1. Dosya için;

Sub SİL()
    With Sheets("VERILER")
        Son = .Cells(.Rows.Count, 1).End(3).Row
        .Range("A3:E" & Son).ClearContents
    End With
    
    With Sheets("Sınava Girmeyenler")
        Son = .Cells(.Rows.Count, 1).End(3).Row
        .Range("A3:D" & Son).ClearContents
    End With
    
    Sheets("ISTATISTIKLER").Cells.ClearContents
End Sub

2. Dosya için;

Sub SİL()
    With Sheets("Sınava Girmeyenler")
        Son = .Cells(.Rows.Count, 1).End(3).Row
        .Range("A3:D" & Son).ClearContents
    End With
    
    Sheets("ISTATISTIKLER").Cells.ClearContents
End Sub

ellerine sağlık üstad.