Simpel .Select vraagje

[mause01]

Ik heb de volgende selectie code gemaakt.
nu moet ik een range er bij toevoegen.

enkel krijg ik het niet voor elkaar.

Range("B7:AI" & Range("B" & Rows.Count).End(xlUp).Row).Select

Ik wil graag onderstaande range er bij voegen.
Range("B2:AI2")

 

[snb]

Een vraag is pas een vraag als het kader ook geschetst wordt: waarvoor, waartoe.

Algemeen: vermijd 'select' in VBA, want zinloos & vertragend.

 

[mause01]

Een vraag is pas een vraag als het kader ook geschetst wordt: waarvoor, waartoe.

Algemeen: vermijs 'select' in VBA, want zinloos & vertragend.

Beste SNB,

DIt is de code welke ik run,
daar wil ik graag B2:AI2 bij selecteren.

Sub Macro_CSV()

Range("B7:AI" & Range("B" & Rows.Count).End(xlUp).Row).Select
'Range("B2:AI2").Select
 Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Workbooks.Add
    ActiveSheet.Paste
    Application.CutCopyMode = False
    ActiveWorkbook.SaveAs Filename:="C:\SALTO\sync2.csv", FileFormat:= _
        xlCSV, CreateBackup:=False, Local:=True
End Sub

 

[edmoor]

Range("B2:AI2,B7:AI" & Range("B" & Rows.Count).End(xlUp).Row).Copy

Geen .Select voor nodig.

 

[mause01]

Range("B2:AI2,B7:AI" & Range("B" & Rows.Count).End(xlUp).Row).Copy

Geen .Select voor nodig.

Bedankt
inderdaad simpel.