hücrenin içinden veri al

[tatar7]

sevgili üstadlar; örnekteki dosyada da belirttiğim gibi hücrenin içinde ki uzun metinden bir kısmını çıkarıp farklı bir sutuna yazdırmam gerekiyor Yol gösterecek üstatlara şimdiden teşekkür ediyorum

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub sayilarial()
For a = 3 To [c65536].End(3).Row
bul = InStr(1, Cells(a, "c"), "GELIRI")
bul1 = InStr(1, Cells(a, "c"), "BSMV")
If bul > 0 Then Cells(a, "c") = Val(Right(Cells(a, "c"), Len(Cells(a, "c")) - bul - 14))
If bul1 > 0 Then Cells(a, "e") = Val(Right(Cells(a, "c"), Len(Cells(a, "c")) - bul1 - 12))
Next
End Sub

 

[tatar7]

üstad teşükkür ediyorum çok güzel ancak ben tabloya uyduramadım. soruyu şöyle değiştirsem
b hücresinde BSMV varsa c hücresini e hücresine yazdıra bilirmiyim

 

[Levent Menteşoğlu]

Üstteki kodu yeniledim tekrar deneyin.

 

[tatar7]

üstad özür diliyorum benim gibi beceriksiz olunca işin içinden çıkamıyor işte tabloyu değiştirdim tekrar bakabilirmisiniz
teşekkür ediyorum

 

[Levent Menteşoğlu]

Ekli dosyayı inceleyin.

 

[tatar7]

Üstat teşekkür ediyorum. müthişsiniz:bravo: