Maro Excel: Buscar valor de una celda variable
Tal como lo describí, tengo una columna "A" de códigos seguida de una columna "B" con valores (1,2,3, etc)
Necesito una celda donde introducir un código, este sea buscado en la columna "A" y sume 1 al valor de la columna "B" correspondiente a la fila de ese código.
Ojalá puedan ayudarme. Gracias de antemano. Víctor
Necesito una celda donde introducir un código, este sea buscado en la columna "A" y sume 1 al valor de la columna "B" correspondiente a la fila de ese código.
Ojalá puedan ayudarme. Gracias de antemano. Víctor
1 Respuesta
Respuesta de Elsa Matilde
1
Copiá la siguiente rutina en el editor . Entrá con Alt+F11, insertá un módulo y allí la copiás.
Desde la hoja podes acceder a la macro con algún botón (ver *), atajo de teclado (ver *) o desde menú Herramientas, macros, seleccionándola de la lista.
Sub BuscaySuma()
dato = ActiveSheet.Range("F1")
Set busco = ActiveSheet.Range("A:A").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not (busco) Is Nothing Then 'significa que lo encontró
busco.Offset(0, 1).Value = busco.Offset(0, 1).Value + 1
End If
Set busco = Nothing
End Sub
(*) Encontrarás ayuda para estos temas en mi sitio de macros
Sdos
Elsa
Desde la hoja podes acceder a la macro con algún botón (ver *), atajo de teclado (ver *) o desde menú Herramientas, macros, seleccionándola de la lista.
Sub BuscaySuma()
dato = ActiveSheet.Range("F1")
Set busco = ActiveSheet.Range("A:A").Find(dato, LookIn:=xlValues, lookat:=xlWhole)
If Not (busco) Is Nothing Then 'significa que lo encontró
busco.Offset(0, 1).Value = busco.Offset(0, 1).Value + 1
End If
Set busco = Nothing
End Sub
(*) Encontrarás ayuda para estos temas en mi sitio de macros
Sdos
Elsa
