Avatar billede jan Novice
12. januar 2008 - 13:43 Der er 12 kommentarer og
1 løsning

ark markering

Jeg har en række regneark, hvor jeg har brug for at markerer f.eks. ark2,ark3,ark4 for at slette alt hvad der er i området fra a13:f25, for derefter at vende tilbage til ark1 i a13. Hvilken kode skal anvendes
Avatar billede kabbak Professor
12. januar 2008 - 14:59 #1
Sheets(Array("Ark2", "Ark3", "Ark4")).Select
    Range("A13:F25").ClearContents
Sheets("Ark1").Select
Range("A13").Select
End Sub
Avatar billede kabbak Professor
12. januar 2008 - 15:05 #2
sådan

    Sheets(Array("Ark2", "Ark4", "Ark3")).Select
    Sheets("Ark2").Activate
    Range("A13:F23").Select
    Selection.ClearContents
    Sheets("Ark1").Select
    Range("A13").Select
Avatar billede jan Novice
12. januar 2008 - 21:37 #3
Jeg modtager følgende fejlmeddelse

Metoden Select for klassen Range mislykkedes.

koden er

Sheets(Array("Ark2", "Ark4", "Ark3")).Select
    Sheets("Ark2").Activate
    Range("A13:F23").Select
    Selection.ClearContents
    Sheets("Ark1").Select
    Range("A13").Select

Det er Range("A13:F23").Select som der er noget galt med
Avatar billede kabbak Professor
13. januar 2008 - 00:15 #4
har du flettede celler ??
Avatar billede kabbak Professor
13. januar 2008 - 00:23 #5
har du flettede celler ??
Avatar billede jan Novice
13. januar 2008 - 01:13 #6
nej
Avatar billede jan Novice
13. januar 2008 - 01:19 #7
Her er lidt mere :
Følgende fejlmeddelse kommer når jeg har lagt kommandoknappen i Ark1. Det er her jeg gerne vil have den liggende.
Hvis jeg lægger den i Ark2 sletter den som den skal i ark2,3,4,, men efterlader to problemer
1) den lader de valgte områder stå tilbage som markerede
2. den har problemer med den sidste linie # Range("A13").Select # da den ikke kan gå tilbage til ark1.
Avatar billede kabbak Professor
13. januar 2008 - 18:11 #8
Du SKAL have makroen i et modul, IKKE i et arkmodul.

Sæt koden under din knap, til at kalde makroen i modulet.

eks.

Call makronavn.

En makro i et arkmodul, kan kun arbejde i det ark den er i, derfor skal den være i et module
Avatar billede jan Novice
13. januar 2008 - 22:38 #9
OK det virker. Men problemet er at jeg skulle bruge det som en del af en sammenhængende kode, men den går i står efter "Call Makro2".
Hvordan får jeg koden til at fortsætte

Private Sub CommandButton2_Click()
Call Makro2
Set sh1 = Sheets("4 ugers turnus")
Set sh2 = Sheets(sh1.Range("x14").Value)
For t = 1 To sh1.Cells(1000, "A").End(xlUp).Row
If IsDate(sh1.Cells(t, "A")) = True Then
If sh1.Cells(t, "A") >= sh1.Range("t14") And sh1.Cells(t, "A") <= sh1.Range("v14") Then
sh1.Range("A" & t & ":AA" & t).Copy sh2.Cells(sh2.Cells(1000, "A").End(xlUp).Row + 1, "A")
End If
Avatar billede kabbak Professor
13. januar 2008 - 22:43 #10
det samme problem som den anden, du kan IKKE arbejde med andre ark i et Arkmodul, sæt resten af koden over i Makro2
Avatar billede jan Novice
14. januar 2008 - 17:51 #11
OK jeg er begyndt at forstå problemet kerne og det hjælper. Du har dine point hjemme.
Avatar billede jan Novice
15. januar 2008 - 19:22 #12
kabbak, skal du ikke ha point......
Avatar billede kabbak Professor
15. januar 2008 - 21:03 #13
;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester