Buscar con macro un valor que cumpla con dos criterios de búsqueda
Tengo una tabla de la siguiente forma
Productos codigo Septiembre Octubre..
A 1 Guardado
B 2 guardado
C 3 NO guardado
Lo que quiero que haga la macro es que busque en la columna de productos y meses si hay conicidencia. Me explico
Son muchos productos que se les toma muestra y se guardan una vez al mes, el punto es que el producto se fabrica muchas veces al mes y a veces no se sabe si se guardó o no la muestra y hay que buscar las muestras y verificarlo y resulta tedioso.
Lo que quiero es verificar a través de una planilla si está guardado o no.
La primera vez que se fabrica en el mes se escribe guardado, los demás productos se mantienen como no guardados por defecto.
Si luego de dos o tres semanas se vuelve a fabricar, lo que quiero es que busque si el producto, en el mes de septiembre, por ejemplo, está guardado o no y que me lo diga con un msgbox y que me de la opción de cambiar de no guardado a guardado, cuando encuentre un producto no guardado.
Lo he intentado y No me resulta, porque necesito que busque dos criterios, el producto (ingresándolo con inputbox) y el mes, o la columna del mes, en este caso septiembre, también con ingreso inputbox. Si quiero el mes de octubre, entonces, cuando me pregunte el mes de búsqueda escribo octubre y buscará si el producto que especifiqué esta guardado o no guardado en el mes de octubre.
Si está guardado que me diga, el producto ya está guardado, si no, que me diga, el producto no ha sido guardado, guardalo ahora. Desea cambiar de no guardado a guardado si o no, y una vez se haya guardado la muestra se pone si y automaticamente se cambia.
1 respuesta
H o l a:
Envíame tu archivo y te preparo un formulario. En el archivo, me explicas con un ejemplo cómo sería la mecánica o el procedimiento, ya que tengo la duda, si el producto fue fabricado en Agosto, y tu quieres saber si fue guardado en octubre, ¿entonces qué solamente se realice la búsqueda en octubre?
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “Sebastián Villarroel” y el título de esta pregunta.
Muchas gracias mi amigo. Te envié el archivo a tu correo. Saludos
Te anexo el código para el formulario.
Private Sub ComboBox1_Change()
'Por.Dante Amor
ponerestatus
End Sub
'
Sub ponerestatus()
'Por.Dante Amor
Label4 = ""
CommandButton1.Enabled = False
If ComboBox1 = "" Or ComboBox2 = "" Then Exit Sub
'
Set h1 = Sheets("Hoja1")
Set b = h1.Columns("B").Find(ComboBox1, lookat:=xlWhole)
If Not b Is Nothing Then
fila = b.Row
Set b = h1.Rows(1).Find(ComboBox2, lookat:=xlWhole)
If Not b Is Nothing Then
Label4 = h1.Cells(fila, b.Column)
If Label4 <> "GUARDADA" Then
CommandButton1.Enabled = True
End If
End If
End If
End Sub
'
Private Sub ComboBox2_Change()
'Por.Dante Amor
ponerestatus
End Sub
'
Private Sub CommandButton1_Click()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
If ComboBox1 = "" Or ComboBox2 = "" Then
MsgBox "Seleciona producto y mes"
Exit Sub
End If
fila = ComboBox1.ListIndex + 2
Columna = ComboBox2.ListIndex + 4
h1.Cells(fila, Columna) = "GUARDADA"
CommandButton1.Enabled = False
Label4 = "GUARDADA"
MsgBox "Estatus cambiado", vbInformation
End Sub
'
Private Sub CommandButton2_Click()
'Por.Dante Amor
Unload Me
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
Set h1 = Sheets("Hoja1")
For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
ComboBox1.AddItem h1.Cells(i, "B")
Next
'
For i = Columns("D").Column To h1.Cells(1, Columns.Count).End(xlToLeft).Column
ComboBox2.AddItem h1.Cells(1, i)
Next
CommandButton1.Enabled = False
End Sub
