Makro og VBA - Makrofejl ved reset af extern data

Makrofejl ved reset af extern data

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=555
Udskrevet den: 12.Dec.2024 kl. 21:01

Emne: Makrofejl ved reset af extern data

Besked fra: timer
Emne: Makrofejl ved reset af extern data
Posteringsdato: 08.Dec.2011 kl. 10:38

Hej !

Jeg har lavet en Makro som resetter / 0-stiller felter af importerede data.

Når jeg kører makroen efter at jeg har importeret externe data resetter / 0-stiller makroen også fint nok, men kører jeg makroen endnu en gang, altså efter at jeg har resettet / 0-stillet får jeg fejl:

Makroen med fejl ser således ud :

Sub Reset052()

' Reset052 Makro

' Makro indspillet af SP

Sheets("0").Select

Range("A1:AB105").Select

ActiveSheet.Unprotect "'"

Selection.ClearContents

Selection.QueryTable.Delete

ActiveWindow.SmallScroll Down:=-12

Range("A1").Select

ActiveSheet.Protect Password:="'", DrawingObjects:=True, Contents:=True, Scenarios:=True

Sheets("c052").Select

Range("B7").Select

ActiveCell.FormulaR1C1 = ""

Range("B8").Select

ActiveCell.FormulaR1C1 = ""

Range("B9").Select

ActiveCell.FormulaR1C1 = ""

Range("B10").Select

ActiveCell.FormulaR1C1 = ""

Range("I19").Select

ActiveCell.FormulaR1C1 = "0"

Range("I20").Select

ActiveCell.FormulaR1C1 = "0"

Range("I21").Select

ActiveCell.FormulaR1C1 = "0"

Range("A1:N1").Select

ActiveSheet.Protect Password:="'", DrawingObjects:=True, Contents:=True, Scenarios:=True

ActiveWorkbook.Save

End Sub

Er der nogen der kan hjælpe mig til at denne makro kan køre selv om data allerede er slettet ?

Hej Timer.

Svar:

Besked fra: timer
Posteringsdato: 08.Dec.2011 kl. 10:40

Glemte lige at vise linjen som viste fejl i makroen :

Selection.QueryTable.Delete

Besked fra: rassten
Posteringsdato: 09.Dec.2011 kl. 02:43

Prøv evt:

Sheets("0").Select
 
    Range("A1:AB105").Select
 
    ActiveSheet.Unprotect "'"
 
    Selection.ClearContents
On Error Resume Next ' ny linie
 
    Selection.QueryTable.Delete
On Error GoTo 0 ' ny linie
 
    ActiveWindow.SmallScroll Down:=-12
 
    Range("A1").Select
 
    ActiveSheet.Protect Password:="'", DrawingObjects:=True, Contents:=True, Scenarios:=True
 
    Sheets("c052").Select
 ActiveSheet.Unprotect "'" ' ny linie
 
    Range("B7").Select
osv...

-------------
VH rassten

Arbejde excel 2010
Privat excel 2010

Besked fra: timer
Posteringsdato: 11.Dec.2011 kl. 05:30

Hej rassten.

Endnu engang tusind tak for hjælpen, det var lige præcis de linjer jeg skulle bruge.

Jeg er meget taknemlig.

Hej Timer.

Besked fra: rassten
Posteringsdato: 11.Dec.2011 kl. 14:49

glad hvis jeg kunne hjælpe, tak for tilbagemeldingen.

-------------
VH rassten

Arbejde excel 2010
Privat excel 2010