Koşulsuz string karşılaştırma

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar ekli çalışmada A sütununda
string veriler var. Derdim ComboBox1 den seçtiğim kelimeyi A sütununda büyük harf küçük harf ayrımı yapmaksızın içinde geçer biçiminde araması eğer geçiyorsa karşılığındaki C sütununa VAR yazması. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Click()
Dim sat As Long, k As Range, adr As String
Application.ScreenUpdating = False
With Sheets("Sayfa1")
    sat = .Cells(Rows.Count, "A").End(xlUp).Row
    .Range("C:C").ClearContents
    Set k = .Range("A1:A" & sat).Find(ComboBox1.Value, , xlValues, xlPart)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            k.Offset(0, 2).Value = "VAR"
            Set k = .Range("A1:A" & sat).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
End With
Application.ScreenUpdating = True
            
End Sub

 

[excellcan]

Dosyanız ektedir.

Private Sub ComboBox1_Click()
Dim sat As Long, k As Range, adr As String
Application.ScreenUpdating = False
With Sheets("Sayfa1")
    sat = .Cells(Rows.Count, "A").End(xlUp).Row
    .Range("C:C").ClearContents
    Set k = .Range("A1:A" & sat).Find(ComboBox1.Value, , xlValues, xlPart)
    If Not k Is Nothing Then
        adr = k.Address
        Do
            k.Offset(0, 2).Value = "VAR"
            Set k = .Range("A1:A" & sat).FindNext(k)
        Loop While Not k Is Nothing And k.Address <> adr
    End If
End With
Application.ScreenUpdating = True
            
End Sub

Hocam emeğinize sağlık. Teşekkür ederim.