Почему в inputbox не работают кнопки?

[Legachoff]

Что Yes что No, почему-то работают одинаково....

info=Inputbox()
Buttons=VbyesNo
Ans=Inputbox(Buttons)

[alibek]

Потому что.
InputBox это окно, не связанное с MsgBox, и его константы не подходят.

Если в InputBox нажали отмену, то он возвратит пустую строку.

[Legachoff]

можна ли сделать чтобы в этом макросе при нажатии кнопки "No" прграма делала exit sub

Sub mac2()
Dim Info As Variant
Dim r As Variant
Do Until Info <> ""
Info = InputBox("hand made")
Loop
For r = 7 To 1000
If ActiveSheet.Cells(r, 2) = "" Then
Exit For
Else
If ActiveSheet.Cells(r, 2) <> Info Then
Rows(r).Delete
r = r - 1
End If
End If
Next r
End Sub

[alibek]

И где там кнопка No?

[Legachoff]

Cancel - то есть

[alibek]

Проверяй, чтобы Info была равна пустой строке.

[Legachoff]

Ок, спасибо

[alibek]

Спасибо-то за что?
У тебя проблема в другом.
Чтобы код сильно не менять, перед циклом поставь Info = "*".