Niet selecteren

[vanhorentrash]

L.s.

Ik ben een zeer beginnend macro schrijver. Ik zit met het volgende probleem. Ik wil zorgen dat cellen niet geselecteerd worden.

Bij het volgende is het gelukt:

Van:
Sheets("Sheet2").Select
Rows("100:101").Select
Selection.Delete Shift:=xlUp
Heb ik gemaakt:
Sheets("Sheet2").Rows("100:101").Delete Shift:=xlUp

Maar hoe moet ik deze omzetten?
Sheets("Sheet1").Select
Range("C3:IV4").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.CutCopyMode = False
Selection.Copy

En deze?
Sheets("Sheet2").Select
Range("A100").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

En dan de laatste?
Sheets("Sheet1").Select
Application.CutCopyMode = False

Alvast bedankt!

 

[Roncancio]

Dit:

Sheets("Sheet1").Range("C3:IV4").SpecialCells(xlCellTypeVisible).Copy Sheets("Sheet2").Range("A100")
Application.CutCopyMode = False

...vervangt..

Sheets("Sheet1").Select
Range("C3:IV4").Select
Selection.SpecialCells(xlCellTypeVisible).Select
Application.CutCopyMode = False
Selection.Copy

Sheets("Sheet2").Select
Range("A100").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Sheet1").Select
Application.CutCopyMode = False

Met vriendelijke groet,


Roncancio

 

[vanhorentrash]

Super bedankt - maar nu:

En wat is dan de vertaling van:

Sheets("Sheet1").Range("B2:B1000").Copy
Sheets("Gesel_Doss").Select
Range("D2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Ik denk dat ik dan genoeg op weg geholpen ben om volgende vertalingen ook te maken!

Nogmaals bedankt!

 

[Roncancio]

Sheets("Gesel_Doss").Range("D2:D1000").Value = Sheets("Sheet1").Range("B2:B1000").Value

Met vriendelijke groet,


Roncancio