Oprettet fre. d. 28. september 2012 kl. 10:54:20

Tjen 30 point | 4 kommentarer

Perrito (1.580 point. Point ude: 30)

Find Excel Sheet som Application.GetOpenFilename

Hej

Jeg mangler en stump kode hvor jeg får en bruger til at pege på et sheet i en workbook.

Det skal gerne virke som når man benytter Application.GetOpenFilename, altså at koden stopper indtil brugeren har truffet sit valg.

På forhånd tak.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet fre. d. 28. september 2012 kl. 12:16:04| #1

tjp (35.851 point)

Du ku bruge en Userform med en Listbox a la:

Private Sub ListBox1_Change()
MsgBox ListBox1.Text
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim i
For i = 1 To ThisWorkbook.Sheets.Count
ListBox1.AddItem ThisWorkbook.Sheets(i).Name
Next
End Sub

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet fre. d. 28. september 2012 kl. 13:15:37| #2

Perrito (1.580 point)

Hej

Tak for dit indspark, men det var ikke helt det jeg var på udkik efter.

Det jeg har brugfor er, at en bruger midt i en macro bliver promptet for at vælge/udpege et sheet. Altså at koden standser og venter på at et valg bliver foretager.

Jeg kan desværre ikke helt få din kode til at flyde sådan, men tak alligevel.

Anmeld misbrug

Skriv et svar | Skriv en kommentar

Skrevet fre. d. 28. september 2012 kl. 15:23:03| #3

tjp (35.851 point)

Så er det fordi du ikke har prøvet hårdt nok, hehe!! ;-)

Du har oprettet en Userform1 med en ListBox1 på og skrevet de to procedurer, right?

På det sted i din makro, hvor du ønsker at spørge brugeren, indsætter du blot:

UserForm1.Show

og vupti - så popper userformen frem og venter på input før makro kører videre...

Anmeld misbrug

Skriv et svar | Skriv en kommentar