trim(left...) problemi

[gokmensen]

forumda aradim ama bulamadim.

kolondaki hucrelerde "abcdefg - hijkllmn" seklinde degisik uzunlukta isimler var. trim yaparak abcdfg ve hijklmn seklinde farkli 2 hucreye bunlari trimlemek istiyorum. Uzunluklar farkli ama ortak yanlari aralarindaki - isareti. trim (left...) ve trim(right...) seklindeki komutu hem excel formulu olarak, hem de macro olarak ogrenmek istiyorum.

hucreye bak, "-" dan soldakileri trimle al, "-" dan sagdakileri trimle al seklinde.

elleriniz dert gormesin.

 

[İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=24184

Buradaki dosyayı inceleyin.

.

 

[gokmensen]

incelemeye basliyorum

tekrar ediyorum:

elleriniz dert gormesin...

Not: iyi ki bu site var...

 

[gokmensen]

'=LEFT(A151;FIND(" -";A151;1)) seklideki formul icin yazdigim makro formulu ( Sheets("DR").Range("G" & i).Value = Trim(Left(Sheets("DR").Range("A" & i).Value, Find(" -", Sheets("DR").Range("A" & i).Value, 1))))

ve

'=TRIM(RIGHT(A148;LEN(A148)-FIND("-";SUBSTITUTE(A148;" ";"*";LEN(A148)-LEN(SUBSTITUTE(A148;" ";"")))))) formulu icin yazdigim makro formulu (
Sheets("DR").Range("G" & i).Value = Trim(Right(Sheets("DR").Range("A" & i).Value, Len(Sheets("DR").Range("A" & i).Value) - Find("-", Substitute(Sheets("DR").Range("A" & i).Value, " ", "*", Len(Sheets("DR").Range("A" & i).Value) - Len(Substitute(Sheets("DR").Range("A" & i).Value, " ", ""))))))) calismiyor. cunku find ve substitute lari dogru kuramadim sanirim.

Yardimci olabilecek arkadas var mi?
Tesekkurler

 

[Necdet]

Örnek dosya ekleyip ne yapmak istediğinizi anlatırmısınız o dosya içinde.
Anlaşılması daha rahat olur.

 

[gokmensen]

Sayin Necdet Bey,
Ekli Dosyanin A kolonundaki iki ismi ayirmak ve B ve C kolonlarina yazdirmak islemini sayin YURTTAS in yonlendirmesiyle inceledigim dosya sayesinde yapabildim.
Ama bunu makro icinde yaptigim dongu ile beraber kullanamadim.
B1 ve C1 hucrelerindeki 2 formulu makro ile yazabilmek istiyorum. Yazabilirseniz, birseyler daha ogrenmis olacagim icin tesekkur ederim.

 

[Necdet]

Diğer mesajınızda benzer bir çözüm sundum, onu inceleyiniz.

http://www.excel.web.tr/showthread.php?p=258461#post258461

 

[abdi]

JOHN WALKENBACH'IN YAZDIĞI FONKSİYON

 Function ExtractElement(Txt, n, Separator) As String

    Dim Txt1 As String, TempElement As String
    Dim ElementCount As Integer, i As Integer
    
    Txt1 = Txt
    If Separator = Chr(32) Then Txt1 = Application.Trim(Txt1)
    
    If Right(Txt1, 1) <> Separator Then Txt1 = Txt1 & Separator
    
    ElementCount = 0
    TempElement = ""
    
    For i = 1 To Len(Txt1)
        If Mid(Txt1, i, 1) = Separator Then
            ElementCount = ElementCount + 1
            If ElementCount = n Then
                ExtractElement = TempElement
                Exit Function
            Else
                TempElement = ""
            End If
        Else
            TempElement = TempElement & Mid(Txt1, i, 1)
        End If
    Next i
    ExtractElement=""	
End Function

Sub metni_bolme()
    Dim son As Integer
    son = [a65536].End(3).Row
    For i = 1 To son
     Cells(i, 2) = Module1.ExtractElement(Cells(i, 1), 1, "-")
     Cells(i, 3) = Trim(Module1.ExtractElement(Cells(i, 1), 2, "-"))
    Next
End Sub

bu kodları bir module kopyalayıp metni bolme makrosunu bir butona bağlayın

dosyanızı yedekledikten sonra makroyu çalıştırınız.