Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
With Sheets("Blad1")
.Range("K6").Resize(10) = Application.Transpose(Array(Format(TextBox1.Value, "dd-mm-yyyy"), "", "", TextBox2.Text, Format(TextBox3.Value, "dd-mm-yyyy"), "", ComboBox1.Text, TextBox4.Value, TextBox5.Value, ComboBox2.Text))
.Range("K7").FormulaR1C1 = "=IF(R[-1]C<1,"""",SUM(R[-1]C+42))"
.Range("K10").FormulaR1C1 = "=COUNT(R[-6]C[-3]:R[206]C[-3])"
.Range("K11").FormulaR1C1 = "=Persoonsgegevens!R[-5]C[-9]"
End With
='C:\Users\rolijve004\Desktop\[HELPMIJ Aanpassen Hartrevalidatie Concept - nieuw.xlsb]Invulschema'!K10
Nu met de opmerkingzonder dat ...
heb ik het door, we zaten blijkbaar op een heel ander spoor.argeloze bezoekers
Application.Quit
Sheets("Invulschema").Range("K6").Resize(10) = Application.Transpose(Array(Format(TextBox1, "m-d-yyyy"), Format(CDate(TextBox1) + 42, "m-d-yyyy"), "=count(A5:A206)", TextBox2.Text, Format(CDate(TextBox3.Value), "m-d-yyyy"), "=DATEDIF(K10,TODAY(),""y"")", ComboBox1.Text, TextBox4.Value, TextBox5.Value, ComboBox2.Text))
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.