16. april 2007 - 13:43Der er
2 kommentarer og 1 løsning
Menu i excel - valg af personer!
Hej alle,
jeg har brug for hjælp med noget VBi excel,er begynder på området men har svært ved nogle ting!
Jeg har et Menu ark med alle knapper,og har et ark med noget data,f.eks oversigt over alle sponsorer!
Nu vil jeg gerne ha' et knap,nås man så trykker på den,så får man et pop-up menu med de forskellige personer,og når man så vælger en af dem og trykker OK,så skal deres data vises i et andet ark§Er det muligt??
Indtil videre har jeg et knap,og sponsorene kommer op,men når jeg så vælger en af dem,og trykker OK,så sker der intet?!?
Her er koden:
Private Sub CmdSponsor_Click() UfmSponsor.Show
End Sub
Private Sub CmdOK_Click() 'ved klik på OK Rem hvis element er udpeget If Me.LstProcessSponsor <> -1 Then navn = Me.LstProcessSponsor End If End Sub
Private Sub Userform_Activate() With LstProcessSponsor .RowSource = "ProcessSponsor" .ListIndex = 0 End With End Sub
Et nyt nationalt initiativ fra Industriens Fond, EIFO og Innovationsfonden – eksekveret af DTU Science Park og Teknologisk Institut– skal bygge bro mellem startups, SMV’er og Forsvaret.
Rem ProcessSponsor Rem ============== Private Sub CmdOK_Click() 'ved klik på OK Rem hvis element er udpeget If Me.LstProcessSponsor <> -1 Then findSponsorDB Me.LstProcessSponsor, 3 'række 3 = C
ActiveWorkbook.Sheets("ProcessSponsor").Activate Unload UfmSponsor End If End Sub Private Sub LstProcessSponsor_Click() 'ved klik i listbox
End Sub Private Sub Userform_Activate() With LstProcessSponsor .RowSource = "ProcessSponsor" .ListIndex = 0 End With End Sub Private Sub findSponsorDB(navn, kolonne) Dim arkRæk arkRæk = 5 Rem Slet gl. indhold On Error Resume Next ActiveWorkbook.Sheets("ProcessSponsor").Range("A5:F54").Select Selection.ClearContents
With ActiveWorkbook.Sheets("Database") For ræk = 5 To 65500 If .Cells(ræk, kolonne) = "" Then Exit Sub Else If .Cells(ræk, kolonne) = navn Then ActiveWorkbook.Sheets("ProcessSponsor").Cells(arkRæk, 1) = .Cells(ræk, 3) 'kolonne C ActiveWorkbook.Sheets("ProcessSponsor").Cells(arkRæk, 2) = .Cells(ræk, 12) '- L ActiveWorkbook.Sheets("ProcessSponsor").Cells(arkRæk, 3) = .Cells(ræk, 8) '- H
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
