meerdere voorwaarden

[flupje]

Beste,

Ik heb een database van verschillende componenten. De componenten worden gekenmerkt met een bepaald type (kolom B) en een bepaalde meetwaarde (kolom J)

Ik zou in een nieuwe werkblad de componenten van eenzelfde type willen zetten. daarbij moeten deze componenten een meetwaarde hebben die niet gelijk aan 10 mag zijn.


Ik ben vertrokken van dit

Sub alleCV()

Dim d As Range
For Each d In Worksheets("database").Range("B3:B5000")
If (d = "CV") Then
legeregel = Sheets("overzicht CV").Range("B" & Rows.Count).End(xlUp).Row + 1

Sheets("overzicht CV").Range("A" & legeregel) = d.Offset(2, -1)
Sheets("overzicht CV").Range("B" & legeregel) = d
Sheets("overzicht CV").Range("C" & legeregel) = d.Offset(2, 1)
Sheets("overzicht CV").Range("D" & legeregel) = d.Offset(2, 2)
Sheets("overzicht CV").Range("E" & legeregel) = d.Offset(2, 3)
Sheets("overzicht CV").Range("F" & legeregel) = d.Offset(2, 4)
Sheets("overzicht CV").Range("G" & legeregel) = d.Offset(2, 5)
Sheets("overzicht CV").Range("H" & legeregel) = d.Offset(2, 6)
Sheets("overzicht CV").Range("I" & legeregel) = d.Offset(2, 7)
Sheets("overzicht CV").Range("J" & legeregel) = d.Offset(2, 8)
Sheets("overzicht CV").Range("K" & legeregel) = d.Offset(2, 9)

End If
Next

Sheets("overzicht CV").Activate


Er zou nog een tweede range gedefinieerd moeten worden, maar krijg deze niet goed ingevoerd.


Mvg

Flup

 

[Wigi]

Dit lijkt me een pak beter:

Sub alleCV()
    Dim d As Range, legeregel As Long
    With Sheets("overzicht CV")
        For Each d In Sheets("database").Range("B3:B5000")
            legeregel = .Range("B" & Rows.Count).End(xlUp).Row + 1
            If d = "CV" And d.Offset(, 6) <> 10 Then Range("A" & d.Row - 2).Resize(, 10).Copy .Range("A" & legeregel)
        Next
        .Activate
    End With
End Sub

ongeteste code

Wigi

 

[flupje]

Bedankt,

het werkt!!

Groeten

 

[Wigi]

Bedankt,

het werkt!!

Groeten

OK, dan wordt het nu dus geteste en goed bevonden code

Wigi