Prøv denne:
Sub SætFormat()
'1. området H11 til K34 skal have ophævet flettede celler
Range("H11:K34").UnMerge
'2. Kolonne H skal formateres til tt:mm:ss
Columns("H:H").NumberFormat = "h:mm:ss"
'3.Kolonne I formateres som standard
Columns("I:I").NumberFormat = "General"
'4.i Celle H11 indsættes 10:00:00
Range("H11").FormulaR1C1 = "10:00:00"
'5.I Celle H12 indsættes formlen
'=HVIS(SEKUND(VENSTRE(L11;8))<=48;RUND.OP(((VENSTRE(L11;8))+H11)*24/(24/(24*60));0)*((24/(24*60))/24);RUND.OP(((VENSTRE(L11;8))+H11+"00:00:12")*24/(24/(24*60));0)*((24/(24*60))/24))
Range("H12").FormulaR1C1 = "=IF(SECOND(LEFT(R[-1]C[4],8))<=48,ROUNDUP(((LEFT(R[-1]C[4],8))+R[-1]C)*24/(24/(24*60)),0)*((24/(24*60))/24),ROUNDUP(((LEFT(R[-1]C[4],8))+R[-1]C+""00:00:12"")*24/(24/(24*60)),0)*((24/(24*60))/24))"
'6.I celle I11 indsættes formlen =HVIS(H11<>0;":00";"")
Range("I11").FormulaR1C1 = "=IF(RC[-1]<>0,"":00"","""")"
'7.I område række 11 til 34 sættes skrifttype til ariel
Rows("11:39").Font.FontStyle = "Arial"
'7.I område række 11 til 34 sættes skrifttype til 9 punkt
Rows("11:39").Font.Size = 9
End Sub
Hvis du vil have lagt din "SætFormat" kode ind i din 'Personlig makromappe'
Så skal tungen holdes lige i munden ;-)
Menuen Udvikler -->
Menuen Kode --> "Indspil makro"
Vigtigt! 'Gem makro i:' --> ændres til "Personlig makromappe" --> OK
Klik på en tilfældig celle --> Menuen Kode --> "Stop indspilling"
Tryk alt+F11
Under VBAProject(PERSONAL.XLSB) --> 'Modules' --> dobbeltklik på 'Module1' i kassen vil der stå noget med:
Sub Makro1()
'
' Makro1 Makro
'
'
Range("C7").Select
End Sub
Erstat det med koden fra før. Luk og Gem alt.
NU... skulle det virker når du åbner et "Nyt" ark.
Husk:Efter at have indspillet makro til den 'Personlig makromappe' sæt tilbage til 'Denne projektmappe'
Menuen Udvikler -->
Menuen Kode --> "Indspil makro"
Vigtigt! 'Gem makro i:' --> ændres igen til "Denne projektmappe" --> Luk på det røde kryds.
Ellers vil alle fremtidige indspillede makroer gemmes i den 'Personlig makromappe'
