meerdere selecties kopieren

[stefano]

Ik beschik over een sheet met analyseresultaten. Ik moet in kolommen e en f de lege ruimtes verwijderen. Dit doe ik mbv een makro en autofilter. Op die manier heb ik een bereik van cellen dat ik moet kopieren en plakken in een nieuw bestand. Mijn probleem hier is : Hoe kan ik dat gebied aanduiden ( dit kan niet door het gewoon te gaan selecteren aangezien dit gebied wekelijks andere rijen zal bevatten ...)

Nadat deze range overgebracht werd naar het nieuwe blad moet ik op de oorspronkelijke range een nieuwe selectie toepassen. Ditmaal worden de niet lege cellen geselecteerd in kolommen d,e en f . Daarna volgt hetzelfde scenario. De range overbrengen naar hetzelfde blad van het nieuwe bestand en wel zo dat beide selecties onder elkaar komen te staan.

Ik heb een beetje meer uitleg gegeven in de bijlage om (proberen) duidelijk genoeg te zijn.

Dank bij voorbaat voor jullie suggesties.

Stefaan

 

[Roncancio]

Onderstaande macro controleert of de cellen in de D-, E- en F-kolom zijn ingevuld. Alleen als in al die kolommen iets is ingevuld, wordt de gehele rij naar het 2e werkblad geschreven.

Sub Macro1()
Dim SRij As Integer
Dim Rij As Integer
SRij = 4
For Rij = 4 To 20
If Worksheets(1).Cells(Rij, "D") <> "" And Worksheets(1).Cells(Rij, "E") <> "" And Worksheets(1).Cells(Rij, "F") <> "" Then
With Worksheets(2)
Worksheets(2).Cells(SRij, "A") = Worksheets(1).Cells(Rij, "A")
Worksheets(2).Cells(SRij, "B") = Worksheets(1).Cells(Rij, "B")
Worksheets(2).Cells(SRij, "C") = Worksheets(1).Cells(Rij, "C")
Worksheets(2).Cells(SRij, "D") = Worksheets(1).Cells(Rij, "D")
Worksheets(2).Cells(SRij, "E") = Worksheets(1).Cells(Rij, "E")
Worksheets(2).Cells(SRij, "F") = Worksheets(1).Cells(Rij, "F")
SRij = SRij + 1
End With
End If
Next
End Sub

 

[LucB]

Stefano,

Als test een kopie naar Blad4.