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

formule vervangen door VBA

Status
Niet open voor verdere reacties.
R

ronsom

Gebruiker
Lid geworden
6 mrt 2012
Berichten
232
Goedemorgen ,

In de bijlage staat een bestand waarmee ik degradatie wil kunnen meten.
In het rode vak staat een formule die met de als-functie kijkt of waardes aan setpoints voldoen.
Ik zou dat graag via VBA voor elkaar krijgen en dan zo dat het gelijk voor de hele kolom uitgerekend wordt.
Wie kan mij daar bij helpen.
 

Bijlagen

  • Degraderen .xlsb
    16,6 KB · Weergaven: 13
In lang niet alle 12 rode cellen staat een formule.
Welke hele kolom (vertikaal: van boven naar beneden) bedoel je ?
 
Hallo Snb,

Bedankt voor je reactie
In de bijlage een aangepast bestand.
Ik heb de tabel groter gemaakt, het originele bestand is vele malen groter. het gaat dan om ongeveer 400.000 rijen die berekend moeten worden.
Als er nog onduidelijkheden zijn hoor ik wel.
 

Bijlagen

  • Degraderen .xlsb
    18,5 KB · Weergaven: 25
Met zulke aantallen kan het handiger zijn om de gegevens in Power Query te bewerken en dan te laden in het Datamodel.
Het hangt er helemaal vanaf wat je na de bewerking er verder mee gaat doen.
 
Hallo Frans,

De tellingen zal ik verder doen d.m.v. draaitabellen.
 
Bijv.

Code: 
Sub M_snb()
  sn = Blad2.ListObjects(1).DataBodyRange.Columns(3).Resize(, 9)
    
  For j = 1 To UBound(sn)
    sn(j, 2) = Abs(sn(j, 9) < sn(j, 1))
    sn(j, 1) = Abs(sn(j, 8) < sn(j, 1))
  Next
    
  Blad2.Cells(2, 22).Resize(UBound(sn), 2) = sn
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan