gegevens verschillende werkbladen samenvoegen naar 1

Status
Niet open voor verdere reacties.
N

Nerdje82

Gebruiker
Lid geworden
10 dec 2016
Berichten
44
Goedemorgen kan iemand mij helpen met het goed krijgen van de onderstaande code ?

Ik krijg d.m.v. koppelingen vanuit een ander werkboek gegevens binnen op een werkblad, om precies te zijn 6 werkbladen. De gegevens van deze werkbladen wil ik samenvoegen naar 1 werkblad.
de gegevens kunnen bestaan uit 1 rij of meerdere rijen. en ik wil ze plaatsen onder elkaar op "hoofdwerkblad" maar dit werkt niet op deze manier. Hebben jullie een betere oplossing?

Ik probeer dit d.m.v. onderstaande code

PHP: 
Sheets("Blad1").Activate


Dim i As Long, lastrow As Long
lastrow = Sheets("Blad1").Cells(Rows.Count, 4).End(xlUp).Row
 For i = lastrow To 2 Step -1

 If Cells(i, 4) > 0 Then
 Sheets("Blad2").Range("A100").End(xlUp).Offset(1) = Cells(i, "D")
 Sheets("Blad2").Range("A100").End(xlUp).Offset(, 1) = Cells(i, "E")
 End If

 Next i

Sheets("Blad3").Activate


Dim ii As Long, lastroww As Long
lastroww = Sheets("Blad3").Cells(Rows.Count, 4).End(xlUp).Row
 For ii = lastroww To 2 Step -1

 If Cells(ii, 4) > 0 Then
 Sheets("Blad2").Range("A100").End(xlUp).Offset(1) = Cells(i, "D")
 Sheets("Blad2").Range("A100").End(xlUp).Offset(, 1) = Cells(i, "E")
 End If

 Next ii
 
Beetje wonderlijke code inderdaad. Maar met een voorbeeldbestandje wordt het vast allemaal duidelijker :).
 
Code: 
Sub M_snb()
  For Each it In Sheets
    If it.Name <> "Blad1" Then
      With CreateObject("ADODB.recordset")
        .Open "SELECT * FROM `" & it.Name & "$`", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & it.Parent.FullName & ";Extended Properties=""Excel 12.0"""
        Sheets("Blad1").Cells(Rows.Count, 1).End(xlUp).Offset(1).CopyFromRecordset .DataSource
      End With
    End If
  Next
End Sub
 
Laatst bewerkt:
Alvast bedankt voor beide jullie bericht ...

Ik wil jullie zeggen dat ik niet zo onderlegd ben met vba ... daarom de code die ook gepost is voor mij ook onduidelijk......
Ik voeg een bestand toe, dit is niet het origineel maar wel wat het moet doen...
Alle gegevens van blad2 tot blad 6 moeten op de eerste lege regel geplaatst worden op blad 1 zodat alles onder elkaar staat .....

Ik heb de code van snb gedaan en inderdaad alle gegevens worden geplaatst op blad 1 alleen met 3 rijen blank er tussen...
 

Bijlagen

  • Wachtkamer oefening.xlsm
    67,4 KB · Weergaven: 42
Laatst bewerkt:
Begin bij het begin:-
- verwijder alle lege rijen 1 t/m 10 in alle werkbladen
- verwijder het userform
Begin een tabel in ieder werkblad altijd in cel A1.

Draai de macro opnieuw.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan