• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Macro voor tabbladen samenvoegen horizontaal

Status
Niet open voor verdere reacties.
Charlotte,

kun je een bijlage plaatsen met wat meer gegevens, zoals kolomnamen
 
Dat is dan wel een heel slecht gevonden code.:)

Code: 
Sub VenA()
  If IsError(Evaluate("Combined!A1")) Then Sheets.Add.Name = "Combined"
  With ActiveSheet
    For Each sh In Sheets
      If sh.Name <> .Name Then sh.Cells(1).CurrentRegion.Copy .Cells(1, .Columns.Count).End(xlToLeft).Offset(, 1)
    Next sh
  End With
End Sub
 
@AD1957, al die stormen van de laatste tijd blazen zelfs berichten weg:d Je kan even aan de mod vragen om ze terug te laten zetten.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan