Wie kan mij helpen?
Ik heb in Excel twee tabbladen. Update en Invoer allebei hebben ze 5 kolommen
Nu kan ik op het Tabblad Invoer regels bewerken in willekeurige volgorde. Als deze goed zijn heb ik een button waarmee ik de regels kan verplaatsen naar het tabblad Update. Waar ze op de juiste plek worden ingevuld. Dit werkt prima. Maar hij pakt wel altijd alle 5 kolommen om te kopiëren.
Nu wilde ik een user form maken met 4 checkboxen waar ik kan bepalen welke kolommen wel en welke niet gekopieerd mogen worden. Ik kom er zelf niet zo goed uit zie onderstaande regels
Private Sub CommandButton1_Click()
Dim p As Long
p = 2
Do While Cells(p, 1) <> ""
CDU_ID = Cells(p, 1)
' If CheckBox1.Value = True Then
Sheets("Update").Cells(CDU_ID - 1999, 2) = Sheets("Invoer").Cells(p, 2)
' If CheckBox2.Value = True Then
Sheets("Update").Cells(CDU_ID - 1999, 3) = Sheets("Invoer").Cells(p, 3)
' If CheckBox2.Value = True Then
Sheets("Update").Cells(CDU_ID - 1999, 4) = Sheets("Invoer").Cells(p, 4)
' If CheckBox2.Value = True Then
Sheets("Update").Cells(CDU_ID - 1999, 5) = Sheets("Invoer").Cells(p, 5)
' End If
p = p + 1
Loop
End Sub
Ik heb in Excel twee tabbladen. Update en Invoer allebei hebben ze 5 kolommen
Nu kan ik op het Tabblad Invoer regels bewerken in willekeurige volgorde. Als deze goed zijn heb ik een button waarmee ik de regels kan verplaatsen naar het tabblad Update. Waar ze op de juiste plek worden ingevuld. Dit werkt prima. Maar hij pakt wel altijd alle 5 kolommen om te kopiëren.
Nu wilde ik een user form maken met 4 checkboxen waar ik kan bepalen welke kolommen wel en welke niet gekopieerd mogen worden. Ik kom er zelf niet zo goed uit zie onderstaande regels
Private Sub CommandButton1_Click()
Dim p As Long
p = 2
Do While Cells(p, 1) <> ""
CDU_ID = Cells(p, 1)
' If CheckBox1.Value = True Then
Sheets("Update").Cells(CDU_ID - 1999, 2) = Sheets("Invoer").Cells(p, 2)
' If CheckBox2.Value = True Then
Sheets("Update").Cells(CDU_ID - 1999, 3) = Sheets("Invoer").Cells(p, 3)
' If CheckBox2.Value = True Then
Sheets("Update").Cells(CDU_ID - 1999, 4) = Sheets("Invoer").Cells(p, 4)
' If CheckBox2.Value = True Then
Sheets("Update").Cells(CDU_ID - 1999, 5) = Sheets("Invoer").Cells(p, 5)
' End If
p = p + 1
Loop
End Sub
Laatst bewerkt: