Goedemorgen Heren,
ik ben bezig met een nieuw rooster programma in excel.
En die maak ik omdat het mijn kennis van VBA en excel even goed op de proef stelt.
Toch ben ik iets tegen gekomen waar ik niet mee uit de voeten kom.
Ik gebruik de volgende code om de gegevens toe te voegen aan de eerste lege rij die hij tegen kom:
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Gegevens Chauffeurs")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
Nu heb ik hem aangepast om de eerste Kolom te gebruiken. Met deze code:
Private Sub CommandButton1_Click()
Dim iColumn As Long
Dim ws As Worksheet
Set ws = Worksheets("Planning")
iColumns = ws.Cells(Columns.Count, 1) _
.End(xlUp).Offset(1, 0).Column
If Trim(Me.txtachternaam.Value) = "" Then
Me.txtachternaam.SetFocus
MsgBox "Achternaam Invullen Aub"
Exit Sub
End If
ws.Cells(iColumns, 1).Value = Me.txtachternaam.Value
'clear the data
Me.txtachternaam.Value = ""
End Sub
Alleen nu begint hij gelijk kolom A en hij moet beginnen in de eerste kolom die leeg is(aangezien momenteel A t/m C in gebruik en dat er door het toevoegen steeds meer zullen worden.
Hebben jullie een idee?
Bedankt voor de moeite.
Met vriendelijke groet,
Dave
ik ben bezig met een nieuw rooster programma in excel.
En die maak ik omdat het mijn kennis van VBA en excel even goed op de proef stelt.
Toch ben ik iets tegen gekomen waar ik niet mee uit de voeten kom.
Ik gebruik de volgende code om de gegevens toe te voegen aan de eerste lege rij die hij tegen kom:
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Gegevens Chauffeurs")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
Nu heb ik hem aangepast om de eerste Kolom te gebruiken. Met deze code:
Private Sub CommandButton1_Click()
Dim iColumn As Long
Dim ws As Worksheet
Set ws = Worksheets("Planning")
iColumns = ws.Cells(Columns.Count, 1) _
.End(xlUp).Offset(1, 0).Column
If Trim(Me.txtachternaam.Value) = "" Then
Me.txtachternaam.SetFocus
MsgBox "Achternaam Invullen Aub"
Exit Sub
End If
ws.Cells(iColumns, 1).Value = Me.txtachternaam.Value
'clear the data
Me.txtachternaam.Value = ""
End Sub
Alleen nu begint hij gelijk kolom A en hij moet beginnen in de eerste kolom die leeg is(aangezien momenteel A t/m C in gebruik en dat er door het toevoegen steeds meer zullen worden.
Hebben jullie een idee?
Bedankt voor de moeite.
Met vriendelijke groet,
Dave
Laatst bewerkt:
