Macro: Buscar valor y sobreescribir fila
Hola,
Estoy haciendo un pequeño aplicativo en Excel. En una hoja tengo una serie de datos que pueden ser modificados mediante otra hoja.
Lo que estoy buscando es una función que dado un valor, lo busque en el listado (columna A), determine su posición y sobreesacriba parte de la fila (columna A:FH).
Lo estaba intentando de forma "pedestre" mediante filtros:
x = Range("M4")
Sheets("Listado Ofertas").Select
ActiveSheet.Range("$A:$FH").AutoFilter Field:=1, Criteria1:=x, _
Operator:=xlAnd
Sheets("Mant. Offers").Select
Range("V5:GC5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Listado Ofertas").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A:$FH").AutoFilter Field:=1
Application.CutCopyMode = False
Pero ahora ya no me funciona... Me pone la información al final de todo, con lo que me repite la fila con diferente información.
A ver si puedeis ayudarme. Gracias por adelantado!
Estoy haciendo un pequeño aplicativo en Excel. En una hoja tengo una serie de datos que pueden ser modificados mediante otra hoja.
Lo que estoy buscando es una función que dado un valor, lo busque en el listado (columna A), determine su posición y sobreesacriba parte de la fila (columna A:FH).
Lo estaba intentando de forma "pedestre" mediante filtros:
x = Range("M4")
Sheets("Listado Ofertas").Select
ActiveSheet.Range("$A:$FH").AutoFilter Field:=1, Criteria1:=x, _
Operator:=xlAnd
Sheets("Mant. Offers").Select
Range("V5:GC5").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Listado Ofertas").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveSheet.Range("$A:$FH").AutoFilter Field:=1
Application.CutCopyMode = False
Pero ahora ya no me funciona... Me pone la información al final de todo, con lo que me repite la fila con diferente información.
A ver si puedeis ayudarme. Gracias por adelantado!
1 Respuesta
Respuesta de paramisolo
1
Vamos a ver si te he entendido, valor dado lo pones tú o lo recoges de una celda
Si lo pones tú:
valor=Inputbox("Escriba el valor a buscar")
Si lo tomas de una celda:
valor=Range("A2").Value
Buscamos el valor en un rango de celdas
Range("V5:V35").Select
Selection.Find(What:=valor).Activate
Una vez encontrado copiamos el rango desde V hasta 4 columnas a la derecha
Range(ActiveCell,ActiveCell.Offset(0,4)).Copy
Nos situamos en la col A y volvemos a buscar el dato
Range("A:A").Select
Selection.Find(What:=valor).Activate
Ahora sobreescribimos las 4 celdas que traemos
ActiveCell. PasteSpecial
Comprueba si te sirve, si tienes algún problema me lo dices.
>Un saludo
>Julio
Si lo pones tú:
valor=Inputbox("Escriba el valor a buscar")
Si lo tomas de una celda:
valor=Range("A2").Value
Buscamos el valor en un rango de celdas
Range("V5:V35").Select
Selection.Find(What:=valor).Activate
Una vez encontrado copiamos el rango desde V hasta 4 columnas a la derecha
Range(ActiveCell,ActiveCell.Offset(0,4)).Copy
Nos situamos en la col A y volvemos a buscar el dato
Range("A:A").Select
Selection.Find(What:=valor).Activate
Ahora sobreescribimos las 4 celdas que traemos
ActiveCell. PasteSpecial
Comprueba si te sirve, si tienes algún problema me lo dices.
>Un saludo
>Julio
