Если поиск на повторение в столбце B от B5 до B1000 (например)

Private Sub CommandButton1_Click()
stroka=B5
Dim r As Range, g As Range
prodolzenie:
Set r = ActiveSheet.Range(stroka & ":B1000")
Set g = r.Find(What:="искомое значение или предложение")
stroka=g.row
ActiveSheet.Range("B" & g.Row).Activate
yesno=MsgBox( " Ищем дальше ?", 1)
If yesno = 2 Then GoTo mend 'если выбрано NO то в конец прог-ммы на метку mend
goto prodolzenie

mend:
End Sub

talgatЕсли поиск на повторение в столбце B от B5 до B1000 (например)

Private Sub CommandButton1_Click()
stroka=B5
Dim r As Range, g As Range
prodolzenie:
Set r = ActiveSheet.Range(stroka & ":B1000")
Set g = r.Find(What:="искомое значение или предложение")
stroka=g.row
ActiveSheet.Range("B" & g.Row).Activate
yesno=MsgBox( " Ищем дальше ?", 1)
If yesno = 2 Then GoTo mend 'если выбрано NO то в конец прог-ммы на метку mend
goto prodolzenie

mend:
End Sub

Опечатка stroka="5"
Что то подобное у меня в одной проге работает

olga2005Есть ли у кого-то макрос поиска и сравнения в таблице на повторение данных ? Пришлите пожалуйста. Огромное спасибо!!!

Private Sub CommandButton1_Click()
stroka = "B5"
Dim r As Range, g As Range
prodolzenie:
Set r = ActiveSheet.Range(stroka & ":B1000")
Set g = r.Find(What:="65")
stroka = "B" & g.Row
ActiveSheet.Range("B" & g.Row).Activate
yesno = MsgBox(" Ищем дальше ?", 1)
If yesno = 2 Then GoTo mend 'если выбрано NO то в конец прог-ммы на метку mend
GoTo prodolzenie

mend:
End Sub

Это уже проверенная версия. Работает. А что искать (искомое) наверное надо брать с текущей строки.
poisk=range("B" & activecell.row)

А тут искомое значение на повторение берется с текущей строки столбца В

Private Sub CommandButton1_Click()
stroka = "B5"
poisk = ActiveSheet.Range("B" & ActiveCell.Row)
Dim r As Range, g As Range
prodolzenie:
Set r = ActiveSheet.Range(stroka & ":B1000")
Set g = r.Find(What:=poisk)
stroka = "B" & g.Row
ActiveSheet.Range("B" & g.Row).Activate
yesno = MsgBox(" Ищем дальше ?", 1)
If yesno = 2 Then GoTo mend 'если выбрано NO то в конец прог-ммы на метку mend
GoTo prodolzenie

mend:
End Sub