Aneudys Martinez respondió:
Te falto finalizar la comparación Private Sub validar() Dim h, i Set h = Sheets("Programación") For i = 2 To h.Range("A" & Rows.Count).End(xlUp).Row Do While Cells(i, "C") <> Cmbxnombre.Text And Cells(i, "I") <> CDate(Txbxfecini) i = i + 1 'MsgBox...
Error al compilar: next sin for