• 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.

RAG-status

Status
Niet open voor verdere reacties.
J

Jorediej

Gebruiker
Lid geworden
4 jun 2009
Berichten
54
Ik heb twee tabellen in mijn sheet staan.

In een tabel (onderste staat de data waarin men de status aan moet geven van elk punt d.m.v. RAG (Red-Amber-Green).
Wanneer een item de status G krijgt dan is dit OK. Bij R of A echter dienen de gegevens bovenaan in de eerste tabel te komen staan (zie bijlage voor extra uitleg).

Kan iemand mij hiermee helpen?

Bekijk bijlage Example of rag.xlsx
 
Zet gewoon een filter op A9:F15 en je hebt je samenvoegingen.
 
Kijk eens naar mijn voorstel van oplossing, op sheet2, bij wijziging in sheet1 zal sheet2 zich aanpassen.
 

Bijlagen

  • Kopie van Example of rag.xlsm
    26,8 KB · Weergaven: 28
JeanPaul28 zei:
Kijk eens naar mijn voorstel van oplossing, op sheet2, bij wijziging in sheet1 zal sheet2 zich aanpassen.
Klik om te vergroten...

Kijk, dit is precies wat ik zoek.
Is het ook mogelijk om de tabel van sheet2 bovenaan sheet1 te krijgen of loop je dan vast met je ranges?
 
'Bovenaan' is natuurlijk nogal vreemd/onverstandig als je vantevoren niet weet om hoeveel items het gaat
Vermijd immer samengevoegde cellen in VBA

Zo zou ik het doen:

Code: 
Sub M_snb()
  sn = Blad1.Cells(2, 1).CurrentRegion

  For j = 1 To 2
    For jj = 1 To UBound(sn)
      If sn(jj, 6) = Mid("RA", j, 1) Then c00 = c00 & "_" & jj
    Next
  Next
  st = Split(Mid(c00, 2), "_")

  Blad1.Cells(3, 11).Resize(UBound(st) + 1, 4) = Application.Index(sn, Application.Transpose(st), Array(2, 3, 5, 6))
End Sub
 

Bijlagen

  • __rood & oker snb.xlsb
    25,6 KB · Weergaven: 23
Laatst bewerkt:
snb zei:
'Bovenaan' is natuurlijk nogal vreemd/onverstandig als je vantevoren niet weet om hoeveel items het gaat
Vermijd immer samengevoegde cellen in VBA

Zo zou ik het doen:

Code: 
Sub M_snb()
  sn = Blad1.Cells(2, 1).CurrentRegion

  For j = 1 To 2
    For jj = 1 To UBound(sn)
      If sn(jj, 6) = Mid("RA", j, 1) Then c00 = c00 & "_" & jj
    Next
  Next
  st = Split(Mid(c00, 2), "_")

  Blad1.Cells(3, 11).Resize(UBound(st) + 1, 4) = Application.Index(sn, Application.Transpose(st), Array(2, 3, 5, 6))
End Sub
Klik om te vergroten...

Ik krijg jouw sheet niet werkende. Moet ik hier nog iets doen?
 
SVP niet quoten ! Gebruik de gewone knop 'reageer op dit bericht'
Je vertelt niet wat je (niet) gedaan hebt.

Start de macro vanuit de VBEditor.
 

Bijlagen

  • __rood & oker snb.xlsb
    24,2 KB · Weergaven: 19
Bedankt maar deze manier werkt niet. Ik zou het ook graag willen zonder dat ik zelf de macro steeds moet runnen. Ik denk dat ik maar bij de oplossing van JeanPaul28 blijf.
 
Sjonge, jonge ....
Moet het echt helemaal turnkey zijn (zonder betaling door *knip*) ?
 
Laatst bewerkt door een moderator:
@jorediej de inbreng van snb is een top oplossing, ik heb die aangepast zo dat je de macro niet moet starten, verder zou ik deze oplossing eens ontleden en trachten te begrijpen, je zal versteld staan wat je dan kan bijleren.
 

Bijlagen

  • Kopie van __rood & oker snb-1Upd.xlsb
    24,5 KB · Weergaven: 22
En zelf zet je het er nog eens opnieuw in!!
Dat quoten heeft ook nadelen zoals je ziet.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan