Excel

[Sary]

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

[emielDS]

uw code niet gevonden in uw bestand, maar het is duidelijk dat op het blad een tabel staat en dat de code geschreven is om de gegevens te plaatsen onder de tabel.

[emielDS]

gevonden, probeer deze eens.

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

[Sary]

Dag Emile,

 

 

Bij mij slaat hij 3-4-5 over, bij jou niet in je vb bestand

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

[emielDS]

tabelrijen moet je niet leegmaken maar verwijderen

[Sary]

Amai idd, dat wist ik niet. Nu werkt het bij mij ook. vriendelijk bedankt voor je hulp Emiel