excel - vba

Hvilken kontekst indtaster du i? Er det i ark1 eller en form for dialogboks eller..

jeg kan godt nøjes med at bruge celler i ark 1

Hvad er det så VBA skal udfører?

Måske sætte i den første tomme række i kolonne A?

jeg kan ikke lige løse hvordan jeg får (rapport 1) om i række 1 på ark2, og (rapport 2) om på række 2 på ark2 osv det vil løbende blive op til nogle hundrede rapporter..

D.v.s. at du indtaster på ark1 og rækken skal så flyttes/kopieres over i første ledige række på ark2?

Ellers er du velkommen til at sende en model - @-adresse under min profil.

ark2:
=sammenkædning(a1;a2;a3 osv..)

Er Excel indbyggede funktion "Formular" ikke en mulighed?
Eks.: http://gupl.dk/686005/

hej, jeg har lige prøvet at sende en klade til dig, som beskriver hvad jeg har brug for, jeg er ikke tilbage på arbejde før torsdag, så jeg ser ikke eventuelle svar før

Kladen er sendt til supertekst.
store-morten, jeg kender ikke "formular" men vil se om det er på min computer.

Send evt. til mig også.

Const kol1 = "B4,B6,B8,B10,B12,B14"
Const kol2 = "E4:E21"
Const kol3 = "G4"
Dim tabel As Variant

Const ark1Navn = "Indtast"

Const ark2Navn = "overførte data"
Dim sidsteRække As Long, kolonneNr As Integer
Private Sub CommandButton1_Click()
    Sheets(ark2Navn).Activate
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    Application.ScreenUpdating = False
   
    Sheets(ark1Navn).Activate
    kolonneNr = 1
    overFørKolonne1 kolonneNr                  'kolonne B
    overFørkolonne2 kolonneNr                  'kolonne E
    overFørBemærkning kolonneNr                'kolonne G

    sletIndtastning
End Sub
Private Sub overFørKolonne1(kolonneNr)
    tabel = Split(kol1, ",")
    For t = 0 To UBound(tabel)
        Range(tabel(t)).Copy
        overførTilData kolonneNr
    Next t
   
    Sheets(ark1Navn).Activate
    Application.CutCopyMode = False
End Sub
Private Sub overFørkolonne2(kolonneNr)
Dim cc
    For Each cc In Range(kol2).Cells
        cc.Copy
        overførTilData kolonneNr
    Next cc
   
    Sheets(ark1Navn).Activate
    Application.CutCopyMode = False
End Sub
Private Sub overFørBemærkning(kolonneNr)
    Range(kol3).Copy
    overførTilData kolonneNr
   
    Sheets(ark1Navn).Activate
    Application.CutCopyMode = False
End Sub
Private Sub overførTilData(kolonneNr)
    Sheets(ark2Navn).Activate
    ActiveSheet.Cells(sidsteRække + 1, kolonneNr).Select
    ActiveSheet.Paste
    kolonneNr = kolonneNr + 1
End Sub
Private Sub sletIndtastning()
    For t = 0 To UBound(tabel)
        Range(tabel(t)).ClearContents
    Next t

    For Each cc In Range(kol2).Cells
        cc.ClearContents
    Next cc

    Range(kol3).ClearContents
End Sub

det kan jeg godt bruge, tak for hjælpen, du får lige mine point

Selv tak - men du tog selv points.....

Hvis du vil give point - så opretter du et nyt spørgsmål med teksten: Points til Supertekst og med en henvisning til dette spørgsmål.