Symphysodon
Gebruiker
- Lid geworden
- 14 dec 2012
- Berichten
- 468
Beste forummers,
Hier weer een probleem waar ik veel van ga leren denk ik.
Het is de bedoeling dat van een tabblad met een x aantal tabellen bepaalde tabellen (bereiken met lijntjes) worden gekopieerd en netjes onder elkaar met 1 tussenregel worden geplakt in een ander werkblad.
Ik loop vast en kom er niet uit.
Hopelijk kan iemand mij hiermee helpen.
mvg Marco
Hier weer een probleem waar ik veel van ga leren denk ik.
Het is de bedoeling dat van een tabblad met een x aantal tabellen bepaalde tabellen (bereiken met lijntjes) worden gekopieerd en netjes onder elkaar met 1 tussenregel worden geplakt in een ander werkblad.
Ik loop vast en kom er niet uit.
Code:
Public Const e1 As String = "tekst1"
Public Const e2 As String = "teskt3"
Public Const e3 As String = "tekst5"
Sub Rapportage_Overzicht()
With Sheets("Data").Range("B2:F450")
sR = 5
Set Rng = .Range(.Cells(sR, 2), .Cells(sR + 11, 6))
For i = 1 To 16
Set c = .Find(What:="e" & i, LookIn:=xlValues).Row
If Not c Is Nothing Then
firstaddress = c.Address
Do
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
Next
End With
End Sub
Hopelijk kan iemand mij hiermee helpen.
mvg Marco