Macro para buscar y copiar

Hola buen día!

me pueden ayudar con una macro que busque un texto y luego copie y sume los datos correspondientes, a continuación explico.

En una hoja llamada CAPTURA en la celda B7 escribiré un texto y la ejecutar la macro deberá buscar el mismo texto pero en la hoja llamada ENTRADAS de la celda A2 a la A25, entonces deberá sumar en la celda que corresponda de la columna B la cantidad que aparece en celda B9 de la hoja ENTRADAS.

Espero ser clara y me puedan ayudar.

Gracias

1 Respuesta

Respuesta
1

Prueba la siguiente

Sub buscar()
'Por.DAM
 Set b = Sheets("entradas").Range("A5:A20").Find(Sheets("captura").Range("B7"))
 If Not b Is Nothing Then
 Sheets("entradas").Cells(b.Row, "B") = Sheets("entradas").Cells(b.Row, "B") + Sheets("captura").Range("B9")
 End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas