Kırp Fonksiyonu

[yemeni]

Merhaba ,


Elimde bir sayfada "fiyat " diğer sayfada " sorunlu liste " diye

isimlendirdiğim iki liste var fiyatları reçetedeki malzemelerle karşılaştırma

işleminde arkadaşlar yardımcı oldu ama reçete listesindeki bazı kalemleri

formül görmüyor , kırp fonksiyonu ile formülün boş gördüğü reçete listesini düzenlememe yardımcı olur musunuz ?

 

[Ali]

Sn yemeni.Eğer dosyanızı eklerseniz ilgilenecek diğer arkadaşlarımda daha çabuk çözüm üretebilirler.

 

[yemeni]

bahsi gecen dosyam

:yardim:

söz konusu calısma dosyamı ekleyebildim sanırım

 

[Ali]

Bir modüle aşağıdaki kodları ekleyin.

Sub boşlukkırp()
Dim cel As Range, rng As Range, i As Long, myVal As String, tmpVal As String
Set rng = Selection
For Each cel In rng
myVal = cel.Value
cel.Formula = "=TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE( " & Chr(34) & _
myVal & Chr(34) & ",""Jr"",""""),""Sr"",""""),""III"",""""),"","",""""))"
tmpVal = cel.Value
For i = Len(tmpVal) To 1 Step -1
If Mid(tmpVal, i, 1) = Chr(32) Then
cel.Value = Right(tmpVal, Len(tmpVal) - i)
Exit For
End If
Next i
Next cel
End Sub

Sayfa2'deki A5:A6291 olan kısmı seçip kodları çalıştırın.

 

[yemeni]

bu işlemi nasıl yapacağım

İlginiz için teşekkür ederim ama verdiğiniz işlemi nasıl yapacağım hakkında

hiç bir fikrim yok .:roll: Nereye ekleyeceğim , nasıl ?

 

[Ali]

Alt+F11 ile VBA düzenleyici açın yada Araçlar-Makro-Visual Basic düzenleyiciyi açın.Insert-Module kısmını tıklayın.Module1 isminde yeni bir modülünüz olacak.Kodları buraya yapıştırın.
Sayfa2'deki A5:A6291 olan kısmı seçin.Run yada F5 komutu ile kodları çalıştırın.

 

[yemeni]

çok teşekkür ederim

bu bilgi sayesinde hem bana çok uzak görünen bir şeyi yapmama hem de işimi inanılmayacak kadar kolaylaştırmama yardım ettiniz , çok teşekkür ederim.