Registratie formulier maken

[getyours]

Beste,

Ik wil graag een registratie formulier maken. In dit formulier staat een aantal cellen waar in je een tekst kan verwerken.

Ik wil graag een macro hebben die die blok steeds leeg kopieert, zodat je een x aantal blokken krijgt .

Een soort van logboek dus.

Het mooiste is als alles ook netjes uitgeprint kan worden

Misschien iemand een idee

 

[RogerS]

Dus wij moeten de door jou gewenste software even voor je maken? Of begrijp ik je vraag verkeerd?

 

[getyours]

Dus wij moeten de door jou gewenste software even voor je maken? Of begrijp ik je vraag verkeerd?

Voor een "giga senior", lees je behoor lijk selectief.

Er staat nergens lever mij kant en klare software.

Een tip of een link in de juiste richting is genoeg, daar ik niet de eerste zal zijn met deze vraag.

 

[gast0660]

Een tip

Post eens een vb bestandje met wat je precies voor ogen hebt.

 

[SjonR]

Je bent niet de eerste met een zeer vaag omschreven wens, en waarschijnlijk ook de laatste niet.

 

[Jack Nouws]

zoiets

Sub Blokje()
Dim blok As Range
Set blok = Blad1.Range("A1:J10")
    
    With blok
        .Copy Blad2.Cells(Rows.Count, 1).End(xlUp).Offset(2)
        .ClearContents
    End With
End Sub

 

[getyours]

zoiets

Sub Blokje()
Dim blok As Range
Set blok = Blad1.Range("A5:M7")
    
    With blok
        .Copy Blad2.Cells(Rows.Count, 1).End(xlUp).Offset(2)
        .ClearContents
    End With
End Sub

Precies dit is ongeveer wat ik bedoel. Alleen komt hetgeen dat je als blokje definieert niet op de juiste plek.
Hij zou iedere keer een of twee rijen mogen overslaan en dan daaronder hetzelfde blokje mogen aanmaken.

Heb er een bestandje aan toegevoegd.



Bekijk bijlage test.xlsm

 

[HSV]

Dan doe je offset(5) ipv offset(2)

 

[Jack Nouws]

zou zo ook kunnen

Sub Blokje()
Dim blok As Range
Set blok = Blad1.Range("A5:M7")
    dest = IIf(Blad1.Range("A11") = "", "11", Blad1.Cells(Rows.Count, 1).End(xlUp).Offset(4).Row)
    
    With blok
        .Copy Cells(dest, 1)
        .ClearContents
    End With
End Sub

en het ligt eraan hoe je blokje gevuld is

 

[getyours]

Heren bedank!!!

Ik snap alleen niet waarom de macro er na drie keer mee stopt.
Als ik drie keer achter elkaar de macro laat uitvoeren, komt er geen nieuw
invoer blok meer.

Sub Blokje()
Dim blok As Range
Set blok = Blad1.Range("A5:M7")
    dest = IIf(Blad1.Range("A11") = "", "11", Blad1.Cells(Rows.Count, 1).End(xlUp).Offset(4).Row)
    
    With blok
        .Copy Cells(dest, 1)
        .ClearContents
    End With
End Sub

 

[Jack Nouws]

je moet wel iets in je gegevens validatie selecteren anders heb je een leeg blok dat elke keer overschreven wordt

 

[getyours]

Top bedankt hier ga ik verder mee

bedankt

 

[Jack Nouws]

of automatisch iets in laten vullen

Sub Blokje()

    With Range("A5:M7")
        .Copy Cells(IIf(Range("A11") = "", Cells(11, 1).Row, Cells(Rows.Count, 1).End(xlUp).Offset(4).Row), 1)
        .ClearContents
    End With
    Range("A5").Value = "Ontvangst lijn 10"

End Sub