Verilerdeki istenmeyen boşlukları Makro ile silmek

[dedenet]

Elimdeki listede bazı veriler var ve bu verilerin bazısının başında bazısının sonunda boşluk var
bazısının da iki kelime arasında çift boşluk var.
baş ve sondaki tek boşlukları ve aradaki çift boşlukları kırpacak silecek bir makro yazmak istiyorum.
Bu konuda yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Sub Kırp()
    Dizi = Range("A1").CurrentRegion.Value
    For i = LBound(Dizi, 1) To UBound(Dizi, 1)
        For k = LBound(Dizi, 2) To UBound(Dizi, 2)
            Dizi(i, k) = Trim(Dizi(i, k))
        Next k
    Next i
    Range("A1").Resize(UBound(Dizi), UBound(Dizi, 2)) = Dizi
End Sub

 

[dedenet]

Sub Kırp()
    Dizi = Range("A1").CurrentRegion.Value
    For i = LBound(Dizi, 1) To UBound(Dizi, 1)
        For k = LBound(Dizi, 2) To UBound(Dizi, 2)
            Dizi(i, k) = Trim(Dizi(i, k))
        Next k
    Next i
    Range("A1").Resize(UBound(Dizi), UBound(Dizi, 2)) = Dizi
End Sub

Ömer Bey teşekkür ederim. ancak benim asıl yapmak istediğim elimde makro ile hazırlanmış bir dosya var.
burada büyük küçük harf değiştirme için eklenti var.
Veri aralığı seçip Harf Dönüştür e tıklayınca seçenekler çıkıyor ve bu seçeneklere göre değişiklik yapılıyor.
Bu seçeneklere Case 5 i ben ekledim ve Boşluk Sil şeklinde bir ilave yapmak istedim, ancak olmadı.
Bu yazdığınız kodları bu eklentiye nasıl ekleyebilirim.

 

[Korhan Ayhan]

Hazırı var...

https://www.excel.web.tr/threads/bueyuek-kuecuek-harf-uygulamasi.74825/

 

[ÖmerFaruk]

Ömer Bey teşekkür ederim. ancak benim asıl yapmak istediğim elimde makro ile hazırlanmış bir dosya var.
burada büyük küçük harf değiştirme için eklenti var.
Veri aralığı seçip Harf Dönüştür e tıklayınca seçenekler çıkıyor ve bu seçeneklere göre değişiklik yapılıyor.
Bu seçeneklere Case 5 i ben ekledim ve Boşluk Sil şeklinde bir ilave yapmak istedim, ancak olmadı.
Bu yazdığınız kodları bu eklentiye nasıl ekleyebilirim.

Neden direkt bunu sormuyorsunuz?

 

[Haluk]

.....
Veri aralığı seçip Harf Dönüştür e tıklayınca seçenekler çıkıyor ve bu seçeneklere göre değişiklik yapılıyor.
Bu seçeneklere Case 5 i ben ekledim ve Boşluk Sil şeklinde bir ilave yapmak istedim, ancak olmadı.
.......

Revize edilmiş dosya ektedir....


.

 

[dedenet]

Neden direkt bunu sormuyorsunuz?

kendim uğraşmak istedim ancak olmayınca tekrar sormuş oldum

 

[dedenet]

Revize edilmiş dosya ektedir....


.

Teşekkürler Haluk bey.
makro biraz yavaş çalışıyor, sebebi ne olabilir sizce?

 

[1mak1mak]

Hazırı var...

https://www.excel.web.tr/threads/bueyuek-kuecuek-harf-uygulamasi.74825/

Hocam çok güzel çalışma çok önce paylaşılmış ama çok faydalı. Teşekkürler.
O konuya mı yazayım buraya mı bilemedim bir şey öğrenmek istiyorum.
Dosyayı eklenti olarak eklediğimde benim Sağ Klik de en altta Takvim uygulaması var
bu eklentiyi ekleyince o kayboluyor ikisini Sağ klik menü de birlikte çalıştırabilme imkanı olabilirmi.

 

[Haluk]

Teşekkürler Haluk bey.
makro biraz yavaş çalışıyor, sebebi ne olabilir sizce?

Valla kodu yazalı 17 yıl olmuş......bakımsızlıktan biraz hantallaşmış olabilir. Korhan Beyin önerdiği gibi daha iyi alternatiflere bakın isterseniz.

.

 

[Korhan Ayhan]

Paylaştığım linkteki dosyalarda bahsi geçen sağ tıklama revizesini yaptım. Deneyebilirsiniz.

 

[1mak1mak]

Paylaştığım linkteki dosyalarda bahsi geçen sağ tıklama revizesini yaptım. Deneyebilirsiniz.

Çok teşekkür ederim şimdi çok güzel tam istediğim gibi olmuş aklınıza sağlık.