bowlingman
Gebruiker
- Lid geworden
- 17 okt 2007
- Berichten
- 433
Kan je de volgende code (vba) in één regel schrijven
Of gaat dit enkel als alle txt's dezelfde naam hebben.
Dit is de volledige code voor het wegschrijven
Grtjs.
Armand
Code:
'Deze waarde wordt in kolom "A" weggeschreven
.Cells(x, Idlinks) = txtiD1.Value
'Deze waarden worden in Collums "D,E en F" weggeschreven
.Cells(x, GamesL).Resize(, 3) = Array(TextBox2, TextBox3, TextBox4)
Of gaat dit enkel als alle txt's dezelfde naam hebben.
Dit is de volledige code voor het wegschrijven
Code:
Private Sub cmbWegschrijven_Click()
Idlinks = 1
idRechts = 7
GamesL = 4
x = cboSpeeldag
With Sheets("Blad2")
'Dit staat in kolom "A"
.Cells(x, Idlinks) = txtiD1.Value
'Deze d)staan in Collums 4,5 en 6
.Cells(x, GamesL).Resize(, 3) = Array(TextBox2, TextBox3, TextBox4)
End With
End Sub
Grtjs.
Armand