zoeken in 5 regels met overeenkomten

[caffie]

wie kan mijn helpen

mijn probleeem ziet er als volgd uit


ik heb 5 regels
waarvan ik de gezamelijke waar per regel wilt opzoeken

het lukt me wel om de waarde te vinden
maar niet als regel niet ingevuld is

nu laat de waarde van de eerste regel en eerste cel
vergelijken met de andere regels
Maar als er dan een regel leeg is werkt dit niet meer

 

[Wigi]

Robbie

Ik heb de procedure ComboBox1_Change herschreven:

Private Sub ComboBox1_Change()

    'verwijder de cellen en opmaak
    Range("I29:T29").ClearContents

    Select Case Range("B29").Value

        Case "X" 'doe niets
        Case "A": Range("BA29:BL29").Copy Range("I29:T29")
        Case "B": Range("BP29:CA29").Copy Range("I29")
        Case "C": Range("CD29:CO29").Copy Range("I29")
    
    End Select
    
    Range("A28").Select

End Sub

Test dit en als het OK is, pas dan de andere 4 procedures aan op gelijkaardige wijze. Het maakt jouw code veel leesbaarder.

Van jouw eigenlijke probleem snap ik werkelijk niets

Wigi

 

[caffie]

vast bedankt

Robbie

Ik heb de procedure ComboBox1_Change herschreven:

Private Sub ComboBox1_Change()

    'verwijder de cellen en opmaak
    Range("I29:T29").ClearContents

    Select Case Range("B29").Value

        Case "X" 'doe niets
        Case "A": Range("BA29:BL29").Copy Range("I29:T29")
        Case "B": Range("BP29:CA29").Copy Range("I29")
        Case "C": Range("CD29:CO29").Copy Range("I29")
    
    End Select
    
    Range("A28").Select

End Sub

Test dit en als het OK is, pas dan de andere 4 procedures aan op gelijkaardige wijze. Het maakt jouw code veel leesbaarder.

Van jouw eigenlijke probleem snap ik werkelijk niets

Wigi

vast bedankt voor de hulp

dit ziet er inderdaad een stuk beter uit

even terug komen op mijn probleem


ik wil alle overeen komstige waarde hebben
Die dus in de ingevulde regels staan



b.v


regel1 - 12 - 14 - 16 - 18 - 20 -enz
regel2 - 14 - 16 - 21 - 25 - enz
regel3 niet ingevuld
regel4 - 8 -10 -12 - 14- 16 -20
regel5 - 6 - 8 - 10 - 12 -14 -16



de waarde 14 en 16 komen dus in alle ingevuld regels voor


hopelijk is dit zo wel duidelijk

al vast bedankt

 

[Wigi]

Alstublieft.

Sub TestWigi()

Dim r As Range
Dim rGetallen As Range
Dim bInElkeRij As Boolean
Dim IsRijNietLeeg As Boolean
Dim bKomtHetVoorInRij As Boolean
Dim i As Integer

Application.ScreenUpdating = False

Columns("AF").Cells.ClearContents

Set rGetallen = Range("I29:T33")

For Each r In rGetallen

    bInElkeRij = True

    If r.Value > 0 Then
    
        For i = 1 To rGetallen.Rows.Count
            
            bIsRijNietLeeg = (WorksheetFunction.Count(rGetallen.Rows(i)) > 0)
            bKomtHetVoorInRij = (WorksheetFunction.CountIf(rGetallen.Rows(i), r.Value) > 0)
            bInElkeRij = bInElkeRij And (bIsRijNietLeeg = bKomtHetVoorInRij)
        
        Next
    
    End If
    
    bInElkeRij = bInElkeRij And (WorksheetFunction.CountIf(Columns("AF"), r.Value) = 0)
    
    If bInElkeRij Then Range("AF" & Rows.Count).End(xlUp).Offset(1).Value = r.Value

Next

Application.ScreenUpdating = True

End Sub

Gevonden getallen komen in kolom AF.

Wigi