• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Excel vraag, automatisch wissen van celinhoud

Status
Niet open voor verdere reacties.

erjanfct

Gebruiker
Lid geworden
14 feb 2013
Berichten
13
Hallo,

Als eerst excuses, ik heb deze vraag gisteren ook al gesteld maar toen in de verkeer rubriek gezet.

Ik ben bezig met de layout van de output van een sql query die ik vervolgens weergeef in excel.
Het punt is als volgt:

De output is op dit moment zo:

[table="width: 700"]
[tr]
[td]Naam[/td]
[td]Factuurnummer[/td]
[td]Bedrijf[/td]
[td]Straat[/td]
[td]Productnaam[/td]
[td]Aantal[/td]
[td]Prijs[/td]
[td]Totaalprijs[/td]
[td]BTW[/td]
[td]Tot.factuur[/td]
[/tr]
[tr]
[td]Pietje[/td]
[td]12345[/td]
[td]Bedrijf x[/td]
[td]Dorpsstraat 34[/td]
[td]Artikel1[/td]
[td]2[/td]
[td]5[/td]
[td]10[/td]
[td]6,30[/td]
[td]30[/td]
[/tr]
[tr]
[td]Pietje[/td]
[td]12345[/td]
[td]Bedrijf x[/td]
[td]Dorpsstraat 34[/td]
[td]Artikel2[/td]
[td]4[/td]
[td]2,50[/td]
[td]10[/td]
[td]6,30[/td]
[td]30[/td]
[/tr]
[tr]
[td]Pietje[/td]
[td]12345[/td]
[td]Bedrijf x[/td]
[td]Dorpsstraat 34[/td]
[td]Artikel3[/td]
[td]1[/td]
[td]10[/td]
[td]10[/td]
[td]6,30[/td]
[td]30[/td]
[/tr]
[tr]
[td]klaas[/td]
[td]54321[/td]
[td]Bedrijf y[/td]
[td]Straatx 123[/td]
[td]Artikel1[/td]
[td]1[/td]
[td]100[/td]
[td]100[/td]
[td]21[/td]
[td]100[/td]
[/tr]
[tr]
[td]etc[/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[/tr]
[/table]

Nu wil ik graag, om het overzichtelijk te maken, de onderstaande output krijgen:

[table="width: 700"]
[tr]
[td]Naam[/td]
[td]Factuurnummer[/td]
[td]Bedrijf[/td]
[td]Straat[/td]
[td]Productnaam[/td]
[td]Aantal[/td]
[td]Prijs[/td]
[td]Totaalprijs[/td]
[td]BTW[/td]
[td]Tot.factuur[/td]
[/tr]
[tr]
[td]Pietje[/td]
[td]12345[/td]
[td]Bedrijf x[/td]
[td]Dorpsstraat 34[/td]
[td]Artikel1[/td]
[td]2[/td]
[td]5[/td]
[td]10[/td]
[td]6,30[/td]
[td]30[/td]
[/tr]
[tr]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td]Artikel2[/td]
[td]4[/td]
[td]2,50[/td]
[td]10[/td]
[td][/td]
[td][/td]
[/tr]
[tr]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td]Artikel3[/td]
[td]1[/td]
[td]10[/td]
[td]10[/td]
[td][/td]
[td][/td]
[/tr]
[tr]
[td]klaas[/td]
[td]54321[/td]
[td]Bedrijf y[/td]
[td]Straatx 123[/td]
[td]Artikel1[/td]
[td]1[/td]
[td]100[/td]
[td]100[/td]
[td]21[/td]
[td]100[/td]
[/tr]
[tr]
[td]etc[/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[td][/td]
[/tr]
[/table]

Oftewel, van alle producten met hetzelfde factuurnummer kunnen een aantal gegevens weg nadat het eerste product volledig getoond is met alle klantgegevens.

Is dit mogelijk in Excel zonder dat ik de inhoud van de cellen handmatig moet wissen?
Zo ja, hoe kan ik dit doen?

Ik hoor het graag en alvast bedankt!
 
Test de kleine macro in een testbestand.
Code:
Sub hsv()
Dim sn, i As Long
Cells(1).CurrentRegion.Sort [b1], , , , , , , xlYes
sn = Cells(1).CurrentRegion
For i = UBound(sn) To 2 Step -1
 If sn(i, 2) = sn(i - 1, 2) Then
   sn(i, 1) = ""
   sn(i, 2) = ""
   sn(i, 3) = ""
   sn(i, 4) = ""
  End If
 Next i
Cells(1).CurrentRegion = sn
End Sub
 
Gebruik een draaitabel. Of plaats een excel voorbeeldje.
 
in de bijklage een voorbeeld met een tabel (voor de basisgegevens op Blad1) en een draaitabel voor de presentatie
 

Bijlagen

Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan