tekst in kolom verwijderen als bepaald veld niet gevuld is

[ronaldvm1964]

Ik heb het volgende probleem waar ik niet uit kom:

Als in kolom I wat staat (bijv in dit geval BN of K) dan moet de gegevens die in kolom K staan verwijderd worden (bijv. in dit geval C37R4 en C26R).
Is dit mogelijk, het liefst in een macro.

 

[mvw64]

Misschien kan je er zo iets mee

 

[edmoor]

@mvw64:

Tip:
In plaats van If Cells(c.Row, "I") = "BN " kan je beter If Trim(Cells(c.Row, "I")) = "BN" gebruiken.

 

[mvw64]

Beste edmoor

Inderdaad is dat beter
waar staat die (Trim) voor

 

[edmoor]

Een volledige uitleg kan je hier lezen:
https://msdn.microsoft.com/en-us/library/h9wz3dez(v=vs.90).aspx

 

[mvw64]

Bedankt

Ik ga me hier in verdiepen

groetjes

 

[edmoor]

Op deze manier:

    Select Case Trim(Cells(c.Row, "I"))
        Case "BN", "K", "AAA", "BB", "CC"
            'je code
    End Select

 

[ronaldvm1964]

wordt de macro dan als volgt:

Sub loep()
Dim c
With Sheets("Palletoverzicht")
For Each c In .Range("A8:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
Select Case Trim(Cells(c.Row, "I"))
Case "BN", "K", "AAA", "BB", "CC"
'je code
End Select
Next
End With
End Sub

 

[edmoor]

Ja, maar gebruik voor de leesbaarheid hier codetags en voor de leesbaarheid in je code juiste inspringpunten:

Sub loep()
    Dim c
    With Sheets("Palletoverzicht")
        For Each c In .Range("A8:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
            Select Case Trim(Cells(c.Row, "I"))
                Case "BN", "K", "AAA", "BB", "CC"
                'je code
            End Select
        Next
    End With
End Sub

 

[ronaldvm1964]

Als deze macro wil draaien gebeurd er niets, zie bijlage en dan button wissen 2

 

[edmoor]

Lijkt me logisch. Want daar waar nu 'je code staat moet je uiteraard dat invullen wat er op dat moment moet gebeuren
Nu gebeurt daar op dat moment inderdaad niets.
Zet daar eens dit voor in de plaats:
Cells(c.Row, "K") = Empty

 

[ronaldvm1964]

Dit werkt goed, dank jullie wel voor deze oplossing:thumb: