Nu stiu ce gresesc in codurile din workbookul atasat, dar nu functioneaza asa cum imi doresc.
Ce as dori:
- la lansare sa deschida userform iar excel sa nu fie vizibil - asta merge
- in cazul in care in lstCodDoc nu este selectat nimic, sa dea msgbox cu eroare - nu merge. Ceva este gresit sau ceva lipseste in codul meu. Imi da Runtime error 9 si daca apas pe Debug imi marcheaza cu galben linia Sheets(sht).Activate
- dupa eroare in loc sa ramana userformul deschis pentru a selecta ceva in lstCodDoc, acesta se ascunde si se deschide excel. Eu as dori ca dupa eroare, sa reapara userform pentru a selecta ceva in lstCodDoc.
Cod: Selectaţi tot
Private Sub cmdOpenSheet_Click()
If frmOpenSheet.lstCodDoc.Value = "" Then
MsgBox "Selecteaza codul documentului", vbCritical
Else
Dim i As Integer, sht As String
For i = 0 To lstCodDoc.ListCount - 1
If lstCodDoc.Selected(i) = True Then
sht = lstCodDoc.List(i)
End If
Next i
Sheets(sht).Activate
End
End If
Application.Visible = True
Unload Me
End Sub
- dupa vizualizarea sheetului, la click pe cmdOpenUserform ar trebui sa deschida userform si sa ascunda excel - acum deschide userform dar excel ramane vizibil.
Unde gresesc?
Multumesc.