Beste programmeurs,
Ik ben een macro aan het schrijven en tot nu toe lukt dit allemaal correct. Echter heb ik nu na lang zoeken op het forum, geen idee hoe ik dit kan oplossen.
Ik moet een bestellijst opmaken, hierbij moeten de stock artikelen verwijderd worden (volledige rij) als deze overeenkomen met de stockartikelen uit een andere werkblad (Lijst beslag). Dit is correct als ik de waarde bv. "MONTAGEPLAAT" manueel als zoekwaarde toeken.
Nu moet deze waarde variabel worden zodat hij de waarde van rij A controleert in Lijst beslag.
Vervolgens moet deze getest worden indien het artikel voorkomt in de bestellijst, is dit het geval. Dan moet de rij verwijderd worden.
Hieronder mijn 2 bevindingen:
Deel in comment: code dat werkt.
VBA-Code:
'Dim x As Long
'
'With ActiveWorkbook.Sheets("Bestelbon")
'
' For x = 50 To 2 Step -1
'
' If .Cells(x, "A") = "MONTAGEPLAAT" Then
'
' .Cells(x, "A").EntireRow.Delete
'
' End If
'
' Next x
'
'End With
Dim StockMateriaal As String
Dim x As Long
Dim u As Long
With ActiveWorkbook.Sheets("Lijst beslag")
For x = 50 To 2 Step -1
ActiveCell.Value = StockMateriaal
With ActiveWorkbook.Sheets("Bestelbon")
For u = 50 To 2 Step -1
If .Cells(u, "A") = StockMateriaal Then
.Cells(u, "A").EntireRow.Delete
End If
Next u
End With
Next x
End With
-----------------------------------
Alvast bedankt!
Met vriendelijke groeten,
Tom
Ik ben een macro aan het schrijven en tot nu toe lukt dit allemaal correct. Echter heb ik nu na lang zoeken op het forum, geen idee hoe ik dit kan oplossen.
Ik moet een bestellijst opmaken, hierbij moeten de stock artikelen verwijderd worden (volledige rij) als deze overeenkomen met de stockartikelen uit een andere werkblad (Lijst beslag). Dit is correct als ik de waarde bv. "MONTAGEPLAAT" manueel als zoekwaarde toeken.
Nu moet deze waarde variabel worden zodat hij de waarde van rij A controleert in Lijst beslag.
Vervolgens moet deze getest worden indien het artikel voorkomt in de bestellijst, is dit het geval. Dan moet de rij verwijderd worden.
Hieronder mijn 2 bevindingen:
Deel in comment: code dat werkt.
VBA-Code:
'Dim x As Long
'
'With ActiveWorkbook.Sheets("Bestelbon")
'
' For x = 50 To 2 Step -1
'
' If .Cells(x, "A") = "MONTAGEPLAAT" Then
'
' .Cells(x, "A").EntireRow.Delete
'
' End If
'
' Next x
'
'End With
Dim StockMateriaal As String
Dim x As Long
Dim u As Long
With ActiveWorkbook.Sheets("Lijst beslag")
For x = 50 To 2 Step -1
ActiveCell.Value = StockMateriaal
With ActiveWorkbook.Sheets("Bestelbon")
For u = 50 To 2 Step -1
If .Cells(u, "A") = StockMateriaal Then
.Cells(u, "A").EntireRow.Delete
End If
Next u
End With
Next x
End With
-----------------------------------
Alvast bedankt!
Met vriendelijke groeten,
Tom
