Sayfa Temizle makrosunda değişiklik

[vardar07]

Arkadaşlar Sitede bulduğum aşağıdaki kodlarla istenilen sonuç alınıyor fakat ikinci kırmızı ile belirtilen satırlarda değişiklik yapmak istedim ama olmadı.
Benim ricam Tüm sayfa değilde istenildiği kadar sütun temizlensin. Mesela A ile H arası.

Sub Baglan()
' Hadi Accesse Baglanalım.
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\xxxx\xxxx\xxxxx.mdb;User Id=admin;Password=;"
'_____________________________________________________________________________
' Baglantımızı gerçekleştirdik.Sıra Kayıtları okumaya geldi!
' Şimdi bu cümle de dedik ki ; Ey RST adlı arkadaş sen MAAS adlı tablodaki bütün verileri
' Bize Bulmalısın... Bu getirme işlemini ne ile sagladık ? * işareti ile
rst.Open " select * from Hareket", cnn, adOpenForwardOnly, adLockReadOnly
'_____________________________________________________________________________
' Verileri listelemeden önce tüm sayfayı temizleyelimki eski veriler kalmasın.
Cells.Select 
Selection.ClearContents
'_____________________________________________________________________________
 ' Şimdi ne yapıyoruz ilgili sayfada başlıklarımızı atıyoruz.
Range("A1").Value = "HrkTarihi"
Range("B1").Value = "VadeTarihi"
Range("C1").Value = "KullanımYeri"
Range("D1").Value = "HizmetTutarı"
Range("E1").Value = "TaksitTutarı"
Range("F1").Value = "Ödenen"
Range("G1").Value = "Taksitinci"
'_____________________________________________________________________________
' Ve geldik show kısmına hadi verileri listeleyelim hücrelere
i = 2 ' İ adlı bir değer atamasına 2 rakamı ile başlamasını emrediyoruz.Neden?
      ' Çünkü 1.sırada başlıklarımız var.
 
Do Until rst.EOF = True ' Buradaki amaç nedir?  Eğer Kayıtlar varsa listele yoksa listeleme
Range("A" & i).Value = rst!HrkTarihi ' Maas Adlı tablodan git Adı adlı alandaki verileri listele
Range("B" & i).Value = rst!VadeTarihi 'Maas Adlı tablodan git soyadı adlı alandaki verileri listele
Range("C" & i).Value = rst!KullanımYeri ' ""
Range("D" & i).Value = rst!HizmetTutarı  ' ""
Range("E" & i).Value = rst!TaksitTutarı ' "TaksitTutarı"
Range("F" & i).Value = rst!Ödenen
Range("G" & i).Value = rst!Taksitinci
i = i + 1  ' Burada bir sonraki hücreye geç diyoruz
rst.MoveNext ' Burada bir sonraki kayıda geç diyoruz
Loop ' Kayıtlara devam ediyoruz
rst.Close ' Artık Kayıtlarımızla işlemlerimiz bitti. RST adlı arkadaşa veda ediyoruz
cnn.Close ' E Kayıtlarla işlerimiz bittigine göre Baglantıyıda sonlandırabiliriz.
End Sub

[COLOR=red]Cells.Select 'sayfada a'dan h'yekadar silecek[/COLOR]
[COLOR=red]Selection.ClearContents[/COLOR]

 

[kuzey_yolcu]

Range("A1:H32000").Select
Selection.ClearContents

A1 hücresinden H32000 satırına kadar olan tüm sayfayı temizler. Aralıklarını istediğiniz gibi değiştirebilirsiniz.

 

[vardar07]

Range("A1:H32000").Select
Selection.ClearContents

A1 hücresinden H32000 satırına kadar olan tüm sayfayı temizler. Aralıklarını iztediğiniz gibi değiştirebilirsiniz.

Sağ olasın. Teşekkürler.

 

[kuzey_yolcu]

Sağ olasın. Teşekkürler.

Rica ederim. Kolay gelsin.

 

[zafer]

Merhaba

Sn.Kuzey_yolcu arkadaşımızın kodlarına alternetif olarak.
B ile F arasını silmek istiyorum derseniz

Gelen giriş kutusuna B:F yazarsanız B ile F arasını siler
seçim size bağlı.

c = InputBox("sutun isimlerini giriniz ? D:F")
    Columns(c).ClearContents

 

[vardar07]

Merhaba

Sn.Kuzey_yolcu arkadaşımızın kodlarına alternetif olarak.
B ile F arasını silmek istiyorum derseniz

Gelen giriş kutusuna B:F yazarsanız B ile F arasını siler
seçim size bağlı.

c = InputBox("sutun isimlerini giriniz ? D:F")
    Columns(c).ClearContents

Alternatif için ve ilginize teşekkürler.