boa tarde,
substitua a linha
Set rng = .Columns(2).Find(Planilha1.TextBox1.Text, LookIn:=xlValues, lookat:=xlWhole)
pela linha
Set rng = .Columns(2).Find(Planilha1.TextBox1.Text, [B11], LookIn:=xlValues, LookAt:=xlWhole)
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 31/01/2018 2:24 pm