Avatar billede jokerper Nybegynder
03. april 2007 - 13:40 Der er 9 kommentarer og
1 løsning

Hjælp/ideer til oprettelse af 1 Listbox, 2 Checkboxe, 13 Textbox

Jeg har et ark som indeholder data fra A:AP i mange rækker
Userformen er opbygget med 1 Listbox, 2 Checkboxe, 13 Textboxe.

Listboxen skal slå op i rækker og udvælge data i hele kolonnen alt efter hvilken checkbox som er markeret / dette kunne være begge checkboxe og indsætte dem i bestemte textboxe fra 1-13.

Eks.

Listbox

Checkbox 1                    Checkbox 2
    X

Tekstbox 1            Tekstbox 7
Tekstbox 2            Tekstbox 8
Tekstbox 3            Tekstbox 9
osv.                  osv.
Avatar billede supertekst Ekspert
03. april 2007 - 14:09 #1
Hvad står der i Listbox'en - nr. for række?
Checkbox1 = Textbox1-6 - resten under Checkbox2?
Avatar billede jokerper Nybegynder
03. april 2007 - 14:31 #2
Jeg har en listbox med kolonne A (= datoer). Det er så meningen, der på baggrund af datoen skal udvælges en hel række (A:AP opdelt ved navnefelter)

Disse skal indsættes i tekstboksene fra 1-6 i venstre side (checkbox 1)
og
7-13 i højre side (Checkbox 2).

Hver Tekstbox skal derfor indeholde "måske" 2 kolonner - ikke tekstbox 6 og 13 som skal være i en linie.

(Det hele er lavet på en userform med multipage Page1) og Page 2 bruges til noget andet.
Avatar billede jokerper Nybegynder
03. april 2007 - 14:41 #3
Det er så meningen, der på baggrund af datoen skal udvælges en hel række (A:AP opdelt ved navnefelter) "Selvfølgelig kun B:AP"
Avatar billede supertekst Ekspert
03. april 2007 - 14:56 #4
Navnefelter ??
Avatar billede jokerper Nybegynder
03. april 2007 - 15:06 #5
I selve arket (Ark4) har jeg markeret udvalgte felter og defineret navne. Men jeg vist godt se at det ikke virker.
Avatar billede supertekst Ekspert
03. april 2007 - 15:25 #6
Det kan godt være at navnefelter vil fungere - men det jeg er i tvivl om er følgende:

B-AP er 51 kolonner - hvordan skal disse celler placeres?
Du nævner også 2 kolonner?

Du får lidt kode til inspiration (I userformen).....

Private Sub CommandButton1_Click()                  'når dato er valgt og Ok-knappen aktiveres
Dim ix

    If ListBox1.ListIndex <> -1 Then
        With Me
            ix = .ListBox1.ListIndex + 1
            .TextBox1 = Cells(ix, 2)        'kolonne B
            .TextBox2 = Cells(ix, 3)        '- C
            .TextBox3 = Cells(ix, 4)        '- D o.s.v
            .TextBox4 = Cells(ix, 5)
            .TextBox5 = Cells(ix, 6)
        End With
    End If
End Sub
Private Sub userform_activate()
    indSætdatoer
   
    Me.CheckBox1.Value = False
    Me.CheckBox2.Value = False
   
End Sub
Private Sub indSætdatoer()
Dim antalRæk
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    Me.ListBox1.Clear
   
    For r = 1 To antalRæk
        Me.ListBox1.AddItem Format(Cells(r, 1), "dd-mm-yyyy")
    Next r
End Sub
Avatar billede jokerper Nybegynder
03. april 2007 - 22:13 #7
Jeg har siddet og rodet lidt med det og fundet en anden løsning.

Løsning: ny opbygning og nyt spørgsmål kommer.
Avatar billede supertekst Ekspert
03. april 2007 - 22:51 #8
ok - så synes jeg du skal lukke dette spørgsmål...
Avatar billede jokerper Nybegynder
03. april 2007 - 23:22 #9
Supertekst: Du gav mig nogle ideer - så jeg vil gerne give dig 50 point - er det okay?
Avatar billede supertekst Ekspert
04. april 2007 - 11:33 #10
OK
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