Excel Macro invoeren

[needahelphand]

Hallo,

graag wil ik vragen hoe ik in dit bestand een macro kan maken waarbij tab 1 wordt overgeschreven naar tab 2 via een button met de tekst "opslaan en wissen".
kan iemand mij helpen met een macro hiervoor?
en misschien tips en tricks waarna ik het zelf ook kan wijzigen etc?

alvast bedankt!

 

[snb]

Begin met het verwijderen van alle samengevoegde cellen.

Voor jouw toepassing is een Userform het meest geschikt. Zie: http://www.snb-vba.eu/VBA_Userform_in_database.html

 

[SjonR]

Volledig eens met het advies van snb, maar toch een stukje code:

Sub SjonR()
Lr = Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Row + 1
With Sheets("Blad1")
    Sheets("Blad2").Cells(Lr, 1).Resize(, 15).Value = Array(.Cells(6, 2), .Cells(9, 2), .Cells(13, 1), .Cells(15, 2), .Cells(16, 2), .Cells(17, 2), .Cells(18, 2), .Cells(15, 6), _
    .Cells(6, 7), .Cells(7, 2), .Cells(10, 2), .Cells(11, 2), .Cells(9, 7), .Cells(10, 7), .Cells(11, 7))
End With
End Sub

 

[needahelphand]

dank jullie wel....

wat heeft het samenvoegen van cellen voor effect dan?

 

[snb]

Dat het aantal 'kolommen' per regel verschillend is of het aantal rijen per kolom.

Dan weet VBA niet meer wat columns(12) of rows(23) is.

 

[gast0660]

Mijn bijdrage,ik kon het niet laten