Hücre içinde silme

Katılım
25 Ağustos 2005
Mesajlar
101
Excel Vers. ve Dili
Ofis 2007 Türkçe
Sayın Acemi1

Fakslı hücrelere metni sütunlara ayırmak uygulamak için telefon nolarının hepsinin düzgün sıralı olması gerekmiyor. Faks kelimelerini =faks olarak değiştirip ='e göre metni sütunlara ayırı uygularsanız Telefon ve Fakslar iki sütuna ayrılır. (Bir hücrede sadece işyeri ve faks varsa ve bunlar her hücrede önce işyeri sonra faks diye sıralanmışsa).
 
Son düzenleme:

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,247
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:
Sub FAKS_NUMARALARINI_SİL()
    On Error Resume Next
    Dim BUL_FAKS, BUL_İŞYER As Byte
    [C2:C65536].ClearContents
    For X = 2 To [B65536].End(3).Row
    If Cells(X, 2) Like "*" & "FAKS" & "*" Then
    BUL_FAKS = WorksheetFunction.Search("FAKS :", Cells(X, 2), 1)
    BUL_İŞYER = WorksheetFunction.Search("İŞYER:", Cells(X, 2), BUL_FAKS)
    If BUL_İŞYER = 0 Then
    Cells(X, 3) = Trim(Mid(Cells(X, 2), 1, BUL_FAKS - 1))
    Else
    Cells(X, 3) = Trim(Mid(Cells(X, 2), 1, BUL_FAKS - 1) & Mid(Cells(X, 2), BUL_İŞYER - 1, Len(Cells(X, 2))))
    End If
    End If
    BUL_FAKS = 0
    BUL_İŞYER = 0
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub
 
Üst