[ÇÖZÜLDÜ] İki karekter arasındaki cümleyi kesip almak

[ECYavuz]

Günaydın arkadaşlar,

Al.fat. : A-610699/SEM METAL VE PLASTİK SAN.TİC.LTD.ŞTİ\

şeklindeki kayıtlarda /..ve... \ arasındaki cümleyi nasıl alabiliriz.

Daha açık bir şekilde yazmam gerekirse;

Excel sayfasında "F" sütununda bir hücreye tıkladığımda; "K" sütununda bulunan üstteki örnekteki gibi bir bilgiden "/" ve "\" karekterlerinin arasında kalan alan "F" sütununda o hücreye kopyalansın istiyorum.

Saygılarımla....

 

[ECYavuz]

Bilgi olsun diye ekleyeyim; F ve K sütunları aynı satır için söylemiştir. Yani aynı satırdaki K sütununda bulunan bir bilginin iki karekter arasında kalan kısmı, aynı satardaki F sütununa kopyalanacaktır.

Saygılarımla..

 

[Ali]

A1 hücresinde

Al.fat. : A-610699/SEM METAL VE PLASTİK SAN.TİC.LTD.ŞTİ\

olsun.

B1 hücresine

=PARÇAAL(A1;BUL("/";A1)+1;TOPLA(BUL({"/";"\"};A1)*{-1;1})-1)

yazıp denermisiniz.

 

[ECYavuz]

Üstadım sağolun ama bir üst satırı alıyor sanırım.

Ve en üst satırda da hata veriyor

 

[uzmanamele]

merhaba
buraya bakınız
http://www.excel.web.tr/showthread.php?t=55047

 

[ECYavuz]

Selamlar;

=SAĞDAN(K2;UZUNLUK(K2)+1-BUL("/";YERİNEKOY(K2;" ";" ";UZUNLUK(K2)-UZUNLUK(YERİNEKOY(K2;" ";""))))-1)

formülünde kesilen kısmın sonunda bir karekter fazla kalıyor...

 

[Korhan Ayhan]

Selamlar,

Ali beyin örnediği formülü test ettiğim ve doğru sonucu veriyor. Sanırım siz uygularken bir hata yaptınız. Formüldeki A1 yazan yerleri K2 yaparak denermisiniz.

 

[kulomer46]

Ekli dosya isteklerinize uygun hazırlanmıştır.

 

[ECYavuz]

Selamlar,

Ali beyin örnediği formülü test ettiğim ve doğru sonucu veriyor. Sanırım siz uygularken bir hata yaptınız. Formüldeki A1 yazan yerleri K2 yaparak denermisiniz.

Üstadım hata yapmadım zaten verdiğim örnekte de K2 yapılmış şekli var..

Al.fat. : A-18498/RAHMET AMBALAJ GIDA TEM.ÜR.SAN.TİC.LTD.ŞTİ\

örneğinde;

=SAĞDAN(K2;UZUNLUK(K2)+1-BUL("/";YERİNEKOY(K2;" ";" ";UZUNLUK(K2)-UZUNLUK(YERİNEKOY(K2;" ";""))))-1)

formülü;

RAHMET AMBALAJ GIDA TEM.ÜR.SAN.TİC.LTD.ŞTİ\

sonucunu veriyor. Yani sondaki "\" işaretini de alıyor.

 

[ECYavuz]

Teşekkür...

Ekli dosya isteklerinize uygun hazırlanmıştır.

Sayın kulomer çok teşekkürler. Tam istediğimi yapıyor.

Tüm arkadaşlara ve ilgilenenlere teşekkürler...

Saygılarımla...

 

[Ali]

Korhan Beyde denemiş bende denedim hata vermedi.

Dosya ektedir.

 

[kulomer46]

Ben teşekkür ederim, faydalı olabildi isek ne mutlu bize

 

[ECYavuz]

Korhan Beyde denemiş bende denedim hata vermedi.

Dosya ektedir.

Evet üstadım, teşekkürler ben bu arada Sayın Uzmanamelenin verdiği link bakmıştım da... İlginize çok teşekkür ederim, sorunsuz çalışıyor formülünüz...

 

[Ferhat Pazarçevirdi]

Bir alternatif de benden olsun

Makrolu çözüm ve Regular Expression kullanımını ilginizi çekerse inceleyebilirsiniz.

K2:K8 aralığı; Firma isimlerinin bulunduğu alan, F2:F8 de çift tıklama yapılacak (verilerin ayrıştırılacağı) alan olarak belirlenmiştir. (Bu alanları istediğiniz gibi genişletebilirsiniz) Hal böyleyken; aşağıdaki kodları verilerin bulunduğu sheet'in kod sayfasına kopyalayınız.

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    
    Cancel = True
    
    If Not Intersect(Target, Range("F2:F8")) Is Nothing Then
        Target = Deger(Cells(Target.Row, "K"))
    Else
        Cancel = False
    End If
End Sub
'-------------------------------------
Private Function Deger(rg As Range)
    Dim RegEx As Object
    Set RegEx = CreateObject("vbscript.regexp")
    
    With RegEx
        .MultiLine = False
        .Global = True
        .IgnoreCase = False
        .Pattern = "\/([\d\w\ \/\.\ç\Ç\ı\İ\ö\Ö\ş\Ş\ü\Ü]+)\\"
    End With
    
    On Error Resume Next
    
    If Err > 0 Then
        Deger = ""
    Else
        Deger = RegEx.Replace(RegEx.Execute(rg.Text).Item(0).Value, "$1")
    End If
    
    On Error GoTo 0
    
    Set RegEx = Nothing
End Function

 

[tahsinanarat]

Bir seferde hepsi getirilemezmi?

 

[Ferhat Pazarçevirdi]

Değer adlı function ile birlikte, aşağıdaki makroyu bir modüle kopyalayın ve makroyu çalıştırın.

Sub Istenen_Kelimeyi_Ayir()
    Dim i As Integer
    For i = 2 To 6
        Cells(i, "F") = Deger(Cells(i, "K"))
    Next i
End Sub

Not : Function'ın .Pattern kısmını şu şekilde değiştirirseniz, kapsamı biraz daha genişler ...

        .Pattern = "\/([\d\w\ \/\\\.\,\-\ç\Ç\ğ\Ğ\ı\İ\ö\Ö\ş\Ş\ü\Ü]+)\\"

 

[ECYavuz]

Ferhat hocam yine döktürmüşsünüz, ben işimi görmüş olmama ramen ilginize ve emeğinize kocaman bir teşekkür...

 

[ECYavuz]

Ferhat Hocam;

.Pattern = "\/([\d\w\ \/\\\.\,\-\ç\Ç\ğ\Ğ\ı\İ\ö\Ö\ş\Ş\ü\Ü]+)\\"

Paterndeki işaretlerin kodda işlevi ve kullanımı nasıl olur. Yani / yerine [ yi nasıl aratırız..

 

[Ferhat Pazarçevirdi]

Ferhat Hocam;
Paterndeki işaretlerin kodda işlevi ve kullanımı nasıl olur. Yani / yerine [ yi nasıl aratırız..

Şöyle ki;

Pattern'de yazan bir sürü parametre var. Aslen ilk "/" işareti ile son "\" işaretinin arasında kalan kelimeleri bulmak için tasarlandı... Ama siz Pattern'de kırmızı ile gösterdiğim yerleri, değiştirirseniz "[" ve "]" işaretleri arasında kalan kelimeleri de bulabilirsiniz.

.Pattern = "\/([\d\w\ \/\\\.\,\-\ç\Ç\ğ\Ğ\ı\İ\ö\Ö\ş\Ş\ü\Ü]+)\\"

yani son şekli şöyle olacak ...

.Pattern = "\[([\d\w\ \[\].\,\-\ç\Ç\ğ\Ğ\ı\İ\ö\Ö\ş\Ş\ü\Ü]+)\]"

 

[ECYavuz]

Üstadım geç kaldım çok teşekkürler, bu bilgi çok hora geçti sağolun.