Попробуйте поменять xlFormulas на xlvalues

AKSENOV048, на будущее: курсор в слово Find нажимаете F1 и читаете) Меня уже не раз выручала : )

что то этот F1 мне не помог)  
появилась такая проблема:  
 
Private Sub CommandButton1_Click()  
With Sheets(1)  
    Set r = .Range(.[A4], .Range("A" & .Rows.Count).End(xlUp))
    Set x = r.Find(What:=Me.ComboBox1.Value, LookIn:=xlValues, LookAt:=xlWhole)  
       If Not x Is Nothing Then  
        x.Offset(, 1) = Me.ComboBox2  
        x.Offset(, 2) = Me.TextBox1  
        x.Offset(, 3) = Me.TextBox2  
       End If  
End With  
End Sub  
 
если в форме выбрать 1 и изменить другие поля, то все изменения сохраняются; а вот сли выбрать проба2:инфо2 или проба3:инфо3 и изменить их поля, то сохраниться только изменение поля Критерий.    
что не так?

AKSENOV048, очень тяжело с такими значениями: Проба2:Инфо2... Можно более приземлённо? Попытался воспроизвести - запутался.

Юрий М значение данных не так важно.  
смысл в том что: почему то со значениями работает, а с формулами нет.  
хто-то, спасибо Вам большое! а то я всю голову сломал. да и сейчас все равно не понял. не объясните?

О, а хово-то я и не заметил :)  
Тут главное - отрубить обновление комбо2 при изменении в его RowSource. При клике по кнопке.

Да, проверил - стёр Rowsource, добавил в форму код:  
 
 
Private Sub UserForm_Activate()  
Dim a()  
a = Лист1.[a4:a6].Value
Me.ComboBox1.List = a  
End Sub

все до меня дошло наконец. но сам бы я в жизни не справился.