büyüktür / küçüktür

[mesutaygun70]

Sub Test()
Dim myRange As Range
Set myRange = Application.InputBox("Mouse ile aralık seçin...", "Seçim ...", Type:=8)
Silinecek = InputBox("Silinecek İfadeyi Tanımlayın")
For i = myRange.Cells(myRange.Cells.Count).Columns To 1 Step -1
If myRange.Cells(i) < Silinecek Then Columns(myRange.Cells(i).Column).Select
Next
End Sub

yukarıdaki kod çalışıyor fakat
If myRange.Cells(i) > silinecek Then Columns(myRange.Cells(i).Column).Select
işareti büyüktür yapınca yada eşittir yapınca çalışmıyor.

Koduda bu sitededeki arkadaşlardan aldım ayrıca teşekkür ederim. Bir türlü çözemedim yardımcı olabilirmisiniz.

 

[ÖmerFaruk]

Kodları son haliyle ve dosyanızın son haliyle tekrar eklermisiniz