Crear Bucle para actualizar Datos
Tengo el siguiente codigo el cual funciona bien para actualizar pero deseo que me actualize todos los registros que cumplan con el requisito de busqueda creo se debe crear un bucle para que si tengo 10 registros que coincidan con los criterios me actualize todo al mismo tiempo.
Private Sub btn_autoriza_Click()
Set h = Sheets("REPORT_FALLAS")
'busca el folio con Find
Set b = h.Columns("D").Find(Me.txt_placa, LookAt:=xlWhole)
Set c = h.Columns("F").Find(Me.txt_periodo, LookAt:=xlWhole)
Set d = h.Columns("G").Find(Me.txt_ciclo.Text, LookAt:=xlWhole)
If Not b Is Nothing _
And Not c Is Nothing _
And Not d Is Nothing Then
Fila = b.Row
h.Cells(Fila, "P").Value = ComboBox1 'actualiza estatus de la solicitud
h.Cells(Fila, "Q").Value = Date 'fecha de autorizacion
h.Cells(Fila, "S").Value = txt_comentarios 'fecha de autorizacion
Else
MsgBox "No existe el folio"
End If
MsgBox "Registro Actualizado!", vbInformation, "Sistema Reporte Diario"
Unload Me
End Sub
1 Respuesta
Respuesta de Adriel Ortiz Mangia
[Hola
haber prueba esto
Private Sub btn_autoriza_Click()
Set h = Sheets("REPORT_FALLAS")
'busca el folio con Find
'
Set r1 = h.Columns("D")
Set b1 = r1.Find(Me.txt_placa, LookAt:=xlWhole)
Set r2 = h.Columns("F")
Set b2 = r2.Find(Me.txt_periodo, LookAt:=xlWhole)
Set r3 = h.Columns("G")
Set b3 = r3.Find(Me.txt_ciclo.Text, LookAt:=xlWhole)
'
If Not b1 Is Nothing _
And Not b2 Is Nothing _
And Not b3 Is Nothing Then
fila = b1.Row
'
Do
h.Cells(fila, "P").Value = ComboBox1 'actualiza estatus de la solicitud
h.Cells(fila, "Q").Value = Date 'fecha de autorizacion
h.Cells(fila, "S").Value = txt_comentarios 'fecha de autorizacion
Set b1 = r1.FindNext(b1)
Loop While Not b1 Is Nothing And b1.Row <> fila
Else
MsgBox "No existe el folio"
End If
MsgBox "Registro Actualizado!", vbInformation, "Sistema Reporte Diario"
Unload Me
End Sub
