Data overzetten naar ander tabblad VBA

[Hylas]

Heb iets gemaakt waarbij gegevens verticaal naar horizontaal naar een ander tabblad gezet moeten worden dmv van een knop met een maco,
nu kan ik dat wel maken maar zit met het probleem dat hij het elke keer op nieuwe lege regel moet zetten, hoe los ik dit op in vba

Gr Ton

 

[tkint]

Beste,

Ik vind geen routine waarbij gegevens verticaal naar horizontaal naar een ander tabblad gezet moeten worden. Om op een nieuwe regel weg te schrijven moet je eerst de laatste gebruikte rij in het tabblad. Zoek eens op het www naar lastrow vba excel.

 

[Hylas]

Beste,

Ik vind geen routine waarbij gegevens verticaal naar horizontaal naar een ander tabblad gezet moeten worden. Om op een nieuwe regel weg te schrijven moet je eerst de laatste gebruikte rij in het tabblad. Zoek eens op het www naar lastrow vba excel.

 

[Hylas]

Hoe krijg ik dan het best de data die ik op het formulier zet in een bepaalde databas zodat ik het weer goed op kan zoeken

 

[Ndam90]

Beste,

Je kan dit eventueel gebruiken.

[COLOR="#0000CD"]Public Sub[/COLOR] Overzetten()

[COLOR="#0000CD"]Dim[/COLOR] rij [COLOR="#0000CD"]As Long[/COLOR]

rij = Sheets("Data").Range("A1").End(xlDown).Row + 1

Range("A" & rij).Value = Sheets("Blokkadeformulier").Range("D3") [COLOR="#008000"]'eerste deel geeft kolomletter voor je Data blad, laatste deel corresponderende cel uit Blokkadeformulier[/COLOR]
Range("B" & rij).Value = Sheets("Blokkadeformulier").Range("D5")
Range("C" & rij).Value = Sheets("Blokkadeformulier").Range("D7")
[COLOR="#008000"]'etc...[/COLOR]

[COLOR="#008000"]'kopieer de bovenstaande ranges zodat je al je waarden kan kopiëren[/COLOR]

[COLOR="#0000CD"]End Sub[/COLOR]

Je moet het codewerk zelf nog even afmaken maar dit is eitje.
Plaats de code in een module en koppel eventueel een macro aan de code.

 

[Warme bakkertje]

Sub Overzetten()

    With Sheets("Data")
        lRow = .Range("A" & Rows.Count).End(xlUp).Offset(1).Row
        .Cells(lRow, 1) = Sheets("Blokkadeformulier").Range("D3").Value
        .Cells(lRow, 2) = Sheets("Blokkadeformulier").Range("D5").Value
        'enz .....
        
    End With
    
End Sub

 

[Hylas]

Bedankt

Mannen bedankt het heeft me goed geholpen ben d'r uit