Hay tantas opciones o 'particularidades' a la hora de 'copiar y pegar' que merecieron ser todo un tema para una de mis guías temáticas.
Copiar con o sin formato, con o sin fórmulas, solo valores, etc
Aquí un ejemplo de lo que se desprende de tu consulta. Dibujá un botón con la barra Formulario, clic derecho sobre el botón, opción 'Asignar macro' y le asignás ésta que previamente habrás copiado en un módulo del Editor:
Sub copiaDatos()
'x Elsamatilde
dato = InputBox("Ingrese dato a copiar", "SOLICITUD")
'si cancela el mensaje, cancela el evento
If IsEmpty(dato) Then Exit Sub
'busca el dato en hoja activa, col B
Set busco = Range("B:B").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
'si lo encontró lo copia en hoja 2 a partir de col B
If Not busco Is Nothing Then
If busco.Offset(0, 1) = 2013 Then filx = 2
If busco.Offset(0, 1) = 2014 Then filx = 3
Range("B" & busco.Row & ":K" & busco.Row).Copy Destination:=Sheets("Hoja2").Range("B" & filx)
End If
Set busco = Nothing
'si debe seguir buscando el producto, para encontrar el del otro año dejar las sgtes instrucciones
'recorre la col B hasta el fin o hasta encontrar otro prod
busco.Select
x = 0
While ActiveCell.Value <> "" And x = 0
If ActiveCell.Value <> dato Then
'si no corresponde al dato buscado paso a la fila sgte
ActiveCell.Offset(1, 0).Select
Else
If ActiveCell.Offset(0, 1) = 2013 Then filx = 2
If ActiveCell.Offset(0, 1) = 2014 Then filx = 3
Range("B" & ActiveCell.Row & ":K" & ActiveCell.Row).Copy Destination:=Sheets("Hoja2").Range("B" & filx)
'marco la variable para salir
x = 1
End If
Wend
End Sub
Observa que tiene un agregado para buscar el 2do año para ese producto.
Se entiende entonces que solo habrá hasta 2 productos iguales.
Buenas tardes desearía saner como buscar un registro en una tabla von un texbox y al encontrarlo copiara toda la fila em otra hoja en la segunda fila eliminando el volcado antetior.Muchísimas gracias de antemano. - Andres JK