Formulier overschrijft de nieuwe regel

[Louise050513]

Hallo,

Ik heb een formulier een tijd geleden gemaakt voor het nieuwe kasboek van de locaties. Nu hoor ik alleen van de verschillende locaties dat hij de regel overschrijdt zodra je regel 2 in wilt vullen.

Iemand enig idee hoe dit op te lossen.

Bij voorbaat dank.

 

[Gijsbert1]

Hallo Louise,

Heb je formulier getest maar dit werkt gewoon prima!
Er zit wel een voorwaarde aan vast dat het rekening nummer altijd wordt ingevuld!
Als je ervoor zorgt dat deze altijd vooraf staat ingevuld zal dit geen problemen kunnen geven!

 

[gast0660]

Hoi,
Klopt wat Gijstbert vertelt, dit voorzetje komt nog van mij.
Verander volgende code dan zijn de gebruikers verplicht om de rekening in te vullen
(rode gedeelte toevoegen)

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = ActiveSheet
  On Error Resume Next [COLOR="#FF0000"]<- deze regel mag verdwijnen[/COLOR]
  

 iRow = ws.Cells(Rows.Count, "F") _
  .End(xlUp).Offset(1, 0).Row
 [COLOR="#FF0000"] If Trim(Me.ComboBox2.Value) = "" Then
  MsgBox "Rekening in vullen aub !"
  End If[/COLOR]
  On Error Resume Next 
  ws.Cells(iRow, 1).Value = CDate(DTPicker1.Value)
  ws.Cells(iRow, 2).Value = CVar(TextBox2.Value)
  ws.Cells(iRow, 3).Value = Me.ComboBox1.Value
  ws.Cells(iRow, 4).Value = CCur(TextBox3.Value)
  ws.Cells(iRow, 5).Value = CCur(TextBox4.Value)
  ws.Cells(iRow, 6).Value = CVar(ComboBox2.Value)
  ws.Cells(iRow, 7).Value = CVar(TextBox5.Value)
  Me.DTPicker1.Value = Date
  TextBox2.Value = ""
  ComboBox1.Value = ""
  TextBox3.Value = ""
  TextBox4.Value = ""
  ComboBox2.Value = ""
End Sub

 

[HSV]

If combobox2.listindex = -1 Then
  MsgBox "Rekening in vullen aub !"
exit sub
End If
De cellen wegschrijven kan in een regelcode met een array.
bv.
ws.cells(rows.count,1).end(xlup).offset(1).resize(,3) =array(cdate(datepicker),textbox2,textbox3)