Set rngd = ActiveSheet.Range("C:C").Find(What:=Textbox1.Text, Lookat:=xlWhole, LookIn:=xlValues)
If Not rngd Is Nothing Then
set rngd2=ActiveSheet.cells(rngd.row,2).Find(What:=Listbox1.value Lookat:=xlWhole, LookIn:=xlValues)
If Not rngd2 Is Nothing Then
set rngd3=ActiveSheet.cells(rngd.row,1).Find(What:=Listbox1.value Lookat:=xlWhole, LookIn:=xlValues)
If Not rngd Is Nothing Then
cells( rngd.row,5)=cells( rngd.row,5) + textbox2
End if
End if
End if
so ?
|