Aşagıdaki makro A sutunundan başlayıp 1000.satıra kadar hücreleri tarayıp içindeki verilerde varsa "-" karakterinden öncesini siliyor.
Benim istedigim şey ise E ve F sutunları hariç bütün sutunları tarayıp bu işlemi yapmasını istiyorum.Kodda düzeltme yapıp bakabilir misiniz
Benim istedigim şey ise E ve F sutunları hariç bütün sutunları tarayıp bu işlemi yapmasını istiyorum.Kodda düzeltme yapıp bakabilir misiniz
Kod:
Sub Dikdörtgen3_Tıkla()
Set s = ActiveSheet
For i = 1 To 1000
Bak = s.Cells(i, 1)
For j = 1 To Len(s.Cells(i, 1))
If Mid(s.Cells(i, 1), j, 1) = "-" Then
Bak = Right(s.Cells(i, 1), Len(s.Cells(i, 1)) - j)
End If
Next
s.Cells(i, 1) = Bak
Next
End Sub