Ga naar inhoud

Excel


Sary

Aanbevolen berichten

Vraagje: wat klopt er niet aan deze code waardoor hij in mijn sheet de 2e lijn overslaat?

Ik heb al geprobeerd om achter Row de +1 weg te doen maar er veranderd niets.


Private Sub Cmd_00_Click()
Dim geg As Variant
Dim lastRow As Long
geg = Array(T_0.Value, CDate(T_1.Value), T_2.Value, T_3.Value, T_4.Value, T_5.Value, T_6.Value, T_7.Value, T_8.Value, T_9.Value, T_10.Value, T_11.Value, T_12.Value, T_13.Value, T_14.Value, _
T_15.Value, T_16.Value, T_17.Value, T_18.Value, T_19.Value, T_20.Value, T_21.Value, T_22.Value, T_23.Value, T_24.Value, RTP.Value)
If T_19 = "Ja" Then
With Sheets("Vloeibare beladingen")
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If lastRow < 1 Then lastRow = 1
.Cells(lastRow, 1).Resize(1, UBound(geg) + 1).Value = geg
End With
End If
With Sheets("Afgewerkte mengers")
lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
If lastRow < 1 Then lastRow = 1
.Cells(lastRow, 1).Resize(1, UBound(geg) + 1).Value = geg
LB_00.List = [AFMdata_tbl].Value
End With
reset
End Sub

 

 

Dit ook geprobeerd:

vba Private Sub Cmd_00_Click()    

Dim geg As Variant     Dim lastRow As Long      ' Vul de geg-array met de waarden van de tekstvakken en andere controles     geg = Array(T_0.Value, CDate(T_1.Value), T_2.Value, T_3.Value, T_4.Value, T_5.Value, T_6.Value, T_7.Value, T_8.Value, T_9.Value, T_10.Value, T_11.Value, T_12.Value, T_13.Value, T_14.Value, _                 T_15.Value, T_16.Value, T_17.Value, T_18.Value, T_19.Value, T_20.Value, T_21.Value, T_22.Value, T_23.Value, T_24.Value, RTP.Value)

' Controleer of T_19 gelijk is aan "Ja" voor het werkblad "Vloeibare beladingen"     If T_19.Value = "Ja" Then         With Sheets("Vloeibare beladingen")             lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1             .Cells(lastRow, 1).Resize(1, UBound(geg) + 1).Value = geg         End With     End If      ' Voeg gegevens toe aan het werkblad "Afgewerkte mengers"     With Sheets("Afgewerkte mengers")         lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1         .Cells(lastRow, 1).Resize(1, UBound(geg) + 1).Value = geg         LB_00.List = [AFMdata_tbl].Value     End With      ' Reset de formulierbesturingselementen     reset End Sub

 

 

Database met aanpassing spoelboter en rtp(1)Dot.xlsm

Link naar reactie
Delen op andere sites

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.