Avatar billede idani Praktikant
26. januar 2011 - 14:31 Der er 5 kommentarer og
1 løsning

Problemer med macro

Hejsa
Jeg har et problem med denne macro
Jeg har ikke selv skrevet den - og er ikke super god til vba (ren novice)
Jeg er nået frem til at det er følge udtryk den ikke kan lide

Rows("A8:IV65536").Select


Bemærk det er en 2003 excel fil - som nu er gemt som 2007 format inkl. macroer

Fulde macro nedenfor

Sub ClearPeopleCards()

Sheets("People cards").Select
ActiveSheet.Unprotect ("PSS")

'Delete previously printed records
Rows("A8:IV65536").Select
Selection.Delete Shift:=xlUp

'Clear print area
ActiveSheet.PageSetup.PrintArea = ""

ActiveSheet.Protect ("PSS")
Application.CutCopyMode = False
Range("A1").Select

End Sub

Hilsen
Ida
Avatar billede supertekst Ekspert
26. januar 2011 - 15:41 #1
Prøv med Range i stedet for Rows
Avatar billede jkrons Professor
27. januar 2011 - 13:14 #2
Denne er bedre (og hurtigere, fordi den ikke selecter alting, før den gør noget ved det:

Sub ClearPeopleCards()
    With Sheets("People cards")
        .Range("A1:IV65536").Delete Shift:=xlUp
        .PageSetup.PrintArea = ""
        .Range("A1").Select
        .Protect ("PSS")
    End With
    Application.CutCopyMode = False
End Sub
Avatar billede jkrons Professor
27. januar 2011 - 13:15 #3
A8:IC65536 skulle der selvfølgelig have stået.
Avatar billede jkrons Professor
27. januar 2011 - 13:16 #4
Og en gang til:

Sub ClearPeopleCards()
    With Sheets("People cards")
        .Range("A8:IV65536").Delete Shift:=xlUp
        .PageSetup.PrintArea = ""
        .Range("A1").Select
        .Protect ("PSS")
    End With
    Application.CutCopyMode = False
End Sub
Avatar billede idani Praktikant
02. februar 2011 - 09:14 #5
Hejsa

Den med range lykkedes.
Takker for hjælpen. supertekst - smider du et svar.
/Ida
Avatar billede supertekst Ekspert
02. februar 2011 - 09:18 #6
Fint og selv tak
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
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

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