Gegevens uit Tabel halen

[bickyvp]

goedemorgen iedereen,

Hier ben ik nog eens met een vraagje:

dankzij "AD1957" is mijn vraag opgelost.
dankje hiervoor.

nu heb ik in die tabellen soms dezelfde barcode, soms andere.
nu zou hij nog in een aparte cel moeten aangeven hoeveel keer 1zelfde product word weergegeven.
deze code werkt dan met:

=SUMPRODUCT(1/COUNTIF(A1:A14;A1:A14))

zoiets.

dan geeft hij aan hoeveel verschillende producten er zijn.

ik zou dan nog moeten weten, hoeveel keer per product dit voorkomt in de lijst en de code van dit product.


In bijlage vind je het test bestandje


Groetjes,
Michaël.

 

[AD1957]

Maak er echte tabellen van.

 

[bickyvp]

Maak er echte tabellen van.

Dat had ik moeten weten :shocked:
dikke merci!

 

[VenA]

Iets eenvoudiger

Hernoem Sheet2 en Sheet3 naar In en Out.

Sub MoveBtn()
  With Sheet1
    .Shapes("MoveBTn").IncrementLeft IIf(Range("B1") = "In", 30, -30)
    .Range("B1").Value = IIf(.Range("B1").Value = "In", "out", "In")
    With .ListObjects(1)
      If .ListRows.Count Then .DataBodyRange.Delete
      .ListRows.Add.Range.Resize(Sheets(Range("B1").Value).ListObjects(1).ListRows.Count, 2) = Sheets(Range("B1").Value).ListObjects(1).DataBodyRange.Value
    End With
  End With
End Sub

 

[bickyvp]

Iets eenvoudiger

Hernoem Sheet2 en Sheet3 naar In en Out.

Sub MoveBtn()
  With Sheet1
    .Shapes("MoveBTn").IncrementLeft IIf(Range("B1") = "In", 30, -30)
    .Range("B1").Value = IIf(.Range("B1").Value = "In", "out", "In")
    With .ListObjects(1)
      If .ListRows.Count Then .DataBodyRange.Delete
      .ListRows.Add.Range.Resize(Sheets(Range("B1").Value).ListObjects(1).ListRows.Count, 2) = Sheets(Range("B1").Value).ListObjects(1).DataBodyRange.Value
    End With
  End With
End Sub

dat is idd handiger. hartelijk dank!

 

[bickyvp]

Iets eenvoudiger

Hernoem Sheet2 en Sheet3 naar In en Out.

Sub MoveBtn()
  With Sheet1
    .Shapes("MoveBTn").IncrementLeft IIf(Range("B1") = "In", 30, -30)
    .Range("B1").Value = IIf(.Range("B1").Value = "In", "out", "In")
    With .ListObjects(1)
      If .ListRows.Count Then .DataBodyRange.Delete
      .ListRows.Add.Range.Resize(Sheets(Range("B1").Value).ListObjects(1).ListRows.Count, 2) = Sheets(Range("B1").Value).ListObjects(1).DataBodyRange.Value
    End With
  End With
End Sub

kan je me uitleggen hoe je dit gedaan hebt ?
zou graag nog 2 extra kolommen toevoegen...

 

[VenA]

Het quoten is niet nodig. Ook de Pm's zijn overbodig. Gaat het nu om extra tabellen of extra kolommen?

 

[bickyvp]

excuseer extra kolommen bedoelde ik

 

[HSV]

Laat de (komma en de 2) ,2 weg....

.Resize(Sheets(Range("B1").Value).ListObjects(1).ListRows.Count, [COLOR=#ff0000]2[/COLOR])

....of de 2 veranderen in een 4.

 

[bickyvp]

dit heb ik gedaan, dan zie ik in hoofdscherm 2 extra kolommen, maar hoe krijg je de inhoud van sheet "In" en sheet "Out" daarin ?

dit moet in power query's worden aangepast ?

hierbij het vernieuwde bestandje:

 

[HSV]

De code aanpassen die in je quote staat.
Als alle tabellen 4 kolommen hebben is de methode zoals ik omschreef.
PQ heeft er niet mee van doen.

 

[bickyvp]

dank u, en iedereen die me hierbij geholpen heeft.

het is gelukt.