seria mais ou menos assim
rang=range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row
for l=1 to ubound(rang,1)
if rang(l,1)=txtbox1.value then l2=l exit for
next
cells(l2,2).value2=cells(l2,2).value2 + txtbox2.value
cells(l2,3).value2=cells(l2,3).value2 + txtbox3.value
Postado : 27/07/2016 8:48 am