[Eliminar/Copiar_Transponer/Pegar-Trasladar]

hola, Lisandro !

... lo expongo nuevamente observo que se obvio el mensaje anterior [...]

=> si me permites, voy a [tratar de] explicarte lo que [yo] 'entiendo' de tus consultas ;)
[me parece que la exposicion es muy 'confusa', probablemente mas que el 'problema' mismo] :(
1° quieres que [lo que pongas en] Hoja1!A6 'sirva' para buscar/lo en Hoja2!A(n):K(n)
-> ¿que es lo que pones en Hoja1!A6?
- la (n)fila para buscar en el rango Hoja2!A(n):K(n)
- 'cualquier' dato para encontrar en [¿cualquier celda? de]'cualquier' fila de Hoja2!A(n):K(n)
-> ¿existe la posibilidad de 'similares' y/o 'duplicados'? y... ¿que hacer en ese caso?
2° [una vez 'encontrado' el dato]...
- transponer el rango Hoja2!A(n):K(n) hasta Hoja1!C4:C14
- 'eliminar' el rango Hoja2!A(n):K(n) =>'supongo' que... ¿toda la fila???< -> 'de inmediato' ??? o... -> 'hasta que'... pongas un 'valor' en Hoja1!C12 ???
3° 'cuando pongas' un valor en Hoja1!C12...
- transponer [supongo que el rango Hoja1!C4:C14] [pero 'ahora'...] a la Hoja3!A2:K2

[probablemente] se podria 'minimizar' el uso de macros si proporcionas mayores datos [p.e.]
- ¿'que son' los datos desde su origen?
- 'exactamente'... 'que' y... 'donde' es necesario buscar? [hoja, fila Y columna]
- tu conoces mejor la situacion ;)

¿comentas datos adicionales?
saludos,
hector.

[Gracias por tu Tiempo]Adjunto a tus comentarios mi
exposicion trato de ser un poco mas claro..

1° quieres que [lo que pongas en] Hoja1!A6 'sirva' para

buscarlo en Hoja2!A2:K65536==>Fila completa siempre lo
que buscara estara en la celda Hoja2 [A2:A65536]
¿que es lo que pones en Hoja1!A6? ==>Un Numero de 5 o 6
Digitos puede variar
la (n)fila para buscar en el rango Hoja2!A(n):K(n)
'cualquier' dato para encontrar en [¿cualquier celda?
de]'cualquier' fila de Hoja2!A(n):K(n)
¿existe la posibilidad de 'similares'
y/o 'duplicados'? y... ¿que hacer en ese caso?
==>Nunca se repetira el numero, ya que es un correlativo
de talonarios.Como te comente solo buscara en la celda
A2:A65536 pero no estara ordenado!!

2° [una vez 'encontrado' el dato]...

Transponer el rango Hoja2!A(n):K(n) hasta Hoja1!C4:C14
'eliminar' el rango Hoja2!A(n):K(n) =>'supongo' que...
¿toda la fila???<>Correcto toda la fila
'de inmediato' ??? o... -> 'hasta que'... pongas
un 'valor' en Hoja1!C12 ??? ==> De inmediato y lo elimina
de la Hoja2

3° 'cuando pongas' un valor en Hoja1!C12...

transponer [supongo que el rango Hoja1!C4:C14]
[pero 'ahora'...] a la Hoja3!A2:K2 >Correcto y asi
sucesivamente A3:K3 A4:K65536

[probablemente] se podria 'minimizar' el uso de macros si
proporcionas mayores datos [p.e.]

- ¿'que son' los datos desde su origen?
- 'exactamente'... 'que' y... 'donde' es necesario

buscar? [hoja, fila Y columna]

- tu conoces mejor la situacion ;)

Amigo realmente estoy agradecido si no me explico puedo
enviarte el archivo dime donde te lo puedo colocar si es
posible??[Realmente yo no he podido con esto]

¿comentas datos adicionales?
saludos,
hector.
Estoy seguro que es una tonteria..Se que puedes..
.

hola, Lisandro !

de acuerdo a tus comentarios...

buscar el dato de Hoja1!A6 en Hoja2!A:A [y suponiendo que 'lo encuentra' en la fila 'n']...
copiar/transponer [eliminando luego toda la fila d'] el rango Hoja2!A(n):K(n) a Hoja1!C4:C14
[cuando introduzcas un 'valor' en Hoja1!C12]...

trasladar/transponer Hoja1!C4:C14 a Hoja3!A(n):K(n) [siendo 'n' la siguiente fila 'libre' en Hoja3]

si cualquier duda... detalles [o 'problemas']... ¿comentas?
[solo 'pon atencion' a los rangos/nombres 'reales' de las hojas -en caso de que sean 'diferentes'-]
saludos,
hector.
en el modulo de codigo de 'Hoja1' ==Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Address = "$A$6" Then Encontrar_Dato
If Target.Address = "$C$12" Then Trasladar_Dato
End Sub
Private Sub Encontrar_Dato(): Dim Fila As Long
If IsEmpty([a6]) Then Exit Sub
Fila = Evaluate("If(IsError(Match(A6,Hoja2!A:A,0)),0,Match(A6,Hoja2!A:A,0))")
If Fila > 0 Then
Application.EnableEvents = False
With [Hoja2].Range("a" & Fila & ":k" & Fila)
.Copy
[c4].PasteSpecial xlPasteValues, , , True
.EntireRow.Delete
End With: Application.EnableEvents = True: [c12].Select
Else: MsgBox "El dato solicitado: " & [a6] & vbCr & "NO se encuentra en Hoja2..."
End If
End Sub
Private Sub Trasladar_Dato()
[c4:c14].Copy
[Hoja3!a65536].End(xlUp).Offset(1).PasteSpecial xlPasteValues, , , True
[c4:c14].ClearContents
[a6].ClearContents
[a6].Select
End Sub