Macro que me busque un valor entre un rango y me sume 1 a una celda con un valor numérico
Quien me puede ayudar con una macro que pueda poner en una hoja de excel y que me busque un valor que capturo manual o por lector y si lo encuentra me sume el valor de 1 en la celda correspondiente del valor hallado y si no lo encuentra me salga un mensaje de código no existe: EJ
Me busque el valor de la celda A1 entre la columna B y si lo encuentra me sume 1 en la celda D1 y si no lo encuentra me muestre un aviso "código no encontrado"
Gracias
a b c d
{valor a buscar} 001 camisa 10
005F PANTALON 2
Visita mi canal:
-------------
Prueba la siguiente macro:
Sub bucar_valor()
Dim valor As Variant
Dim f As Range
'
valor = Range("A1").Value
If valor = "" Then
MsgBox "Escribe el valor a buscar en la celda A1"
Else
Set f = Range("B:B").Find(valor, , xlValues, xlWhole, , , False)
If Not f Is Nothing Then
Range("D" & f.Row).Value = Range("D" & f.Row).Value + 1
Else
MsgBox "Valor no encontrado"
End If
End If
End Sub----------
Te recomiendo los siguientes vídeos, ahí explico cómo utilizar el método Find:
Curso de macros. Metodo find completo. - YouTube
Curso de macros. Metodo find ejemplos. - YouTube
_________
Sal u dos Dante Amor
¡Gracias! Dante
Hola dante si me funciono, ¿pero puedo pedirte lago más? Como hago para que se ejecute automáticamente al dar enter o moverme de la celda A1 y después vuelva a quedar limpia la celda a! Y activa para seguir buscando otro dato... es que lo que quiero hacer es una especie de inventario con un lector de códigos.. gracias
Pon lo siguiente en los eventos de tu hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim valor As Variant
Dim f As Range
'
If Target.Count > 1 Then Exit Sub
If Target.Address(0, 0) = "A1" Then
valor = Target.Value
If valor = "" Then Exit Sub
'
Set f = Range("B:B").Find(valor, , xlValues, xlWhole, , , False)
If Not f Is Nothing Then
Range("D" & f.Row).Value = Range("D" & f.Row).Value + 1
Else
MsgBox "Código no encontrado"
End If
End If
End SubSigue las Instrucciones para poner la macro en los eventos de worksheet
- Abre tu libro de excel
- Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
- Del lado izquierdo dice: VBAProject, abajo dale doble click a worksheet(tu hoja)
4. En el panel del lado derecho copia la macro
Regrese a excel, modifica la celda A1, en automático se ejecuta la macro.
----------------------
Recomendaciones:
Curso de macros. Consejos para empezar a programar. - YouTube
