Fra tekst- og kombinations-bokse til liste vha. makro

Hvad mer du med, at de skal føjes til en liste? Hvor har du i givet fald listen.

mer = mener

Jeg mener en liste som Excel definerer en liste. Dvs. et seperat ark hvor der er kolonner med en overskrift til hvert datafelt. Lidt databaseagtigt kan man sige.

Sheets("Sheet2").Select
Range("B3").Select
ActiveCell.FormulaR1C1 = Text1.value

- og så fremdeles...?

Forstår jeg koden rigtigt:
Vælg arket "sheet2"
vælg cellen "B3"
Fyld indholdet af tekstboks "Text1" i denne celle

I så fald er det ikke det jeg ønsker. Det skal være sådan at hvis listen ser sådan ud:

NAVN  TLF
anders 113
joakim 999

Så skal indholdet af mine indtastningsbokse blive til en ny post nederst i listen:
indhold af bokse:  Højben 7913

Liste efter send:
NAVN  TLF
anders 113
joakim 999
højben 7913

Håber det afklarede lidt...
Lars

Nå ja, så er problemet blot at finde den næste ledige celle. Det kan du gøre sådan:

    Range("A65536").Select
    Selection.End(xlUp).Select

Hvis det er i kolonne A

Altså, forudsat, at det du kalder en "liste" blot er et andet sheet (f.eks. "sheet2")

Super! det prøver jeg at kode lidt på. Vender tilbage senere idag

Altså - hvis text1's indhold skal over i den næste ledige celle i kolonne A i arket Sheet2:


Sheets("Sheet2").Select
Range("A65536").Select
Selection.End(xlUp).Select
ActiveCell.FormulaR1C1 = Text1.value

Du kan tilføje

Application.Screenupdate = false

Og

Application.Screenupdate = true

i hhv. top og bund af koden, hvis du ikek vil se skærmen flimre, mens du kopierer

Det virker næsten som det skal, bortset fra at dataene bliver placeret i den sidste celle der er noget i, i stedet for den første celle der ikke er noget i. Jeg er desværre ikke vant til at kode i VBA, så jeg kan ikke gennemskue hvor jeg skal lægge en til for at komme videre til næste række.... Håber du kan hjælpe

Og foresten: "Application.Screenupdate" virker ikke. Er det mon fordi min Excel er nummer 2000 istedet for 2003? ikke fordi det er så vigtigt, bare lidt nysgerrig...

Lars

Der skal stå application.ScreenUpdating ...

Mht. den forkerte række - brug

Cells(ActiveCell.Row + 1, ActiveCell.Column).FormulaR1C1 = Text1.value


Altså

application.ScreenUpdating = false
Sheets("Sheet2").Select
Range("A65536").Select
Selection.End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column).FormulaR1C1 = Text1.value
application.ScreenUpdating = true


Det er ikke helt køn programmering, men det er du vel ligeglad med - når det ikke er større gør det ikek noget. Ville normalt bruge direkte adresser (cells(i,j)), og så variere på 'i' og 'j' i stedet for at bruge activecell osv.

svar

Jeg løste problemet således:
ActiveCell.Offset(1, 0).FormulaR1C1 = Ark1.Navn.Value

Tusind tak for hjælpen. Smid et svar martin_moth, så du kan få nogle point

Lars

Dette burde også kunne gøre jobbet,




Private Sub CommandButton1_Click()
    'skriv hvor mange boxe der er
    Const lBoxe As Long = 3
    Dim arr(1 To 1, 1 To lBoxe)
    'hent alle data fra textboxene ind i et array
    arr(1, 1) = TextBox1.Value
    arr(1, 2) = TextBox2.Value
    arr(1, 3) = TextBox3.Value
    'overfør resultatet til sidate tomme linie på ark2
    Sheets(2).Range("A65536").End(xlUp).Offset(1, 0).Resize(, lBoxe) = arr()
End Sub

sådan kan det gå når man ikke opdaterer :-)