ayrı sayfalardaki belirtilşmiş verileri düğme ile silmek

[ah_excel_ah]

herkese hayırlı günler

ekte gönderdiğim dosyada son sayfadaki düğmeye tıkladığımda "ocak,şubat" sayfalarındaki kahverengi ile işaretlediğim satırların silinmesini sağlayacak bir kod varmı acaba? eğer yardımcı olursanız minnettar kalacağım. ocak ve şubat sayfaları örnek aslında aralık'a kadar bu sayfalardan var ama kodu öğrenebilirsem sanırım diğerlerine uygulayabilirim şimdiden teşekkür ediyorum üstadlarım...

 

[Ali]

Sub sabitlersayılarısil()
On Error Resume Next
For t = 1 To Sheets.Count
Sheets(t).Select
Sheets(t).Range("B4:E500,G4:J500").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23).ClearContents
Next
End Sub

 

[ah_excel_ah]

Cevabın için teşekkürler,
ama ben yine beceremedim error veriyor düğmeye uyguladığım zaman
" can't find project or library "
acaba bu ne anlama geliyor , kesin yanlış birşey yapıyorum ama nerde onu bulamadım.

sayın Ali sizden rica etsem gönderdiğim örnek dosyadaki düğmeye bu fonksiyonu uygulatıp bana geri gönderirmisiniz

 

[Ali]

Örneğiniz ektedir.

 

[ah_excel_ah]

syn Ali.

İlginize çok teşekkür ederim.

gönderdiğiniz dosyada Aynı hatayı veriyor
"For t = 1 To Sheets.Count"
bu satırda library hatası veriyor sanırım benim excelde bir problem var tekrar kurmayı deneyeceğim teşekkürler..

 

[Seyit Tiken]

Kodtaki hücre aralığını kendinize göre değiştirip deneyiniz.

Sub Düğme1_Tıklat()
For t = 1 To Sheets.Count
Sheets(t).[a1:b20] = Empty
Next
End Sub

 

[Ali]

düğmeye uyguladığım zaman
" can't find project or library "
acaba bu ne anlama geliyor , kesin yanlış birşey yapıyorum ama nerde onu bulamadım.

References (Başvurular) iletişim kutusunda MISSING: <başvuruadı> (EKSİK: <başvuruadı>) biçiminde işaretlenmiş bir başvuru içermektedir.

Eksik başvuruyu kaldırmak için şu adımları izleyin:
1.Veritabanınızı açın.
2.Visual Basic Düzenleyicisi'ni açmak için ALT+F11 tuş bileşimine basın.
3.Tools (Araçlar) menüsünde References'ı (Başvurular) tıklatın. 4.MISSING: <başvuruadı> (EKSİK: <başvuruadı>) biçiminde işaretlenmiş tür kitaplığının veya nesne kitaplığının onay kutusunu tıklatarak işaretini kaldırın.
Başvuruyu kaldırmanın farklı bir yolu, başvurulan dosyayı References (Başvurular) iletişim kutusunda belirtilen yola geri yüklemektir. Başvurulan dosya yeni bir konumdaysa, MISSING: <başvuruadı> (EKSİK: <başvuruadı>) başvurusunun işaretini kaldırın ve ardından yeni klasördeki dosyaya yönelik yeni bir başvuru oluşturun.

 

[Ali]

t değişkenini tanımlayarak girildiğinde sanırım sorununuz düzelecektir.

Private Sub CommandButton1_Click()
Dim t As Integer
On Error Resume Next
For t = 1 To Sheets.Count
Sheets(t).Select
Sheets(t).Range("B4:E18,G4:J18").SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants, 23).ClearContents
Next
End Sub