formulle ''20. ile baslayan metin biçimli sayıları cagırmak???

[aeb42]

merhabalarr...
hücrelerde belli harflerle baslayan mesela 'Me...' gibi,
mesela '20...' ile baslayan metinleri baska bi hücreye ,,çelkebilmek için istediğimiz harflerle ,sayılarla baslayan hücre bilgilerini nasıl baska bi hucreye alabiliriz..??
çokk acil yardımlarınızı beklemekteyim...
saygılarımla..

 

[Orion1]

Dosyanız ektedir.
A sütununda arara ve bulur.
Arama başlar ile yapılmaktadaır.
Butona tıklayın çıkacak olan input boxa başlar karakterlerini girin tamam basın.

Sub baslar_59()
Dim deg As String, k As Range, sat As Long, adr As String
deg = InputBox("Lütfen Başlar ile ilgili başlayacak olan ilk karakterleri giriniz :", " A SÜTUNUNDA BAŞLAR İLE ARAMA")
If deg = "" Then Exit Sub
Range("B1:B65536").Clear
Application.ScreenUpdating = False
Set k = Range("A:A").Find(deg & "*", , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        sat = sat + 1
        Cells(sat, "B").Value = k.Value
        Set k = Range("A:A").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
Application.ScreenUpdating = True
MsgBox "İşlem Tammalandı" & vbLf & "evrengizlen@hotmail.con" & _
"06.05.2011", vbOKOnly + vbInformation, "E V R E N"
End Sub