Brug af data fra msgbox i inputfelter
Hej...Jeg er ved at rode lidt med et fejlregistreringssystem. Systemet benyttes til indberetning af maskinfejl. Når brugeren vælger hvilket procestrin fejlen vedrører kommer der en msgbox indeholdende de 5 sidste fejlregisteringer på det valgte procestrin. Jeg vil gerne udbygge systemet med en funktionalitet som gør det muligt for brugeren at vælge en af de 5 sidste fejl i msgboxen. De valgte data skal så benyttes som værdier i inputfelterne.
Håber det gav mening ellers så spørg endelig.
Er der nogen der har en løsning/ide til hvordan dette kan implementeres?
Nuværende kode:
'Tjekker om der er oprettet en bemærkning til Procestrin i arket DATA
Private Sub cboProces_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim bemærk As String, ark As Worksheet
Application.ScreenUpdating = False
Sheets("Data").Unprotect Password:="123456789"
Set ark = ActiveWorkbook.Sheets("Data")
ark.Activate
antalræk = ActiveCell.SpecialCells(xlLastCell).Row
If Me.cboProces <> "" Then
bemærk = findesProces(startRæk, antalræk, Me.cboProces)
If bemærk <> "" Then
MsgBox ("De 5 nyeste " + Me.cboProces + "problemer" + vbCr + bemærk)
End If
End If
Sheets("Data").Protect Password:="123456789"
End Sub
