Option Explicit
Sub SabitTelAyir()
Dim i As Long
Dim j As Integer
Dim d() As String
Dim s1 As Worksheet
Set s1 = Sheets("cepler")
s1.Select
Application.ScreenUpdating = False
For i = 2 To [B65536].End(3).Row
d = Split(Application.WorksheetFunction.Trim(Cells(i, "G")), " ")
For j = 0 To UBound(d)
If d(j) Not Like "5*" Or d(j) Not Like "5*" Then
If Len(Cells(i, "I")) = 0 Then
Cells(i, "I") = d(j)
Else
Cells(i, "I") = Cells(i, "I") & " - " & d(j)
End If
End If
Next j
Next i
Application.ScreenUpdating = True
MsgBox "Sabit Telefonlar I Sütununa Yazılmıştır"
End Sub
Bu kod hata verıyor Not like olmuyor,nasıl yazmam lazım.
Sub SabitTelAyir()
Dim i As Long
Dim j As Integer
Dim d() As String
Dim s1 As Worksheet
Set s1 = Sheets("cepler")
s1.Select
Application.ScreenUpdating = False
For i = 2 To [B65536].End(3).Row
d = Split(Application.WorksheetFunction.Trim(Cells(i, "G")), " ")
For j = 0 To UBound(d)
If d(j) Not Like "5*" Or d(j) Not Like "5*" Then
If Len(Cells(i, "I")) = 0 Then
Cells(i, "I") = d(j)
Else
Cells(i, "I") = Cells(i, "I") & " - " & d(j)
End If
End If
Next j
Next i
Application.ScreenUpdating = True
MsgBox "Sabit Telefonlar I Sütununa Yazılmıştır"
End Sub
Bu kod hata verıyor Not like olmuyor,nasıl yazmam lazım.
