Avatar billede FroZties Nybegynder
22. december 2010 - 09:24 Der er 13 kommentarer og
1 løsning

Få en MSGbox til at visse specifikke celler?

Jeg ved ikke om dette kan lade sig gøre, og det behøver ikke kun at være i form af en msgbox.

Jeg har lavet et madprogram hvor man kan indtaste madvarer hvor der popper en pris op automatisk da den kigger i en database, det kræver dog man skriver præcis det mad"ord" som er i databasen, derfor vil jeg gerne lave en knap hvor der popper en msgbox op med de "koder" dvs. de madvarer man kan skrive, dvs. den msgbox skal kunne visse Celle A2 til Celle A100 i mit Data! ark, kan det lade sig gøre?
Avatar billede supertekst Ekspert
22. december 2010 - 09:33 #1
En userform (VBA dialogboks) kunne være en mulighed
Avatar billede FroZties Nybegynder
22. december 2010 - 10:23 #2
Ehh ja? Hvordan kunne den se ud, kan du evt. lave et udkast så jeg kan prøve den af? Har aldrig lavet en Userform før...
Avatar billede supertekst Ekspert
22. december 2010 - 10:28 #3
Ja - prøv at sende dit regneark. @-adresse under min profil.
Avatar billede FroZties Nybegynder
22. december 2010 - 10:36 #4
Så er det sendt til supertekst@it.dk

Det er de MsgBox'e som er under inspiration, som skal kunne poppe op med de "madord" man kan skrive, som ses i Data arket
Avatar billede FroZties Nybegynder
22. december 2010 - 10:38 #5
Hov, fandt den rigtige email adresse nu...
Avatar billede supertekst Ekspert
22. december 2010 - 11:40 #6
VBA kode i Userform:

Private Sub UserForm_activate()
Dim dataArk As Worksheet, ræk As Integer
    Set dataark = ActiveWorkbook.Sheets("Data")
   
    Me.ComboBox1.Clear
   
    With dataark
        For ræk = 2 To 100
            If .Range("A" & ræk) <> "" Then
                Me.ComboBox1.AddItem .Range("A" & ræk)
            End If
        Next ræk
    End With
   
    Me.ComboBox1.DropDown
End Sub
Avatar billede FroZties Nybegynder
22. december 2010 - 11:54 #7
Kan det passe den brokker sig over: Me.ComboBox1.Clear?
Avatar billede supertekst Ekspert
22. december 2010 - 12:01 #8
Jeg har ikke erkendt nogen problem under testen
Avatar billede FroZties Nybegynder
22. december 2010 - 12:03 #9
Jeg har fundet ud af det nu, tusind tak for hjælpen!
Avatar billede supertekst Ekspert
22. december 2010 - 13:20 #10
Hvad var problemet?
og selv tak....
Avatar billede FroZties Nybegynder
22. december 2010 - 15:58 #11
Jeg havde kommet til at rode lidt rundt i koden, også var kommet et tegn ind som ikke skulle være der, så der var min egen brøler :)
Avatar billede supertekst Ekspert
22. december 2010 - 16:08 #12
ok tak - god jul..
Avatar billede FroZties Nybegynder
22. december 2010 - 16:22 #13
Lige over! Et sidste spg. hvis jeg vil tilføje en en knap som lukker vinduet med dialogboksen, hvad skal der så stå af kode inde i knappen, hvis du altså kan  svare på det? Har googlet lidt og fundet noget med:

me.unload

men synes ikke det funker...
Avatar billede supertekst Ekspert
22. december 2010 - 18:13 #14
Kunne x-knappen ikke anvendes?

Ellers:

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_activate()
Dim dataArk As Worksheet, ræk As Integer
    Set dataark = ActiveWorkbook.Sheets("Data")
   
    Me.ComboBox1.Clear
   
    With dataark
        For ræk = 2 To 100
            If .Range("A" & ræk) <> "" Then
                Me.ComboBox1.AddItem .Range("A" & ræk)
            End If
        Next ræk
    End With
   
    Me.ComboBox1.DropDown
End Sub
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester