Seçilenlerin dışındakilerini silme

[izcik]

Merhaba

Örnek dosyadaki kelimelerden istediğimizi (örnek elma), Ctrl+H ile bulabiliriz, istediğimiz şekilde değiştirebiliriz hatta silebiliriz.

Seçtiğimizi değil de seçtiğimizin haricindekilerin (başlık satırı dışında) hepsini silmek ve-veya değiştirmek mümkün mü?

Her şey tek sütunda olsaydı kolay olurdu. Sıralama yapıp istediğimizi yapardık. Ama onlarca sütunda bu iş için makro gerektiğini düşündüm.

ornek.xlsx dosyasını indir - download

ornek.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[necati]

Merhaba,
İnternetten bulduğum şu kodu deneyin başlık satırı olarak [b1:d1] aralığı varsayıldı. Bu kısmı değiştirirsiniz.

Sub ClearAllExceptSelection()
' Seçilen hücreler ve belirli başlık dışındaki tüm kullanılan hücreleri temizler
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
If Intersect(Cell, Selection) Is Nothing And Intersect(Cell, [b1:d1]) Is Nothing Then
Cell.Clear
End If
Next Cell
End Sub

 

[izcik]

Merhaba,
İnternetten bulduğum şu kodu deneyin başlık satırı olarak [b1:d1] aralığı varsayıldı. Bu kısmı değiştirirsiniz.

Sub ClearAllExceptSelection()
' Seçilen hücreler ve belirli başlık dışındaki tüm kullanılan hücreleri temizler
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
If Intersect(Cell, Selection) Is Nothing And Intersect(Cell, [b1:d1]) Is Nothing Then
Cell.Clear
End If
Next Cell
End Sub

Teşekkür ederim
Bilgisayar başına geçince hemen deneyeceğim ve neticeyi bildireceğim

 

[izcik]

Merhaba,
İnternetten bulduğum şu kodu deneyin başlık satırı olarak [b1:d1] aralığı varsayıldı. Bu kısmı değiştirirsiniz.

Sub ClearAllExceptSelection()
' Seçilen hücreler ve belirli başlık dışındaki tüm kullanılan hücreleri temizler
Dim Cell As Range
For Each Cell In ActiveSheet.UsedRange
If Intersect(Cell, Selection) Is Nothing And Intersect(Cell, [b1:d1]) Is Nothing Then
Cell.Clear
End If
Next Cell
End Sub

Sayın Necati,

Bahsettiğim tam olarak bu değildi, ama paylaştığınız kodlar, benim olmasını istediğim kodlardan bile daha çok hoşuma gitti.

Güzel bir paylaşım yaptınız, teşekkür ederim, saygılar.

 

[necati]

Ben de teşekkür ederim, araştırmaya ve öğrenmeye vesile oldunuz.
Dilerim uzmanlarımız tam çözümü yazarlar.