vba problem med at vist tekst i mine userforms

Ligger du det op?

jo det vil jeg derne men hvordan XD

Jeg bruger Dropbox  ;-)

ok og hvordan hjælper det mig med at uploade det til computerworld??
eller har du en mail jeg kan sende det til ??

https://www.dropbox.com/s/tidlg9psh6f9b10/CHS%20V%C3%A6rkt%C3%B8js%20Database%20-%20Kopi%20%282%29.xlsm?dl=0

https://www.dropbox.com/scl/fi/mpx2n5r2ux3oy536984ok/CHS-V-rkt-js-Database-Kopi-2.xlsm?dl=0&rlkey=hhkyxu6rxcxszulaorafhsks1

Så lang så godt  : -)

Tænker der skal noget call til at hente noget i modul

Ark Database :

B2
B24

skal komme frem  i Cnc Nr.

det jeg vælger i listbox cnc-nr skal lægges ind i b2 til B??

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?

Private Sub UserForm_Initialize()

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

End Sub

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  : -)

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

Ved ikke om S. No A1-A24 men skulle kunne vælge noget der ?

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

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

Det kunne godt være der skal nogen proffer til  :-)

Ja nu kom det ind  : -)
er det kun de data der skal bruges?

Måske de skulle ind i et hjælpe ark  : -)

Så alt den kode data  kommer over i et hjælpe ark  : -)
så man kunne ubygge så men ikke skal ind i koden  : -)

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