Hücre içinde silme

[LEVTEPE]

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).

 

[flz82]

omerceri teşekkürler çok yardımcı oldunuz

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

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