• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan aeb42
  • Başlangıç tarihi Başlangıç tarihi
Katılım
18 Nisan 2011
Mesajlar
4
Excel Vers. ve Dili
excell 2007
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..
 
Dosyanız ektedir.
A sütununda arara ve bulur.
Arama başlar ile yapılmaktadaır.:cool:
Butona tıklayın çıkacak olan input boxa başlar karakterlerini girin tamam basın.
Kod:
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
 

Ekli dosyalar

Geri
Üst