data in vaste rij zetten

[Atwist]

Hallo forumleden,

Ik heb een macro waarbij ik de gegevens op rij 2 van blad "data" zet, maar dat doet hij niet maar pakt de eerste lege rij op blad "data"

Private Sub CommandButton4_Click()
Row2 = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'check op invoer
  
If TextBoxDatum.Value = "" Then
  TextBoxDatum.SetFocus
  MsgBox "Voer een datum in :"
  Exit Sub
End If
If TextBoxPRnr.Value = "" Then
TextBoxPRnr.SetFocus
MsgBox "Voer projectnummer in :"
Exit Sub
End If
If TextBoxPrnaam.Value = "" Then
  TextBoxPrnaam.SetFocus
  MsgBox "Voer projectnaam in :"
  Exit Sub
End If
If TextBoxadres.Value = "" Then
  TextBoxadres.SetFocus
  MsgBox "Voer adres in :"
  Exit Sub
End If
If TextBoxPcode.Value = "" Then
  TextBoxPcode.SetFocus
  MsgBox "Voer postcode in :"
  Exit Sub
End If
If TextBoxplaats.Value = "" Then
  TextBoxplaats.SetFocus
  MsgBox "Voer plaats in :"
  Exit Sub
End If
If TextBoxtel.Value = "" Then
  TextBoxtel.SetFocus
  MsgBox "Voer telefoon nummer in :"
  Exit Sub
End If
If TextBoxkontact.Value = "" Then
  TextBoxkontact.SetFocus
  MsgBox "Voer kontact persoon in :"
  Exit Sub

End If
'copy the data to the database
With Sheets("Data")
  .Cells(Row2, 1).Value = TextBoxDatum.Value
  .Cells(Row2, 2).Value = TextBoxPRnr.Value
  .Cells(Row2, 3).Value = TextBoxPrnaam.Value
  .Cells(Row2, 4).Value = TextBoxadres.Value
  .Cells(Row2, 5).Value = TextBoxPcode.Value
  .Cells(Row2, 6).Value = TextBoxplaats.Value
  .Cells(Row2, 7).Value = TextBoxtel.Value
  .Cells(Row2, 8).Value = TextBoxkontact.Value
  
  End With

'clear the data
TextBoxDatum.Value = ""
TextBoxPRnr.Value = ""
TextBoxPrnaam.Value = ""
TextBoxadres.Value = ""
TextBoxPcode.Value = ""
TextBoxplaats.Value = ""
TextBoxtel.Value = ""
TextBoxkontact.Value = ""
TextBoxDatum.SetFocus

UserForm1.Hide
End Sub

Wat is hiermee mis

 

[Wigi]

Row2 is een variabele, en staat dus niet voor rij 2...

Gebruik:

Row2 = 2

om op rij 2 weg te schrijven, of haal die variabele uit de code en zet de 2 er hardgecodeerd in. (Al zie ik niet goed in waarom, maar het zal wel werken). Je overschrijft wel data in rij 2 als er al iets staat.

Wigi

PS: graag code tags gebruiken, je bent al 4 jaar aangemeld op het forum, dus geen excuses daarvoor

 

[Atwist]

Beste Wigi,

Als ik deze optie doe dan krijg ik alleen maar fout meldingen.

 Je bent nooit te oud om te leren.

 

[Wigi]

Beste Wigi,

Als ik deze optie doe dan krijg ik alleen maar fout meldingen.

Dat is niet mogelijk.

Als je alle Row2 's verandert in 2, en de regel:

Row2 = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

wordt:

Row2 = 2

dan kan je geen foutmeldingen krijgen (afgezien van beveiliging en dergelijke, maar ik neem aan dat dat hier niet het geval is).

 

[Warme bakkertje]

Als het steeds Rij2 moet zijn,waarom ga je dan rijen tellen?
Je zou na 4 jaar toch ook moeten weten dat je met Offset(1) de rij onder het aantal getelde rijen opvraagt.

Row2 = Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Probeer anders deze eens uit

For i = 1 To 8
With Sheets("Data")
    .Cells(2, i).Value = Choose(i, TextBoxDatum.Value, TextBoxDatum.Value, TextBoxPrnaam.Value, TextBoxadres.Value, _
                                    TextBoxPcode.Value, TextBoxplaats.Value, TextBoxtel.Value, TextBoxkontact.Value)
End With
Next i

 

[Atwist]

Beste Wigi & Warme bakkertje.,

Ik mag dan wel 4 jaar op het forum zitten, maar kon altijd van jullie oplossing een formulier maken.
Maar nu ben ik dus zelf iets aan het maken, dus den ik in mijn ogen nog steeds een beginner wat programeren betreft.

Je bent nooit te oud om te leren.

Wat de topic betreft:

Ik had niet alles weg gehaalt.

 

[Warme bakkertje]

Wel, dan weet je nu weeral iets meer
Zet je de vraag dan nog even op opgelost