Avatar billede ParZiwal Juniormester
26. september 2020 - 15:03 Der er 20 kommentarer og
1 løsning

vba problem med at vist tekst i mine userforms

hej excel experter :)
jeg er ved at lave nogle userforms i det samme modul
min userform virker hele tiden men der vises intet i mine dropdown
menuer
mit problem er at det kun virker nogle gange :(
og det er når jeg trykker på debugger (compile vba project)
reset knappen og trykker på run så kan jeg trykke på kanppen jeg har lavet i mit excle ark og alt det virker som det skal

håber i kan hjælpe mig
på forhånd tak

mvh
per

ps kan man ikke uplaode et excel ark her???
Avatar billede Marting Forsker
26. september 2020 - 16:08 #1
Ligger du det op?
Avatar billede ParZiwal Juniormester
26. september 2020 - 16:18 #2
jo det vil jeg derne men hvordan XD
Avatar billede Marting Forsker
26. september 2020 - 16:27 #3
Jeg bruger Dropbox  ;-)
Avatar billede ParZiwal Juniormester
26. september 2020 - 16:34 #4
ok og hvordan hjælper det mig med at uploade det til computerworld??
eller har du en mail jeg kan sende det til ??
Avatar billede Marting Forsker
26. september 2020 - 16:57 #7
Så lang så godt  : -)

Tænker der skal noget call til at hente noget i modul
Avatar billede Marting Forsker
26. september 2020 - 17:01 #8
Ark Database :

B2
B24

skal komme frem  i Cnc Nr.
Avatar billede ParZiwal Juniormester
26. september 2020 - 17:04 #9
det jeg vælger i listbox cnc-nr skal lægges ind i b2 til B??
Avatar billede ParZiwal Juniormester
26. september 2020 - 17:10 #10
jeg har et andet ark som virker som det skal det er bare i multipage og nu vil jeg så lave det så det er i vinduer i stedet for multipage men så er det at mine listbox kun virker nogle gange
skal jeg uploade det så er
det måske nemmere at se?
Avatar billede Marting Forsker
26. september 2020 - 17:33 #11
Private Sub UserForm_Initialize()

ComboBox1.List = Worksheets("Database").Range("B2:B24").Value

End Sub
Avatar billede Marting Forsker
26. september 2020 - 17:36 #12
ParZiwal  >

Hmm jeg tror det er best  : -)

Jeg er nok ikke den store udvikler  hej  :-)

dem der kan det der skal nok have det hele  tænker jeg  ;-)
med den kode oven over der skete  lidt  : -)
Avatar billede Marting Forsker
26. september 2020 - 17:38 #13
Den her henter ind i list boxen  fra Database arket B2:B24
 

Private Sub UserForm_Initialize()

ComboBox1.List = Worksheets("Database").Range("B2:B24").Value

End Sub
Avatar billede Marting Forsker
26. september 2020 - 17:45 #14
Ved ikke om S. No A1-A24 men skulle kunne vælge noget der ?
Avatar billede ParZiwal Juniormester
26. september 2020 - 17:50 #15
tror du er inde på lidt af det rigtige men det skal ikke hentes ind i listboxen men fra listboxen og ind i arket :)jeg har i listboxen
cnc-1
cnc-2
cnc-3
cnc-4 osv osv

det vises bare ikke
alt det der tastes ind i frm2platter skal gemmes i ark database
Avatar billede ParZiwal Juniormester
26. september 2020 - 18:10 #16
det var mig der lagde forkert ind :) de tskal se sådan ud og lægges ind under frm2platter form og ikke i modulet :)

tudsinde tak for hjælpen

Private Sub UserForm_Initialize()


    Dim irow As Long
   
    irow = [Counta(Database!A:A)] ' idetifying the last row
   
    With frm2Platter
   
    frm2Platter.cmbCncnr2.Clear
       
        frm2Platter.cmbCncnr2.AddItem "CNC-1"
        frm2Platter.cmbCncnr2.AddItem "CNC-2"
        frm2Platter.cmbCncnr2.AddItem "CNC-3"
        frm2Platter.cmbCncnr2.AddItem "CNC-4"
        frm2Platter.cmbCncnr2.AddItem "CNC-5"
        frm2Platter.cmbCncnr2.AddItem "CNC-6"
        frm2Platter.cmbCncnr2.AddItem "CNC-7"
        frm2Platter.cmbCncnr2.AddItem "CNC-8"
        frm2Platter.cmbCncnr2.AddItem "CNC-11"
        frm2Platter.cmbCncnr2.AddItem "CNC-12"
        frm2Platter.cmbCncnr2.AddItem "CNC-13"
        frm2Platter.cmbCncnr2.AddItem "CNC-14"
        frm2Platter.cmbCncnr2.AddItem "CNC-15"
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
        frm2Platter.cmbCncnr2.AddItem ""
       
'MASKINE NR
    frm2Platter.cmbMaskine2.Clear
   
        frm2Platter.cmbMaskine2.AddItem "CMS"
        frm2Platter.cmbMaskine2.AddItem "KARAT"
        frm2Platter.cmbMaskine2.AddItem "MASTER FLEX"
        frm2Platter.cmbMaskine2.AddItem "GAMMEL WEEKE"
        frm2Platter.cmbMaskine2.AddItem "NY WEEKE"
        frm2Platter.cmbMaskine2.AddItem "CMS ARES"
        frm2Platter.cmbMaskine2.AddItem "PRO EVOLUTION"
        frm2Platter.cmbMaskine2.AddItem "CONTUREX 114"
        frm2Platter.cmbMaskine2.AddItem "PADE"
        frm2Platter.cmbMaskine2.AddItem "CONTUREX 125"
        frm2Platter.cmbMaskine2.AddItem "FULLTEK 3+4"
        frm2Platter.cmbMaskine2.AddItem "FULLTEK 6"
        frm2Platter.cmbMaskine2.AddItem "FULLTEK 5"
        frm2Platter.cmbMaskine2.AddItem "DOBBELTTAPPER"
        frm2Platter.cmbMaskine2.AddItem "EVO-JET"
        frm2Platter.cmbMaskine2.AddItem "KOPIFRÆSER"
        frm2Platter.cmbMaskine2.AddItem "SINGLE-JET"
        frm2Platter.cmbMaskine2.AddItem "Grønne maskiner"
        frm2Platter.cmbMaskine2.AddItem "Grøn fræser ved c125"
        frm2Platter.cmbMaskine2.AddItem "Grøn fræser ved c114"
        frm2Platter.cmbMaskine2.AddItem ""
        frm2Platter.cmbMaskine2.AddItem ""
        frm2Platter.cmbMaskine2.AddItem ""
        frm2Platter.cmbMaskine2.AddItem ""
        frm2Platter.cmbMaskine2.AddItem ""
        frm2Platter.cmbMaskine2.AddItem ""
       
'VØRKTØJS NR
        frm2Platter.txtVærktøjsNr2.Value = ""
       
'OFFSET NR
        frm2Platter.txtOffsetNr2.Value = ""
       
'PLATTE NR
        frm2Platter.txtPlatteNr2.Value = ""

'DIAMETER
        frm2Platter.txtDiameter2.Value = ""

'RETNING CW
        frm2Platter.optCw2.Value = False

'RETNING CCW
        frm2Platter.optCcw2.Value = False
       
'BEMÆRKNING
        frm2Platter.txtBemærkning2.Value = ""
   
'RÆKKE NR
        frm2Platter.txtRækkenr2.Value = ""
   
End With



End Sub
Avatar billede Marting Forsker
26. september 2020 - 18:18 #17
Det kunne godt være der skal nogen proffer til  :-)
Avatar billede Marting Forsker
26. september 2020 - 18:26 #18
Ja nu kom det ind  : -)
er det kun de data der skal bruges?
Avatar billede Marting Forsker
26. september 2020 - 18:27 #19
Måske de skulle ind i et hjælpe ark  : -)
Avatar billede Marting Forsker
26. september 2020 - 18:30 #20
Så alt den kode data  kommer over i et hjælpe ark  : -)
så man kunne ubygge så men ikke skal ind i koden  : -)
Avatar billede ParZiwal Juniormester
26. september 2020 - 18:53 #21
der er meget mere data som skal passes ind men det her var lige det som drillede nu og her :)
god ide jeg vil prøve og se om det fungere
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
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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