Merhaba,
Yukarıdaki kodlarla A sütununda ardığım değeri bulmaya çalışıyorum. Ancak kodlar, A sütunundaki değerlerin son satırındaki değeri bulmuyor.
Ã?rneğin A sütununda 18 satır varsa, 17. satıra kadar buluyor. Son değeri bulamıyor. Neden olabilir?
Selamlar
Kod:
Private Sub ComboBox1_Change()
On Error Resume Next
Dim bul As Range
Sheets("Sayfa1").Select
For Each bul In Range("A2:A" & WorksheetFunction.CountA(Range("A2:A500")))
If StrConv(bul.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bul.Select
End If
Next bul
End Sub
Ã?rneğin A sütununda 18 satır varsa, 17. satıra kadar buluyor. Son değeri bulamıyor. Neden olabilir?
Selamlar