Makro för att kopiera data till ett sammanställningsblad - VBA - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

Forum

Diskussioner

VBA

Makro för att kopiera data till ett sammanställningsblad

Föregående

Nästa

2013-05-29 10:54

Rambo

Medlem sedan: 2012-12-12

101 inlägg

Makro för att kopiera data till ett sammanställningsblad

Jag har en arbetsbok som innehåller en sammanställningssida och fem andra blad benämnda Fastighet A1, Fastighet A2 osv. till Fastighet A5. Alla bladen har samma layout med rubriker i cell A4:H4. Data börjar i cellerna A6:H6.

Data i de olika Fastighetsflikarna kan ha olika antal rader och förändras regelbundet.

Vad jag skulle vilja åstadkomma med ett makro är att kopiera all data från bladet ”Fastighet A1” till sammanställningsbladet med start på rad 6. Därefter kopiera all data från bladet ”Fastighet A2” och kopiera in direkt efter datat för ”Fastighet A1” osv. till dess att all data i fastighetsbladen ligger efter varandra i sammanställningsbladet.

Då datat i de olika fastighetsflikarna förändras (kan både öka eller minska) måste varje gång makrot körs all gammal data i sammanställningsbladet raderas.

Tacksam för en lösning på detta

2013-09-20 15:51

Alf

Medlem sedan: 2013-09-19

6 inlägg

Re: Makro för att kopiera data till ett sammanställningsblad

Har ingen aning om detta fortfarande er aktuelt men mitt föslag till lösning ser ut som detta. Obs att sammanställningssidan kallas SamFat. Då detta er kodat får du ändra i makroet om du har ett annat namn på resultatsidan.

Option Explicit

Sub Samman()
Dim i As Integer

Sheets("SamFat").UsedRange.ClearContents

For i = 1 To 6

Sheets("Fastighet A" & i).Activate

Range("A6:H" & Range("A" & Rows.Count).End(xlUp).Row).Copy

If i = 1 Then

Sheets("SamFat").Range("A6").PasteSpecial Paste:=xlPasteAll

Else

Sheets("SamFat").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll

End If

Application.CutCopyMode = False

Sheets("SamFat").Activate

End Sub