MAKRO İLE KIRP FORMÜLÜ

[musa yüksel]

Merhaba ,
forum da baktım istediğim şekilde formül bulamadım , uyarlayamadım da

Butona basınca A5:A1500 aralığında kırp formülü çalışmasını istiyorum
muhasebe programından çektiğim verilerde sağda 7-8 tane boşluk oluyor onlardan kurtulmak istiyorum

KIRP()

 

[Necdet]

Merhaba,
Deneyiniz.

Sub KIRP()

Dim rng As Range, _
    rn  As Range

Application.ScreenUpdating = False
Set rng = Range("A5:A1500")

For Each rn In rng
    rn = Replace(Application.WorksheetFunction.Trim(rn), Chr(160), "")
Next rn

Application.ScreenUpdating = True

End Sub

 

[musa yüksel]

Merhaba,
Deneyiniz.

Sub Kırp()

Dim rng As Range, _
    rn  As Range

Application.ScreenUpdating = False
Set rng = Range("A5:A1500")

For Each rn In rng
    rn = Application.WorksheetFunction.Trim(rn)
Next rn

Application.ScreenUpdating = True

End Sub

Yardımlarınız için teşekküler

Sub kırp()
Columns("A").Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart
End Sub

bu makro ile işimi çözdüm

lazım olacak arkadaşlar kullanabilir

 

[Necdet]

Merhaba,
Sözünü ettiğiniz makro yani bul ve değiştir çift sözcüklerin arasındaki boşluğu da sildiği için birleştirir.
Yani Mustafa Kemal ATATÜRK olur size MustafaKemalATATÜRK

 

[Necdet]

Merhaba,
Ekli dosyada uyguladığınız kodu dener misiniz?

 

[Korhan Ayhan]

Necdet Bey,

Yorumunuzda kesinlikle haklısınız..

Belki arkadaşımızın listesinde bahsettiğiniz şekilde birden fazla kelimeden oluşan veri yoktur. O sebeple paylaştığı kodla doğru sonucu almış olabilir.

 

[Necdet]

Necdet Bey,

Yorumunuzda kesinlikle haklısınız..

Belki arkadaşımızın listesinde bahsettiğiniz şekilde birden fazla kelimeden oluşan veri yoktur. O sebeple paylaştığı kodla doğru sonucu almış olabilir.

Korhan bey, ben de arkadaşımızın geliştirdiği kodların işe yaradığını düşünüyorum ama , işin bir de ama'sı var, onu belirtmeye çalıştım, hepimizin yaptığı gibi.

 

[musa yüksel]

Merhaba,
Sözünü ettiğiniz makro yani bul ve değiştir çift sözcüklerin arasındaki boşluğu da sildiği için birleştirir.
Yani Mustafa Kemal ATATÜRK olur size MustafaKemalATATÜRK

benim uyguladığım tek kelimelik hücreler olduğu için çalıştı, bu makro yu tek kelimeliklerde kullanabilirsiniz

teşekkürler