cümle içindeki istenilen kısımları alma hk.

[chngrcn]

forumun değerli üyeleri.

3 adet textbox'ımız var diyelim.

textbox1 içine ;

1.veri:

ÖPlakaÇ34BE7534Ö;PlakaÇ ÖTescılBelgeSerıNoÇCH370608Ö;TescılBelgeSerıNoÇ

2.veri:

ÖPlakaÇ34ABC061Ö,PlakaÇ ÖTescılBelgeSerıNoÇDE329115Ö,TescılBelgeSerıNoÇ

gerek 1.veri, gerekse 2.veriyi textbox1 içine yazdığımızda buton yardımı ile yapmasını istediğim sonuç şu şekilde olmalı

1.veri için istenilen sonuç;

textbox2.text = 34BE7534

textbox3.text =CH370608


2.veri için istenilen sonuç;

textbox2.text = 34ABC061

textbox3.text =DE329115

not: ( plaka değeri sayısı artabilir yada azalabilir örn: 34A2020, 34AB2525, 34ABC3030, 34POY23... gibi)

(mid, parçaal yöntemi işime yaramayacaktır. bilginize )

yardımlarınız için teşekkürler.

örnekdosyaburada

CİHANGİR CAN

 

[askm]

Bul yöntemini denediniz mi? Örnek dosya eklerseniz çözüme yardımcı olur.

 

[chngrcn]

örnek dosya ekledim

 

[askm]

Mid kodu işe yarıyormuş bakın.

Private Sub CommandButton1_Click()
Kelime = TextBox1.Text
Plaka = Split(Kelime, "ÖPlakaÇ")
TextBox2.Text = Mid(Plaka(1), 1, InStr(1, Plaka(1), "Ö") - 1)
Plaka2 = Split(Plaka(1), "TescılBelgeSerıNoÇ")(1)
TextBox3.Text = Mid(Plaka2, 1, InStr(1, Plaka2, "Ö") - 1)
End Sub

 

[Zeki Gürsoy]

örnek dosya ekledim

İçinde farklı bir şey var mı diye bakacaktım. Örnek dosya boş...

Regular Expression (düzenli ifadeler) konusunu araştırın.

http://www.excel.web.tr/f165/

.

 

[chngrcn]

"askm "çok teşekkür ederim. eline sağlık.

 

[askm]

Rica ederim. Kolay gelsin.

 

[Ömer BARAN]

Merhaba.

Kod cevabı verilmiş.

Ben de benzer bir şeyi sayfada yapmak isterseniz diye formül ile cevap vereyim ( Elbette PARÇAAL işlevi kullanılarak ).
Veri A1'de ise; ilk formül 1'nci plakayı, 2'nci formül 2'nci plakayı verir.
.

=[COLOR="red"]PARÇAAL[/COLOR]([B][COLOR="Blue"]A1[/COLOR][/B];[COLOR="Red"]BUL[/COLOR]("Ç";[B][COLOR="Blue"]A1[/COLOR][/B])+1;[COLOR="Red"]BUL[/COLOR]("|";[COLOR="Red"]YERİNEKOY[/COLOR]([B][COLOR="Blue"]A1[/COLOR][/B];"Ö";"|";2))-[COLOR="Red"]BUL[/COLOR]("Ç";[B][COLOR="Blue"]A1[/COLOR][/B])-1)
=[COLOR="red"]PARÇAAL[/COLOR]([B][COLOR="blue"]A1[/COLOR][/B];[COLOR="red"]BUL[/COLOR]("NoÇ";[B][COLOR="blue"]A1[/COLOR][/B])+3;[COLOR="red"]BUL[/COLOR]("|";[COLOR="red"]YERİNEKOY[/COLOR]([B][COLOR="blue"]A1[/COLOR][/B];"Ö";"|";4))-([COLOR="Red"]BUL[/COLOR]("NoÇ";[B][COLOR="Blue"]A1[/COLOR][/B])+3))

 

[chngrcn]

TextBox2.Text = Mid(Plaka(1), 1, InStr(1, Plaka(1), "Ö") - 1)
Plaka2 = Split(Plaka(1), "TescılBelgeSerıNoÇ")(1)
TextBox3.Text = Mid(Plaka2, 1, InStr(1, Plaka2, "Ö") - 1)

sayın "askm" kodun bu satırlarındaki mantığı anlatabilir misiniz ?
kod burada tam olarak ne yapıyor ? açıklayabilirseniz çok aydınlanırım.. saygılar.
(sonuç olarak istediğimi yapıyor ama mantığını anlamaya çalışıyoruım)