Userform búsqueda y modificación en excel
Para Dante Amor.
En la preguntar anterior resulta por ti de manera excelente me creaste un formulario del cual anexo imagen, esta vez necesito un formulario parecido, del mismo archivo que te envié, que luego de que me busque la fecha, en el userform en el costo de la tonelada y valor del incentivo, me muestre que valores tengo registrados en la hoja para tal fecha, para tener la opción de modificar los valores.
Cordial Saludo.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para el botón Consultar:
Private Sub CommandButton3_Click()
'Por.Dante Amor
'Consultar
Dim fec As Date
If TextBox1 = "" Then
MsgBox "Falta la fecha", vbexclamtion, "ERROR"
TextBox1.SetFocus
Exit Sub
End If
If Not IsDate(TextBox1) Then
MsgBox "No es una fecha válida", vbexclamtion, "ERROR"
TextBox1.SetFocus
Exit Sub
End If
'
fec = TextBox1
existe = False
For i = 10 To Range("J" & Rows.Count).End(xlUp).Row
If Cells(i, "J") = fec Then
existe = True
Exit For
End If
Next
'
If existe Then
TextBox2 = Cells(i, "M")
TextBox3 = Cells(i, "P")
Else
MsgBox "La fecha no existe"
End If
End Sub
'
Private Sub TextBox1_Change()
'Por.Dante Amor
TextBox2 = ""
TextBox3 = ""
End Sub':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
Te anexo la macro actualizada para consultar
Private Sub CommandButton3_Click()
'Por.Dante Amor
'Consultar
Dim fec As Date
If TextBox1 = "" Then
MsgBox "Falta la fecha", vbexclamtion, "ERROR"
TextBox1.SetFocus
Exit Sub
End If
If Not IsDate(TextBox1) Then
MsgBox "No es una fecha válida", vbexclamtion, "ERROR"
TextBox1.SetFocus
Exit Sub
End If
'
fec = TextBox1
existe = False
For i = 10 To Range("J" & Rows.Count).End(xlUp).Row
If Cells(i, "J") = fec Then
existe = True
Exit For
End If
Next
'
If existe Then
TextBox2 = Format(Cells(i, "M"), "#,##0.00")
TextBox3 = Format(Cells(i, "P"), "#,##0.00")
Else
MsgBox "La fecha no existe"
End If
End Sub':) 'S aludos. D a n t e A m o r . R ecuerda valorar la respuesta. G racias ':)
