bowlingman
Gebruiker
- Lid geworden
- 17 okt 2007
- Berichten
- 433
Hallo,
Ik zou graag als de gegevens uit txt's worden weggeschreven dat deze txt's terug leeg worden
Ik dacht dit met de volgende code te doen (staat in rood)
Maar ik krijg de melding "Kan opbject niet vinden" op de regel "For 1 to 71"
En mijn tweede vraagje is
Ik wil dat na het inbrengen van 3 cijfers automatisch de voldende txt wordt geselecteerd.
Geprobeert om txt op MaxLenght 3 te zetten maar de cursor verspringt niet.
Grtjs.
Armand
Ik zou graag als de gegevens uit txt's worden weggeschreven dat deze txt's terug leeg worden
Ik dacht dit met de volgende code te doen (staat in rood)
Code:
Private Sub cmbWegschrijven_Click()
Dim Idlinks As Integer
Dim x As Integer
Dim i As Integer
Idlinks = 1
x = cboSpeeldag * 30 - 26
With Sheets("Blad2")
.Cells(x - 1, 1).Resize(, 16) = Array(lblTeam2, , , , , , , , , , , , , , , lblTeam3)
.Cells(x + 1, 1).Resize(, 16) = Array(iD1, , , TextBox1, TextBox2, TextBox3, , , , , iD4, , , TextBox13, TextBox14, TextBox15)
.Cells(x + 2, 1).Resize(, 16) = Array(iD2, , , TextBox5, TextBox6, TextBox7, , , , , iD5, , , TextBox17, TextBox18, TextBox19)
.Cells(x + 3, 1).Resize(, 16) = Array(iD3, , , TextBox9, TextBox10, TextBox11, , , , , iD6, , , TextBox21, TextBox22, TextBox23)
.Cells(x + 9, 1).Resize(, 15) = Array(lblTeam4, , , , , , , , , , , , , , , lblTeam5)
.Cells(x + 11, 1).Resize(, 16) = Array(iD7, , , TextBox25, TextBox26, TextBox27, , , , , iD10, , , TextBox37, TextBox38, TextBox39)
.Cells(x + 12, 1).Resize(, 16) = Array(iD8, , , TextBox29, TextBox30, TextBox31, , , , , iD11, , , TextBox41, TextBox42, TextBox43)
.Cells(x + 13, 1).Resize(, 16) = Array(iD9, , , TextBox33, TextBox34, TextBox35, , , , , iD12, , , TextBox45, TextBox46, TextBox47)
.Cells(x + 19, 1).Resize(, 15) = Array(lblTeam6, , , , , , , , , , , , , , , lblTeam7)
.Cells(x + 21, 1).Resize(, 16) = Array(iD13, , , TextBox49, TextBox50, TextBox51, , , , , iD16, , , TextBox61, TextBox62, TextBox63)
.Cells(x + 22, 1).Resize(, 16) = Array(iD14, , , TextBox53, TextBox54, TextBox55, , , , , iD17, , , TextBox65, TextBox66, TextBox67)
.Cells(x + 23, 1).Resize(, 16) = Array(iD15, , , TextBox57, TextBox58, TextBox59, , , , , iD18, , , TextBox69, TextBox70, TextBox71)
[COLOR="#FF0000"]For i = 1 To 71
Me("TextBox" & i) = ""
Next[/COLOR]
End With
End Sub
En mijn tweede vraagje is
Ik wil dat na het inbrengen van 3 cijfers automatisch de voldende txt wordt geselecteerd.
Geprobeert om txt op MaxLenght 3 te zetten maar de cursor verspringt niet.
Grtjs.
Armand
Laatst bewerkt: