bi yerden sadece sayıyı ayıran bir makro buldum ve ben de aynı anda metni de ayıracak şekilde revize etmeye çalıştım ama hiç çalışma belirtisi göstermiyor, hata bile vermiyor, bi bakabilir misiniz? teşekkürler. Dosyam ekte...


Sub Düğme1_Tıklat()

Dim metin As String

Dim nums As String

For i = 4 To Cells(65536, 12).End(xlUp).Row
For b = 1 To Len(Cells(i, 12))
If IsNumeric(Mid(Cells(i, 12), b, 1)) = True Then
nums = nums & Mid(Cells(i, 12), b, 1)
Else
metin = metin & Mid(Cells(i, 12), b, 1)

End If
Next b
If metin = "AY" Then
Cells(i, 13).Valuıe = DateAdd("m", nums, Cells(i, 9).Value)
Else
End If
If metin = "GÜN" Then
Cells(i, 13).Valuıe = DateAdd("d", nums, Cells(i, 9).Value)
Else
End If
If metin = "YIL" Then
Cells(i, 13).Valuıe = DateAdd("y", nums, Cells(i, 9).Value)
Else
End If
nums = ""
metin = ""
Next i

End Sub