freestyler2
Gebruiker
- Lid geworden
- 5 mrt 2008
- Berichten
- 63
Ik wil meerdere tabbladen samenvoegen tot 1 tabblad. Om onderscheid te maken tussen de verschillende tabbladen dient de oorspronkelijke tabbladnaam te worden toegevoegd aan het samengevoegde tabblad. Tot zover geen probleem
Het probleem ontstaat op het moment dat ik in deze zelfde macro een extra formule wil toevoegen in de laatste lege kolom.
Nu wil ik in dezelfde macro in kolom U de formule =DEEL(D1;1;6) toevoegen maar ik kom er niet helemaal uit. Wie kan mij verder op weg helpen?
Het probleem ontstaat op het moment dat ik in deze zelfde macro een extra formule wil toevoegen in de laatste lege kolom.
Code:
Sub tabbladen_samenvoegen_Totaal()
Application.ScreenUpdating = False
Dim i As Long
Dim ans As String
Dim Lastrow As Long
Dim Lastrowa As Long
Dim Lastrowd As Long
Sheets.Add(Before:=Sheets(1)).Name = "Totaal"
Lastrow = 6
Lastrowd = 6
For i = 2 To Sheets.Count
ans = Sheets(i).Name
Lastrowa = Sheets(i).Cells(Rows.Count, "A").End(xlUp).Row
Sheets(i).Range("A18:S" & Lastrowa).Copy Sheets("Totaal").Range("A" & Lastrow)
Lastrowd = Sheets("Totaal").Cells(Rows.Count, "A").End(xlUp).Row
Sheets("Totaal").Range("T" & Lastrow & ":T" & Lastrowd).Value = ans
Lastrow = Sheets("Totaal").Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells.Select
Cells.EntireColumn.AutoFit
Next
Application.ScreenUpdating = True
End Sub
Nu wil ik in dezelfde macro in kolom U de formule =DEEL(D1;1;6) toevoegen maar ik kom er niet helemaal uit. Wie kan mij verder op weg helpen?
Code:
Sheets("Totaal").Range("U" & Lastrow & ":U" & Lastrowd).Value = MID(RC[-17],1,6)