Satır silme

[buseen]

Slm Arkadaşlar 150 tane müşteri sayfası var
müşteri sayfalarındaki 251 satırın A+B+C sutunlardaki yazılı olan icerini nasıl silebilirim toplu halde makro ile yapma şansım varmı TŞK

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub SIL()
Dim I, SAT As Integer
For I = 1 To Sheets.Count
For SAT = 1 To 3
Sheets(I).Cells(251, SAT) = ""
Next
Next
End Sub

 

[buseen]

SAYIN N.ZİYA BEY TEŞEKKÜR EDERİM


Sheets(I).Cells(251, SAT) = ""
(KODU AÇIKLAYA BİLİRMİSİN )

A+B+C SÜTÜN İCİNİ TEMİZLEDİ

 

[N.Ziya Hiçdurmaz]

Yanıt

Sheets(I)'Tüm sayfaları döngü içerisine alıyoruz
Cells(251, SAT) = "" ' 251.satırın A,B,C sütunlarına denk gelen hücrelerin içini boş göster