1. SATIR HARİÇ SAYFAYI TEMİZLEME

[BBBBuRaKKKK]

Merhabalar,

1. satır hariç sayfadaki tüm hücreleri silen bir kod istiyorum bu mümkün mü ?

Teşekkürler.

 

[erd5334]

öncelikle büyük harfle konu açmanın yasak olduğunu belirteyim. istediğiniz kod aşağıda kendinize göre düzenleyin.

Range("A2:e300").Select
Selection.Delete Shift:=xlUp
Range("A2").Select

 

[BBBBuRaKKKK]

Yeniyim bilmiyordum. Teşekkür ederim

 

[Necdet]

Alternatif :

    Dim tbl As Range
    Set tbl = Range("A1").CurrentRegion
    tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).ClearContents

 

[BBBBuRaKKKK]

Alternatif :

    Dim tbl As Range
    Set tbl = Range("A1").CurrentRegion
    tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).ClearContents

butonu ben sayfa 1 e koyacağım sayfa 2 deki veileri silmek için hangi kodu eklemem gerekiyor acaba ?

 

[Necdet]

Sub Sayfa2Sil()

    Dim tbl As Range
    Set tbl = Sayfa2.Range("A1").CurrentRegion
    tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, tbl.Columns.Count).ClearContents
    
End Sub

 

[BBBBuRaKKKK]

Set tbl = Sayfa2.Range("A1").CurrentRegion

tam burada hata veriyor Necdet Bey

 

[BBBBuRaKKKK]

Worksheets("Sayfa2") böyle yaparak düzelttim teşekkür ederim

 

[Necdet]

Worksheets("Sayfa2") böyle yaparak düzelttim teşekkür ederim

Olay bu zaten

Eğer resimdeki gibi kullanırsanız, Sayfa2. nesnesinin adının ne olduğu önemli olmaz.