det jag vill uppnå är att testa att skriva kod för karens och se hu den räknar

så det jag vill  är har lön i c4 trycker på knapp då skall uträkning för karens komma i d4 och dag 2 i e4

kan du skriva den rätta koden så  kan jag klistra in den

tack så länge

 den sista Blad1.Cells(i,4) gör ingenting. Den förstör bara koden: 

Blad1.Cells(i, 4) = Blad1.Cells(i, 1) * 12.2 / 2080 Blad1.Cells(i,4)

om du kör fulkoden

Blad1.Cells(i, 4) = Blad1.Cells(i, 1) * 12.2 / 2080

så bör den fungera. Även om det skulle vara snyggare (lättare att förstå om några år) att skriva

Worksheets("Blad1").Cells(i, 4).Value = Worksheets("Blad1").Cells(i, 1).Value * 12.2 / 2080

Om det nu är det du faktiskt vill göra

 så här ser koden ut 

Private Sub CommandButton1_Click()

Får se om jag förstår det du vill göra

12,2*månadlön= årslön (eller?)

2080=52*40=antal arbetstimmar på ett år.

Så första raden beräknar bara timlön (i det märkliga 12,2 månaders året som jag antar är något slags standard inom löneadministration om du har hittat den siffran )

Nästa rad är en hel dagslön (timlön*8)? 

och sen vill du ta 80% av det för att få ut sjuklön?

då borde det här ge rätt svar:

Blad1.Cells(4, "d") = Blad1.Cells(4, "c") * 12.2 / 2080
Blad1.Cells(4, "e") = Blad1.Cells(4, "d") * 8
Blad1.Cells(4, "f") = Blad1.Cells(4, "e") * 0.8

Och om du vill räkna fel genom att avrunda till två decimaler hela tiden måste du helt enkelt avrunda på varje rad

Blad1.Cells(4, "d") = Round(Blad1.Cells(4, "c") * 12.2 / 2080, 2)
Blad1.Cells(4, "e") = Round(Blad1.Cells(4, "d") * 8, 2)
Blad1.Cells(4, "f") = Round(Blad1.Cells(4, "e") * 0.8, 2)

Men du kommer fortfarande inte att få 938,48

Om du vill ha karensavdraget istället för sjuklönen i F-kolumnen skall du ta 20% (*0.2) istället för 0.8 för dag2