metnin içinde istenilen verileri almak

[f_alkan]

iligilenen arkadaşlara tşk ederiz.

 

[S.Yiğit]

Merhaba,

Aşağıdaki formül işinizi görür mü? (Yanlış anlamış olabilirim)

=PARÇAAL(A2;MBUL(E2;A2)+1;UZUNLUK(A2))

 

[nsertoglu]

Makro ile işleminizi B ve C kolonlarına yazarak yapabilirsiniz..

Sub harf_rakam_ayır()
syf = "sayfa1"
Sheets(syf).Select
Cells(Rows.Count, "a").Select
sonr = Selection.End(xlUp).Row
For r = 2 To sonr
Cells(r, "a").Select
deg = Cells(r, "a")
ldg = Len(deg)
For b = 1 To ldg
b1 = Mid(deg, b, 1)
b2 = IsNumeric(b1)
If b2 = False Then
Cells(r, "b") = b1
Cells(r, "c") = Right(deg, ldg - b)
GoTo 10
End If
Next b
10 Next r

End Sub