Använda informationen från en Listruta i efterföljande Macro

[Tommy H]

Hej!

Jag vill skapa en sökfunktion med hjälp av UserForm1 där användaren skirver in den text som skall sökas i arbetsboken. Texten skris in in en Listruta, och problemet är att jag inte "får över" den till efterföljande vba-kod som då innehåller sökvillkoren. Userformen är också försedd med en "Sök"-knapp och en "Avbryt"-knapp.

???

//Tommy

 

[Monshi]

Om det på ditt formulär finns enbart ett textfält och två knappar kan kanske ett InputForm vara en enklare väg till samma funktionalitet:

   res = InputBox("Ditt värde", "Ge ett värde", "0")

   MsgBox res

 

Annars får du väl göra något i stil med detta:

Ditt UserForm, dina två knappars kod:

Private Sub CommandButton1_Click()
   Me.Hide
End Sub


Private Sub CommandButton2_Click()
   Me.TextBox1.Text = ""
   Me.Hide
End Sub

där knapp 1 är OK-knappen och knapp 2 är avbryt.

 

En funktion för att hämta värdet:

Public Function value()
   value = Me.TextBox1.Text
End Function

Där jag antar att du har en textbox men det spelar ingen roll vad det är.

 

(borde gå att skapa ett formulär som fungerar som en dialog... ja, se här:

http://surl.se/vxd . Det finns tips i inlägg två där som leder dig rätt)

 

Och i blad-koden, eller den kod som startat formuläret:

UserForm1.Show
res = UserForm1.value
MsgBox res
Unload UserForm1

vilket ger för användaren samma funktion som InputBox.

 

 

Alternativt kan du från ditt Userform, när det stängs, anropa en funktion som tar hand om resultatet.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

[Tommy H]

Tackar för hjälpen!

Jag löste det med hjälp av en Inputbox som du föreslog med lite annat lull-lull också. Försökte dock att få till det med UserForm utförandet utan att lyckas...

/TH