Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Sub CelSelect()
Dim rng As Range
Set rng = Application.InputBox("", "Selecteer het gewenste bereik", , , , , , 8)
End Sub
Sub CelSelect()
Dim rng As Range
Set rng = Application.InputBox("", "Selecteer het gewenste bereik", , , , , , 8)
rng.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.Copy
Sheets("Facturatie Voorstel").Select
Columns("G:G").Select
Selection.Copy
Sheets("Facturatie Voorstel").Select
Columns("G:G").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Sub CelSelect()
Dim rng As Range
Set rng = Application.InputBox("", "Selecteer het gewenste bereik", , , , , , 8)
Columns("G:H").Value = Sheets("Jaaroverzicht").Range(rng.Address).Value
End Sub
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.