VBA waarde plakken

[Hylas]

Hallo leden,

Hoe kan ik de waarde plakken ipv onderstaand, want nu worden ook de formules meegenomen, wil alleen de waarde

Private Sub CommandButton1_Click()
Sheets("Hoofdblad").Range("A2:H7").Copy Sheets("Verzamelen").ListObjects("Tabel1").ListRows.Add.Range
Application.Goto Range("a2")
If MsgBox("wil je het hoofdblad leegmaken ?", vbYesNo) = vbYes Then

    Range("A2:A7,B2").ClearContents
'    Application.Goto Range("a2")
End If
End Sub

Alvast bedankt voor het meedenken

 

[HSV]

Sheets("Verzamelen").ListObjects("Tabel1").ListRows.Add.Range.resize(6) = Sheets("Hoofdblad").Range("A2:H7").value

 

[Hylas]

Sheets("Verzamelen").ListObjects("Tabel1").ListRows.Add.Range.resize(6) = Sheets("Hoofdblad").Range("A2:H7").value

Mooi man, opgelost

Dank je wel, ik was gewoon verkeerd aan zoeken naar juiste oplossing.

 

[Hylas]

Lege regels niet mee nemen

En als ik nu bijv 2 regels invul dan kopieert hij ook de lege regels mee, is hier ook nog een truc voor?

 

[HSV]

Dan wordt het resize(2)

 

[Hylas]

Dan wordt het resize(2)

Harry even een uitleg resize (2) en (6) wat is het verschil
werkt perfect

 

[HSV]

A2:H7 heeft zes rijen.
A2:H3 heeft twee rijen.

 

[Hylas]

A2:H7 heeft zes rijen.
A2:H3 heeft twee rijen.

Harry heb toch nog een vraag, kijk soms doe ik 2 regels soms 7 maar maar als ik hem op 2 zet en heb 7 regels dan doet hij er dus 2 en niet 7 het gaat er om dat hij variabel moet kunnen zijn en niet de lege cellen plakken.
Heb je hier iets voor.
Bijvoorbaat mijn dank

 

[snb]

Waarom gegevens 2 maal opslaan in hetzelfde bestand ?

 

[Hylas]

Test bestand

Harry hier een test bestand, ik wil de gegevens in een ander blad verzamelen op datum dus som vul ik 2 kolommen in en soms moet ik er 6 of 7 toevoegen Bekijk bijlage Test registratie.xlsm

 

[HSV]

Zo dan?

Private Sub CommandButton1_Click()
[COLOR=#ff0000]if range("a2") > 0 then[/COLOR]
[COLOR=#ff0000]sv = Range("A2", Cells(8, 1).End(xlUp)).Resize(, 12)[/COLOR]
[COLOR=#ff0000]Sheets("Verzamelen").ListObjects("Tabel1").ListRows.Add.Range.Resize(UBound(sv)) = sv[/COLOR]
Application.Goto Range("B2")
 If MsgBox("wil je het hoofdblad leegmaken ?", vbYesNo) = vbYes Then Range("A2:A7,B2").ClearContents
[COLOR=#ff0000]end if[/COLOR]
End Sub

 

[Hylas]

Harry nu werkt hij perfect, maar wil er van leren, wat houdt (sv= Range) in en (Resize(UBound(sv)) = sv)

 

[HSV]

Van het aantal rijen en kolommen wordt een array gemaakt → genaamd sv ( mag ook totaal een ander naam zijn, maar geen benamingen die al vergeven zijn door VBA zelf; bv. Hylas).
Maak eens MsgBoxes aan in de code zoals hieronder en kijk wat voor resultaten je krijgt; zo leer je er wat van.

Msgbox Ubound(sv)
Msgbox Ubound(sv,2)
Msgbox Lbound(sv)

Met Resize breid je de hoogte en/of de breedte uit.
Resize(aantalrijen, aantalkolommen)

 

[Hylas]

Dank Harry, ik ga het proberen, altijd leuk om ff te sleutelen met vba
Dank voor de uitleg