bir metindensonra gelen karakter kümesi

[hsayar]

arkadaşlar şöyle bir makro mümkünmüdür

deneme yazısından sonra gelenler ayrılacak
deger = "deneme22" ise sonuc = "22"
deger = "deneme50" ise sonuc = "50"
deger = "denemeAA1" ise sonuc = "AA1"
deger = "deMemeAA1" ise sonuc = "" çünkü yanlış yazılmış n yerine m basılmış


gibi

 

[Levent Menteşoğlu]

Instr ve Replace fonksiyonlarını kullanabilirsiniz. Verilerin A sütununda bulunduğunu kabul edersek,

For a = 1 To [a65536].End(3).Row
If InStr(1, Cells(a, "a"), "deneme") > 0 Then Cells(a, "b") = Replace(Cells(a, "a"), "deneme", "")
Next