Buscar valor desde una celda específica en otra hoja

[Fantasmon]

Buenas tardes, 

"Tarea" a realizar:  búsqueda de un número desde la celda A4 de la hoja CAMIONETAS en la hoja PLANO luego correr dos columnas a la derecha y reemplazar ese contenido con la celda G4 de la hoja CAMIONETAS.

Problema a solucionar:  lo remarcado en rojo debería ser el contenido de la celda A4 (CAMIONETAS) que es variable; en el caso de abajo siempre me busca 14248.

El "resto del código" funciona bien.

 

 Selection.Copy
    Sheets("PLANO").Select
    Cells.Find(What:="14248", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, 2).Range("A1").Select
    Sheets("CAMIONETAS").Select
     Range("G4").Select
    Selection.Copy
    Sheets("PLANO").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CAMIONETAS").Select
    Range("A5").Select
End Sub

 

Se agradece de antemano...

Ejemplo.xlsm

[JSDJSD]

Creo que tendrías que explicar algo mejor tu solicitud, para obtener ayuda

[Fantasmon]

Buenas....necesito buscar un valor (variable)  de la celda A4 de la hoja CAMIONETAS en la hoja PLANO.

En el "código" que pasé lo remarcado en rojo debería ser lo que está en la celda A4 de CAMIONETAS (no importa el número), en estos momentos por más que cambie el VALOR de la celda siempre busca el 14248.

El contenido de esa celda es variable, no siempre busco el mismo valor....

 

Ejemplo: en la celda A4 de CAMIONETAS tipeo 1 la macro ya generada me busca el 14248, si tipeo 2 la macro ya generada me busca el 14248, etc...

Necesito que sin importar lo que tipee siempre me busque el valor de la celda A4

 

[JSDJSD]

como debe quedar si por ejemplo buscas el 10

[Fantasmon]

Los pasos a seguir serían

 

Hoja CAMIONETAS seleccionar y copiar celda A4

Pasar a hoja PLANO, abrir dialogo buscador (ctrl+b) y pegar, enter

 

si quiero busca el 10 así funcionaría....

 

Selection.Copy
    Sheets("PLANO").Select
    Cells.Find(What:="10", After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate

 

Lo que necesito es que en lugar del 10 esté la celda A4, independientemente del valor.

 

[JSDJSD]

Bueno, lo que buscas es esto:

Sub Buscaryreemplazar()
'
' Buscaryreemplazar Macro

    Selection.Copy
    Sheets("PLANO").Select
    buscado = Hoja3.Range("A4")
    Cells.Find(What:=buscado, After:=ActiveCell, LookIn:=xlFormulas2, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    ActiveCell.Offset(0, 2).Range("A1").Select
    Sheets("CAMIONETAS").Select
     Range("G4").Select
    Selection.Copy
    Sheets("PLANO").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("CAMIONETAS").Select
    Range("A5").Select
End Sub

pero sigo sin enterderlo

[Fantasmon]

MUCHÍSIMAS GRACIAS.........!!!!

Esto es exactamente lo que quería (lo probé varias veces pero se ve que tenía errores de sintaxis):

buscado = Hoja3.Range("A4")
    Cells.Find(What:=buscado.....

Como siempre agradecido y esta vez sorprendido de que lo hayas solucionado sin entenderme (soy algo vueltero)....

 

TEMA CERRADO