herhaalde excel formules omzetten in VBA

[Petrovic]

Bekijk bijlage klantbestand.zip

Beste HelpMij pro's,

Ik ben bezig om een kleine boekhouding op te zetten in Excel. Het is mij opgevallen dat ik gebruik maak van een 3 tal formules die een hele boel cellen vullen. Nu wil ik jullie vragen of jullie mij kunnen helpen aan een VBA code hiervoor.


Formule 1:
In sheet (BankImport) maak ik gebruik van bijna dezelfde codes:

formule Cel A2: =INDEX(input!$A:$A;VERGELIJKEN(K2;input!$T:$T;0))
formule Cel A3: =INDEX(input!$A:$A;VERGELIJKEN(K3;input!$T:$T;0))
formule Cel A4: =INDEX(input!$A:$A;VERGELIJKEN(K4;input!$T:$T;0))
enz, enz, enz. Tot in de eeuwigheid


Formule 2 & 3:
In sheet (mutaties) gebruik ik 2 formules om een soort "Draaitabel" te genereren:

formule Cel G10: =VERGELIJKEN($A$3;VERSCHUIVING(BankImport!$A$1;G10;0;1000;1);0)+G10
formule Cel G11: =VERGELIJKEN($A$3;VERSCHUIVING(BankImport!$A$1;G11;0;1000;1);0)+G11
formule Cel G12: =VERGELIJKEN($A$3;VERSCHUIVING(BankImport!$A$1;G12;0;1000;1);0)+G12
enz, enz, enz. óók tot in de eeuwigheid

formule Cel E11: =ALS(ISFOUT(INDEX(BankImport!$D:$D;G11));"";INDEX(BankImport!$D:$D;G11))
formule Cel E12: =ALS(ISFOUT(INDEX(BankImport!$D:$D;G12));"";INDEX(BankImport!$D:$D;G12))
formule Cel E13: =ALS(ISFOUT(INDEX(BankImport!$D:$D;G13));"";INDEX(BankImport!$D:$D;G13))
enz, enz, enz. geef toe.... Dit is best wel kansloos :'(

Ik ben onwijs benieuwd wie mij uit deze sleur kan trekken.

Ik krijg met geen mogelijkheid een voorbeeld bestandje aan deze tread gekoppeld, dus meot ik het met een dropbox verwijzing doen.
https://www.dropbox.com/sh/t5aku0tvooj8yr9/AADCuqFl08MFxyrgLUQEqF5Sa?dl=0

<add>bestand gezipped, nu lukt het wel </add>

Heel veel dank alvast!

 

[Petrovic]

Na een beetje speurwerk ben ik deze code tegen gekomen:

Sub FillFormula()
Range("A2").Formula = "=$J3+1"
Range("A2", "A" & Cells(Rows.Count, 1).End(xlUp).Row).FillDown
End Sub

Ook heb ik de Engelse VBA vertalingen gevonden volgens mij.
index = index
vergelijken = match
verschuiving = offset
als = if
isfout = iserror

Ik denk dat ik aardig warm zit. Ik moet alleen weten hoe ik bovenstaande formules correct omzet in VBA.

Gr. Peter

 

[gast0660]

Bankinport

.FormulaR1C1 = "=INDEX(input!C1,MATCH(RC[10],input!C20,0))"

Mutaties 1

.FormulaR1C1 = "=MATCH(R3C1,OFFSET(BankImport!R1C1,R[-1]C,0,1000,1),0)+R[-1]C"

Mutaties 2

.FormulaR1C1 = "=IF(ISERROR(INDEX(BankImport!C2,RC[5])),"""",INDEX(BankImport!C2,RC[5]))"

 

[Petrovic]

Beste dotchijack,

Bedankt voor je snelle reply.

Ik ben bezig geweest deze formules in het voorbeeldbestand toe te passen. Naast dat het mij niet lukt de code goed werkend te krijgen ben ik er achter gekomen dat deze VBA code vooralsnog de cellen vol stampt met formules. Én dat maakt het document onnodig groot.

Kan iemand mij helpen aan een code in VBA dat zorgt dat formule:

• =INDEX(input!$A:$A;VERGELIJKEN(K2;input!$T:$T;0)) wordt toegepast in Cel A2
• =INDEX(input!$A:$A;VERGELIJKEN(K3;input!$T:$T;0)) wordt toegepast in Cel A3
• =INDEX(input!$A:$A;VERGELIJKEN(K4;input!$T:$T;0)) wordt toegepast in Cel A4
• =INDEX(input!$A:$A;VERGELIJKEN(K5;input!$T:$T;0)) wordt toegepast in Cel A5

enz enz. zónder dat alle cellen vol worden gestampt met formules?

Alle hulp is welkom

Gr. Peter

 

[gast0660]

Beste Peter,

vol stampt met formules

Wat denk je dat dit betekend in VBA

FillDown

Uw vraag was, wat is de VBA code voor uw formules,die heb je gekregen, maar de vraag was in eerste instantie al niet koosjer, VBA gebruiken om formules neer te poten is normaal gezien niet de bedoeling. (maar ja, klant is koning)
Het is eerder de bedoeling om de formules te vervangen door VBA code. (met goed uitgewerkte VBA code heb je nog zelden formules nodig)
Als er niemand mij voor is zal ik morgen eens kijken om e.a. aan te passen.
(niet dat ik zo'n slimme ben)
Nu is het voor mij echter sofa tijd (voor de Belgen 'zeteltjestijd')

 

[snb]

Voor een vraag is een voorbeeldbestand van max. 30kb altijd voldoende.

Daarvoor een gezipt bestand van 1,2 Mb uploaden is absurd.
Hoe groter de hooiberg hoe langer helpers moeten zoeken.

Het antwoord op je vraag staat hier: http://www.snb-vba.eu/VBA_Arrays.html

 

[Petrovic]

Beste dotchijack,

Wederom bedankt voor je reply.

Ja, ik had het kunnen weten door de txt Filldown

Ik was inderdaad niet helemaal duidelijk in mijn bericht. Op advies van snb ben ik gisteravond gaan kijken naar VBA arrays. Ik heb begrepen dat er veel kan, maar ik nog lang niet ben uitgestudeerd.
Zou jij mij kunnen helpen aan een stukje VBA code?

Uiteraard na zeteltjestijd... was dat niet van de fabeltjeskrant?

Gr. Peter