Saltar al contenido

Buscar valor desde una celda específica en otra hoja


Recommended Posts

publicado

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

publicado

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

 

publicado

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.

 

publicado

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

publicado

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

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.