DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
A1:B3 arasında değerleri siler.Formüllere dokunmaz.Formülün, tablodaki kuralların bozulmaması çok önemli.
Dim hcr As Range
For Each hcr In Range("A1:B3")
If Not hcr.HasFormula Then hcr.ClearContents
Next
Hepsini seçti, aralarından seçmek istiyorum.Sayfanızdayken "F5" tuşuna basın.(Klavye Fonksiyon tuşu)
"Özel Git" seçin
"Sabitler" (kutucuklardan istedikleriniz) seçin.
Formül haricindeki hücreler seçili olacaktır.Tamam'ı tuşlayın.
Delete tuşuna basın,hepsi silinir.
Not:Hatalı işlem yaparsanız ; Ctrl+Z ile işlemi geri alabilirsiniz.
Nereye yazacağım?A1:B3 arasında değerleri siler.Formüllere dokunmaz.
Kod:Dim hcr As Range For Each hcr In Range("A1:B3") If Not hcr.HasFormula Then hcr.ClearContents Next
Teşekkür ederimMerhaba, alternatif olsun.
Aşağıdaki işlemi yaptığınızda, makrosuz olarak istediğiniz işlem gerçekleşecektir.
Sayfa aktif iken: F5 >> ÖZEL GİT >> SABİTLER >> TAMAM >> DELETE.
.
Rica ederim.Zamanınızı aldığım için üzgünüm, çok basitmiş. Teşekkürler