DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub AYIKLA()
[C:C].ClearContents
For X = 2 To [B65536].End(3).Row
If Cells(X, 2) Like "*" & " Km)" & "*" Then
For Y = Len(Cells(X, 2)) To 1 Step -1
If Mid(Cells(X, 2), Y, 1) <> " (" Then
KRİTER = Mid(Cells(X, 2), Y, 1) + KRİTER
If KRİTER Like "*" & "Km" & "*" And KRİTER Like "*" & "(" & "*" Then
Cells(X, 3) = Cells(X, 2)
Cells(X, 3).Replace KRİTER, "", LookAt:=xlPart
Cells(X, 3) = RTrim(Cells(X, 3))
KRİTER = ""
GoTo DEVAM
End If: End If: Next
DEVAM: End If: Next
End Sub
Formül ile yapılmış başka bir altarnatif, bu arada COST_CONTROL'un kodlarını ben çalıştıramadım, çalışan şekliyle dosyaya eklerse sevinirim