Metin icinden replace yapma

[Rainbows]

Merhabalar,

a1:a kolonunda x1,x2,x3 vb yerine d1,d2,d3 vb kolonundaki tutarların nasıl getirebilirim macro ile

örnek dosya ektedir.

yardımlarınız icin simdiden tesekkürler.

 

[hamitcan]

Aşağıdaki formülü deneyin.

=SOLDAN(A1;MBUL("x";A1;1)-2) & " " & D1

 

[mustafa1205]

Hamitcan Hocam rica etsem bana yukarıdaki formülünüzün birleştirme kısmı değilde diğer kısmı yani ("x";A1;1)-2) kısmının açıklamasını yapabilirmisiniz? Mantığını anlamaya çalışıyorum da. Kusura bakmayın.

 

[dEdE]

...a1:a kolonunda x1,x2,x3 vb yerine d1,d2,d3 vb kolonundaki tutarların nasıl getirebilirim macro ile..

Merhaba,
Sayın hamitcan yanıtlamış ama Makro ile istediğiniz için aşağıdaki kodu yazdım. Kod aslında Sayın hamitcan'ın yazdığı formülün makroya çevrilmiş halidir.

Sub SilEkle()
For i = 1 To Range("A" & Rows.Count).End(3).Row
    Cells(i, 1).Value = Left(Cells(i, 1).Value, _
        WorksheetFunction.Search("x", Cells(i, 1).Value) - 1) & Cells(i, 4).Value
Next i
End Sub

Sayın mustafa1205,
Sayın hamitcan şu anda online olmadığından(affına sığınarak) becerebildiğim kadarıyla ben açıklamaya çalışayım.
MBUL fonksiyonu VBA yardımında "Başlangıç_sayısıyla başlayarak belirli bir karakterin veya metin dizesinin ilk bulunduğu, karakterin sayısını MBUL verir. Bir karakterin veya metin dizesinin konumunu, başka bir metin dizesi içinde belirlemek için MBUL fonksiyonunu kullanın, böylece PARÇAAL veya DEĞİŞTİR fonksiyonlarını kullanarak metni değiştirebilirsiniz." şeklinde tanımlanmaktadır.

Formülün MBUL("x";A1;1)-2) kısmı, A1 hücresinde 1. karakterden başlayarak "x" karakterini arar ve "x" karakterinin kaçıncı karakter olduğunu bulur. "-2" ifadesi ise x karakterinin konumundan iki karakter geri(sol) tarafı ifade eder.
Soruya ekli örnek dosya üzerinden ifade edersek; formülün bu kısmı 37 değerini döndürür. "x" karakteri 39. karakter olup 39-2=37 olur.
Hoşçakalın.

 

[mustafa1205]

Sayın Dede çok teşekkür ederim açıklamanız için. Çok işime yarayan bir fonksiyon.Mantığını çözmeye çalışıyordum sayenizde halloldu. Çok teşekkür ediyorum.

 

[hamitcan]

Sayın Dede, açıklamalar için teşekkürler.

 

[Rainbows]

cevaplarınız icin tesekkürler,