sayfa açılışında veriler temizlensin

[bkadri]

Arkadaşlar verilerimi kayıt ettiğim teslim.xls sayfası var, bu sayfadaki tüm verilerin
örnek.xls dosyasını açtığımda, tamamen temizlenmesini istiyorum.
Yardımlarınız için teşekür ederim.

 

[alpi]

Aşağıdaki satır aktif sayfada bulunan verilerin tamamını temizler.

Cells.ClearContents

 

[ocamsul]

alpi hocam buna istenilen satır ve sütun aralığı vermek için kodu nasıl düzenlemek lazım?

 

[alpi]

Sadece A sutünunu temizlemek için

Columns("A:A").ClearContents

Sadece 1.ve 2. satırı temizlemek için

Rows("1:2").ClearContents

Belli bir aralığı temizlemek için

Range("C9:G23").ClearContents

Sadece bir hücre için

Range("A1").ClearContents

 

[ANTALYA 01]

d

Merhaba Aşağıdaki Kodu nasıl birleştirebiliriz.Sizin örneklerinizle yaptım.İşimi görüyor fakat nasıl birleştirilir bu kod ?

Sub TEMİZLE()
Range("C3:E57").ClearContents
Range("J3:N17").ClearContents
Range("M20:M27").ClearContents
Range("M30:M33").ClearContents
Range("M36:M39").ClearContents
Range("M42:M57").ClearContents
End Sub

 

[offshoot]

Merhaba Aşağıdaki Kodu nasıl birleştirebiliriz.Sizin örneklerinizle yaptım.İşimi görüyor fakat nasıl birleştirilir bu kod ?

Sub TEMİZLE()
Range("C3:E57").ClearContents
Range("J3:N17").ClearContents
Range("M20:M27").ClearContents
Range("M30:M33").ClearContents
Range("M36:M39").ClearContents
Range("M42:M57").ClearContents
End Sub

birleştirmek derken?

 

[alpi]

Bunu birleştirmenizi gerektiren sebep ne anlayamadım ama farklı yerlerdeki hücreleri temizlemek için kullandığınız şekil en doğrusu zaten.

 

[seismic]

Buyrun bu da benden olsun Çalışma kitabının adı örnek.xls ise açılışta istenilen yerleri temizliyor,aksi halde herhangi bir işlem yapmıyor.


Private Sub Workbook_Open()
If ThisWorkbook.Name = ("örnek.xls") Then
Range("C3:E57").ClearContents
Range("J3:N17").ClearContents
Range("M20:M27").ClearContents
Range("M30:M33").ClearContents
Range("M36:M39").ClearContents
Range("M42:M57").ClearContents
End If
End Sub

 

[ANTALYA 01]

F

Sayın seismic

Valla aklımı okuyorsunuz akşam aklıma geldi bu soru sabah sorayım derken sabah formu bir açtım cevab gelmiş bile birleştirmek derken

Range("C3:E57").ClearContents
Range("J3:N17").ClearContents
Range("M20:M27").ClearContents

Range(''M20:M28:J3:N:17:C3:E57'') .ClearContents Bu şekilde demek istemiştim Yani Range bir defa kullanıp silincek satırları seçmek gibi

 

[seismic]

Sanırım aşağıdaki yol daha kolay gibi görünüyor.Öncelikle temizlenmesi gereken hücreler seçilmeli ve "myrange" olarak alan adı tanımlanmalı.Yada kod içerisinde de yapılabilir ama o zaman bir anlamı olmaz,eskisi gibi kalması daha mantıklı.

Private Sub Workbook_Open()
If ThisWorkbook.Name = ("örnek.xls") Then
Range("myrange").ClearContents
End If
End Sub

 

[bkadri]

sorun giderildi

çok sağolun arkadaşlar sayenizde hallettik.