Hoi.
Hoe hef ik een selectie op een rij op?
Ik heb de volgende code:
Waarnij ik hiervoor dus een geldig alternatief moet hebben:
Rows("" & Teller & ":" & Teller).Deselect
't zal vast wel simpel zijn, maar kon 't niet vinden.
Hoe hef ik een selectie op een rij op?
Ik heb de volgende code:
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Sub GegevensWegschrijven()
Application.ScreenUpdating = False
'oude gegevens kopieren
Sheets("Basisgegevens").Select
Rows("" & Teller & ":" & Teller).Select
Selection.Copy
Rows("20:20").Select
ActiveSheet.Paste
'op die regel de waarden zetten
'>>nog niet ingevuld
'en hef die rottige selectie weer op.
'Rows("" & Teller & ":" & Teller).Deselect
Application.ScreenUpdating = True
End Sub |
Waarnij ik hiervoor dus een geldig alternatief moet hebben:
Rows("" & Teller & ":" & Teller).Deselect
't zal vast wel simpel zijn, maar kon 't niet vinden.