Makro

Den kunne se sådan ud:

Sub Faktura()
    Range(\"A4:C16\").Select
    Selection.ClearContents
    Range(\"A4\").Select
End Sub

Sub Faktura()
Dim rCell As Range
    For Each rCell in Sheets(\"Ark1\").Range(\"A4:C16\")
        rCell.ClearContents
    Next rCell

    Sheets(\"Ark1\").Select
    Range(\"A4\").Select
End Sub

Husk at ændre Ark1 til navnet på dit ark

Det ser lidt bedre ud, hvis de to ekstra linier kommer med som her.

Sub Faktura()
Dim rCell As Range
    Application.ScreenUpdating = False
    For Each rCell in Sheets(\"Ark1\").Range(\"A4:C16\")
        rCell.ClearContents
    Next rCell

    Application.ScreenUpdating = True
    Sheets(\"Ark1\").Select
    Range(\"A4\").Select
End Sub

Den første linie markerer området A4 til C16.
Den anden linie sletter dette område (A4 til C16).
Den sidste linie stiller markøren i celle A4.

Højreklik på den arkfane i bunden, hvor din faktura ligger.
Indsæt ovenstående 5 linier i stedet for linierne:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

Du kan nu trykke ALT+F8 for at køre makroen på arket.
Du kan også oprette en knap og tilknytte makroen til den.

eller...

Sub Faktura()
    Sheets(\"Ark1\").Range(\"A4:C16\").ClearContents
    Sheets(\"Ark1\").Select
    Range(\"A4\").Select
End Sub

eller....eller... det kan gøres på et hav af måder. Den hurtigste kode er altid ved at undgå Select og Selection, så vidt det er muligt.

Det kunne være dejligt hvis man KUN BRUGTE DANSK.......
Men jeg prøver lige!!!!!!!!

Det kan du også - i de tidligere versioner, men det er heldigvis afskaffet, således det er ens worldwide :-) dejligt synes jeg.

Jeg har nu forsøgt at \"tyde\" forklaringerne, de er ikke gode nok til mig.
Jeg vil gerne have at vide hvilke celler markøren skal stå i o.s.v. og hvor meget der skal markeres, og som jeg før bad om \"kun\" på dansk ellers kan jeg ikke bruge det, eller tusind tak for besværet.!!!!!!

Hvis du har brugt jan\'s forklaring til at kopiere din makro ind i dit regnear, så skal du ikke stå noget bestemt sted, ej heller have noget markeret - bare starte den via Alt+F8

Jeg har forklaret linie for linie, hvad der sker i makroen - på dansk!
Nærmere kan man nok ikke komme.

obmm>> hvad laver du en faktura til ?

Jeg er ved at lære mig selv \"noget\" og har fået nogle gamle eksamens opgaver, (så jeg kan se hvor meget jeg kan finde ud af ).

Eksamensopgaver i regneark eller økonomi?

Det kan næsten ikke \"serveres\" nemmere. Jeg summerer lige min svar:

Tag udgangspunkt i koden:

Sub Faktura()
    Range(\"A4:C16\").Select
    Selection.ClearContents
    Range(\"A4\").Select
End Sub

Den første linie markerer området A4 til C16.
Den anden linie sletter dette område (A4 til C16).
Den sidste linie stiller markøren i celle A4.

Højreklik på den arkfane i bunden, hvor din faktura ligger.
Indsæt ovenstående 5 linier i stedet for linierne:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

Du kan nu trykke ALT+F8 for at køre makroen på arket.
Du kan også oprette en knap og tilknytte makroen til den.

Hvor du står henne på fakturaarket når du kører makroen er ligegyldigt, men når du hár kørt makroen står du i celle A4.

Eksamensopgaver i regneark.!!!!

Den første linie markerer området A4 til C16.
Den anden linie sletter dette område (A4 til C16).
Den sidste linie stiller markøren i celle A4.
DISSE LINIER HVOR ER DET LIGE JEG FINDER/SKRIVER DEM.

På DANSK tak!!!!!!!!!!
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

1. Højre klik på fanebladet \"Ark1\" eller faktura, eller hvad du nu har navngivet arket til.
2. Vælg \"Vis programkode\"
3. kopier en af makro\'erne herfra ind i det store vide felt som vises.
4. Klik på krydset øverst i højre hjørne, for at lukke VBA editoren (som den hedder)
5. Stil dig i arket og tryk Alt+F8
6. Marker makro\'en \"Faktura\" og vælg Afspil

Jeg tror jeg er ved at forstå det nu (næsten) tusind tak for alt besværet.
Jeg synes det er lidt svært lige at finde ud af hvad man skal skrive hvor.??????????????????????

det var ikke en venlig point fordeling.........!

>>>obmm
Du kan have ret i, at det er lidt svært at skulle lægge sin første makro ind. Men når man først er fortrolig med VBA-vinduet (ALT+F11) er det såmænd ikke så slemt.

Du behøver ikke tage hensyn til linien
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Den skal bare overskrives med den nye formel.

Den første linie markerer området A4 til C16.
Den anden linie sletter dette område (A4 til C16).
Den sidste linie stiller markøren i celle A4.
Disse tre linier skal heller ikke indsættes specielle steder - det er blot forklaringer på dansk til den reelle kode.

Kan jeg lave en \"knap\" til dette.
Øhh!!! så må jeg prøve at være bedre med point fordelingen en anden gang, men husk at jeg gav yderlige 20 point til deling.

Jeg syntes din pointfordeling var helt ok.

Du finder en knap på værktøjslinien \"formularer\" (VIS->VÆRKTØJSLINIER).
Når du har lavet knappen vil du blive spurgt om, hvilken makro, som skal tilknyttes. Her vælger du så din faktura-makro.