emielDS

Welke zijn die werkplekken?

Opgelost.

Om gaan uit te leggen hoe zoiets gemaakt is hier een beetje weinig tijd. Om kort te zijn. Ontwikkelaars -->visual basic -->invoegen -->userform.

berekenen.xlsm

Ik weet niet wat je bedoeld met een pop out scherm od in excel, (is iets van outlook mail), maar heb hier een voorbeeld met een userform.

berekenen.xlsm

Denk je nu echt dat er 1 mens is die begrijpt wat je wil?

Plaats om te beginnen een  voorbeeldbestand met een relevante opmaak en cijfers. Waar vinden we de l,, h, en br

Plaats eens een voorbeeldbestand als je verder wil geholpen worden.

  Rows("4:4").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

rijen kunnen enkel boven toegevoegd worden, je kan dat oplossen door van "4:4", "5:5" te maken.

Range("G5:K5").Copy
    Range("G5").Select
    ActiveSheet.Paste

ik weet niet wat daar de bedoeling van is maar kan je beter verander naar

Range("g5:k5") = Range ("g5:k5).value

of

[g5:k5]=[g5:k5].value

gebruik steeds zo weinig mogelijk select aan gezien vba het aantal beperkt.

en hier plakje 2 verschillende data in dezelfde cel

Range("B5").Value = Sheets("verkoopfactuur").Range("F4").Value 'datum
        Range("B5").Value = Sheets("verkoopfactuur").[E13].Value 'datum

Ik vraag me af waarom iedere keer nieuwe bladen moeten aangemaakt worden.

Sheet1 (1).xlsm

#N/B betekend, in de meeste gevallen, dat het ingevoerde niet kan worden gezocht in de zoekwaarde, dus dat kan nooit juist zijn.

deze is wat eenvoudiger en geeft hetzelfde resultaat.

Sheets("Blad1").Range("a1:l1").Copy 
Sheets("Blad2").Range("a1000").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Deze maakt kolom D overbodig

=TEKST(Reversestr(B2);"00")&TEKST(C2;"00")