sayfa düzenleme

[poseidon106]

herkese merhaba elimde 500 sayfalık bir excel dosyası var. bu dosyanın içinde adresler telefonlar ve birtakım textler var. yapmak istediğim bu textlerin içinden sadece cep numaralarını almak (farklı bir excel dosyasınada olur) cep numaralarının yazdığı hüclerin içinde telefondan önce gsm yazıyor. bunu baz alarak neler yapılabilir.

örnek: gsm 0555 555 55 55

teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Telefon nolarını içeren hücreler hangi sütunda bulunuyor.

 

[poseidon106]

Selamlar,

Telefon nolarını içeren hücreler hangi sütunda bulunuyor.

tüm veriler a stünunda. fine readerla resimden text'e aktarılmış veriler.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Çalışmanıza RAPOR isimli bir sayfa eklenir ve verdiğiniz formattaki tüm telefon noları listelenir.

Option Explicit
 
Sub TELEFON_NO_LİSTELE()
    Dim SAYFA As Worksheet, X As Long, SATIR As Long
    
    Application.DisplayAlerts = False
        On Error Resume Next
        Sheets("RAPOR").Delete
        On Error GoTo 0
    Application.DisplayAlerts = True
    
    Sheets.Add.Name = "RAPOR"
    
    For Each SAYFA In ThisWorkbook.Worksheets
        If SAYFA.Name <> "RAPOR" Then
            For X = 1 To SAYFA.Range("A65536").End(3).Row
                If InStr(1, UCase(SAYFA.Cells(X, "A")), "GSM") > 0 Then
                    SATIR = SATIR + 1
                    Sheets("RAPOR").Cells(SATIR, "A") = Mid(SAYFA.Cells(X, "A"), InStr(1, UCase(SAYFA.Cells(X, "A")), "GSM") + 4, 14)
                End If
            Next
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[poseidon106]

teşekkürler çalıştı ve işimi gördü.