Macro kopiëren begrenzen

[JanJantje]

Hallo,

Ik heb de volgende probleem, ik heb een macro voor het kopieren van een geselecteerd bereik naar links.

Sub LCopy()

Selection.Copy
ActiveCell.Offset(, -5).PasteSpecial

End Sub

Nu wil ik ervoor zorgen dat er niet gekopieerd kan worden in de kolommen voor G (dus A, B, C, D, E en F = offlimits)

Iemand een idee hoe ik dit kan oplossen?

Alvast bedankt

Jantje

 

[Wigi]

Zo?

Sub LCopy()
    With Selection
        If .Column > 11 Then
            .Copy
            .Offset(, -5).PasteSpecial
        End If
    End With
End Sub

Wigi

 

[Demeter]

Netjes Wigi,

Kwam er zelf niet mee weg.

 

[JanJantje]

Beste Wigi,

Het werkt Perfect :thumb:

Hartelijk bedankt

Jantje

 

[Wigi]

Zet de vraag dan maar op opgelost aub.