data uitfilteren

[shidan]

goedemorgen,

ik heb een blad met erop soorten alalyses (blad data)
in het blad selectie kan ik een datumrange en een leverancier kiezen
deze analyses worden dan onderverdeeld in de soorten analyses (LG, VG, EG, FG)
tot hiertoe werkt alles prima

nu heb ik het volgende nodig:
ik wil de LG en VG analyses naast elkaar vergelijken op basis van gelijk productnummer.
ik blad gr_LG en blad gr_VG moeten de desbetreffende analyses komen met eenzelfde productnummer.

bvb
bij 'carajas fijn' zitten er in de LG 2 en in de VG 12 analyses.
slechts 2 hebben hetzelfde productnummer ('Crest Voyager' met productnummer1207040101 en Drin' met productnummer1207050501)

in de tabs gr_VG en gr_LG zouden dus maar 2 analyses mogen worden ingevuld.

kan iemand mij helpen aub?

 

[shidan]

Goedemorgen,

ik zit al een stuk verder met mijn vraag.
eigenlijk moeten er nog slechts 2 dingen gebeuren:
de rijen die overeenkomen copiëren naar een andere sheet.
ik probeerde dit via deze code maar zonder succes

in blad gr_LG moet dus de rij komen uit LG waarvan rijnummer gelijk is aan rijorig
in blad gr_VG moet dus de rij komen uit VG waarvan rijnummer gelijk is aan rijzoek

Sub data_vergelijken()
    Dim rijorig As Integer
    Dim rijzoek As Integer
    Dim rw As Range
    Dim str_productlijn As String
    
    rijorig = 2
    tmpproductnr = Sheets("LG").Cells(rijorig, 5)
    While tmpproductnr <> ""
        rijzoek = 2
        While Sheets("VG").Cells(rijzoek, 5) <= tmpproductnr Or Sheets("VG").Cells(rijzoek, 5) = ""
            rijzoek = rijzoek + 1
        Wend
        If Sheets("VG").Cells(rijzoek - 1, 5) = tmpproductnr Then
[COLOR="SeaGreen"]            ' kopie van rijzoek en rijorig
            'uit blad LG rij (rijorig) copiëren en plakken in blad gr_LG onder de laatste rij[/COLOR]
            [COLOR="Red"]rw.EntireRow.Copy Sheets(rijorig).Rows(Sheets(gr_LG).Cells(1, 1).CurrentRegion.Rows.Count + 1)[/COLOR]
[COLOR="seagreen"]            'uit blad VG rij (rijzoek) copiëren en plakken in blad gr_VG onder de laatste rij[/COLOR]
               Debug.Print Sheets("VG").Cells(rijzoek - 1, 5)
        End If
        rijorig = rijorig + 1
        tmpproductnr = Sheets("LG").Cells(rijorig, 5)
    Wend
End Sub

kan iemand mij helpen met dit probleem?
de methode is Sub data_vergelijken() in module 1

de nieuwe file zit bijgevoegd

Bekijk bijlage vergelijkingen LG-VG analyses.rar

 

[snb]

Sub data_vergelijken()
  With sheets("gr_LG")
    for each cl in .columns(5).specialcells(xlcelltypeconstants)
      x=1
      do 
        x=x+1
      loop until Sheets("VG").Cells(x, 5)>cl.value
      Sheets("VG").Rows(x).copy .cells(rows.count,1).end(xlup).offset(1)
    Next
  End With
End Sub

 

[shidan]

nope,

ik loop op een error ...
je moet wel eerst methode Sub test() laten runnen om data te krijgen in VG en LG.

Sub data_vergelijken()
    Dim rijorig As Integer
    Dim rijzoek As Integer
    Dim rw As Range
    Dim str_productlijn As String
    
    rijorig = 2
    tmpproductnr = Sheets("LG").Cells(rijorig, 5)
    While tmpproductnr <> ""
        rijzoek = 2
        While Sheets("VG").Cells(rijzoek, 5) <= tmpproductnr Or Sheets("VG").Cells(rijzoek, 5) = ""
            rijzoek = rijzoek + 1
        Wend
        If Sheets("VG").Cells(rijzoek - 1, 5) = tmpproductnr Then
            ' kopie van rijzoek en rijorig
            'uit blad LG rij (rijorig) copiëren en plakken in blad gr_LG onder de laatste rij
            rw.EntireRow.Copy Sheets(LG).Rows(Sheets(gr_LG).Cells(1, 1).CurrentRegion.Rows.Count + 1)
            'uit blad VG rij (rijzoek) copiëren en plakken in blad gr_VG onder de laatste rij
            
            Debug.Print Sheets("VG").Cells(rijzoek - 1, 5)
        End If
        rijorig = rijorig + 1
        tmpproductnr = Sheets("LG").Cells(rijorig, 5)
    Wend
End Sub