- Katılım
- 17 Eki 2019
- Mesajlar
- 225
- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Arkadaşlar merhaba
Öğrenci Kulüp Evrakları İçin hazırladığım bir dosyada bazı alanların temizlenmesi lazım. Bunun için kullandığım kod:
Sub sil()
Sheets("KULÜP LİSTESİ").[B6:B50].ClearContents
Sheets("KULÜP LİSTESİ").[E6:N50].ClearContents
Sheets("OKUL").[A2:E65500].ClearContents
End Sub
Bu kodlara ekleme yaparak;
1- DEFTER 1 ve DEFTER 2 isimli sayfalarda (şifresiz Korumalı) korumalıyken kilidi açılmış hücrelere girilen veriler temizlenmeli,
2- Devamsızlık takibi yapılacak DEVAMSIZLIK 1, DEVAMSIZLIK 2, DEVAMSIZLIK 3 isimli sayfalarda öğrencinin gelmediği günlerin işaretlendiği (X) işaretleri silinmeli ama o hücrelere gün rakamları yazılmalı,
3- KULÜP LİSTESİ sayfasında (birleştirilmiş olduğundan herhal beceremedim) A3 ile G3 temizlenecek. Yardımcı olursanız sevinirim. Saygılar.
Öğrenci Kulüp Evrakları İçin hazırladığım bir dosyada bazı alanların temizlenmesi lazım. Bunun için kullandığım kod:
Sub sil()
Sheets("KULÜP LİSTESİ").[B6:B50].ClearContents
Sheets("KULÜP LİSTESİ").[E6:N50].ClearContents
Sheets("OKUL").[A2:E65500].ClearContents
End Sub
Bu kodlara ekleme yaparak;
1- DEFTER 1 ve DEFTER 2 isimli sayfalarda (şifresiz Korumalı) korumalıyken kilidi açılmış hücrelere girilen veriler temizlenmeli,
2- Devamsızlık takibi yapılacak DEVAMSIZLIK 1, DEVAMSIZLIK 2, DEVAMSIZLIK 3 isimli sayfalarda öğrencinin gelmediği günlerin işaretlendiği (X) işaretleri silinmeli ama o hücrelere gün rakamları yazılmalı,
3- KULÜP LİSTESİ sayfasında (birleştirilmiş olduğundan herhal beceremedim) A3 ile G3 temizlenecek. Yardımcı olursanız sevinirim. Saygılar.
