emielDS

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")