Deze code werkt goed om het weg te schrijven naar ander bestand.
Mijn vraag is; met een andere MsgBox een nee toevoegen en dat deze dan de regel weer verwijderd uit het bestand.
De ComboBox is LinkedCell aan InvoerSheetO41
Code:
Private Sub ComboBox28_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If MsgBox("U wilt deze gegevens toevoegen?", vbCritical + vbYesNo) = vbYes Then
Application.ScreenUpdating = False
If ComboBox28.ListIndex = -1 Then
With Workbooks.Open("C:\Dropbox\documenten\Excel omschrijving.xlsm").Sheets("blad2")
.Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(, 5) = Array(ComboBox28.Value, Range("h48").Value, "", Range("n48").Value, Range("p48").Value)
.Range("C3:G" & .Cells(Rows.Count, 3).End(xlUp).Row).Sort .Range("C3")
.Parent.Close -1
End With
End If
End If
End Sub
Mijn vraag is; met een andere MsgBox een nee toevoegen en dat deze dan de regel weer verwijderd uit het bestand.
De ComboBox is LinkedCell aan InvoerSheetO41
Code:
Private Sub ComboBox28_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If MsgBox("Ja toevoegen Nee Verwijderen?", vbCritical + vbYesNoCancel) = vbYes Then
Application.ScreenUpdating = False
If ComboBox28.ListIndex = -1 Then
With Workbooks.Open("C:\Dropbox\documenten\Excel omschrijving.xlsm").Sheets("blad2")
.Cells(Rows.Count, 3).End(xlUp).Offset(1).Resize(, 5) = Array(ComboBox28.Value, Range("h48").Value, "", Range("n48").Value, Range("p48").Value)
.Range("C3:G" & .Cells(Rows.Count, 3).End(xlUp).Row).Sort .Range("C3")
.Parent.Close -1
End With
End If
End If
If vbNo Then
End Sub