rudykas

duainsulch respondió: Private Sub ComboBox2_Change() TextBox10.Value = Sheets("BD").range("H" & combobox2.listindex + 2).value TextBox11.Value = Sheets("BD").range("I" & combobox2.listindex + 2).value TextBox13.Value = Sheets("BD").range("L" & combobox2.listindex +...

Luis_P respondió: Por lo que comentas veo que solo te falta el progressbar '4c7569735f50 Bien, una vez incrustado este control ocx en el formulario, lo primero es establecer el min y el max del control ( valores de extremos, generalemnte desde cero a n) Asi si...

José Saúl Méndez Alonso respondió: Utiliza el evento BeforeClose del objeto Workbook Private Sub Workbook_BeforeClose(Cancel As Boolean) Cancel = -1 'esto sirve para que no se salga lo puedes condicionar End Sub