Excel cambio de valor
Tengo una excel con muchas hojas y la misma estructura por ejemplo coloumna A = referencia articulo y B = precio costes articulo, en cada hoja hay en la columna A referencias diferentes, aunque algunas pueden coincidir pero no estan en la misma fila de una hoja respecto a la anterior, quiero saber el modo de poderle indicar que busque un valor por ejemplo referencia articulo = 100100 e indicarle un valor precio compra por ejemplo 25,00€ y que busque esa referencia en todas las jojas del libro y cambie el valor de la columna precio existente por el nuevo.un saludo.
1 respuesta
Respuesta de Enrique Bernal
1
Estos códigos hacne lo que necesitas, para mi ejemplo tu primera hoja se llama control, debes poner la que sea la primera hoja para ti, adicional en mi ejemplo la macro te pregunta el valor a buscar y el precio actual, si quieres en lugar de que la macro te pregunte, puedes tener estos datos en una celda y hacer que la macro revise esos valores.
Sub actualiza()
Sheets("Control").Select
a = InputBox("Favor indicar el codigo a buscar", "Codigo Buscado")
b = InputBox("Favor indicar el Precio Actual", "Precio Actual")
c = Sheets.Count
For i = 1 To c - 1
On Error Resume Next
ActiveSheet.Next.Select
Columns("A:A").Select
Selection.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
fila = ActiveCell.Row
Range("B" & fila).Value = b
Next i
Sheets("Control").Select
End Sub
No olvides finalizar la pregunta
Sub actualiza()
Sheets("Control").Select
a = InputBox("Favor indicar el codigo a buscar", "Codigo Buscado")
b = InputBox("Favor indicar el Precio Actual", "Precio Actual")
c = Sheets.Count
For i = 1 To c - 1
On Error Resume Next
ActiveSheet.Next.Select
Columns("A:A").Select
Selection.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
fila = ActiveCell.Row
Range("B" & fila).Value = b
Next i
Sheets("Control").Select
End Sub
No olvides finalizar la pregunta
