Problem med Macro. - VBA - Forum Excel, VBA, VSTO, Exceltips, Excelhjälp

Sök Forumets startsida

2015-02-16 18:19

Flexi

Medlem sedan: 2015-02-16

1 inlägg

Problem med Macro.

Hej,
Jag sitter och försöker göra ett macro som ska kopia innehållet på sidan och sedan ska X antal kopior i samma dokument.
Macrot gör det som är tänkt, dock får jag ett felmeddelande när jag väljer "cancel", alltså om jag inte vill göra några kopior.

Jag vill poängtera att jag är helt ny inom detta, så ni får ursäkta min okunskap.

Macrot ser ut som nedan:

Private Sub CommandButton21_Click()
Count = InputBox("Antal medsökande att lägga till?")
With Selection
.GoTo wdGoToPage, wdGoToAbsolute, Page
.Bookmarks("\Page").Range.Copy
For i = 1 To Count: .Paste: Next
End With

2015-02-19 10:55

Anna

Medlem sedan: 2009-01-13

82 inlägg

Re: Problem med Macro.

När man klickar avbryt så blir count en tomsträng och kan inte användas för att räkna med, dvs. du kan inte köra For i=1 To Count. Det kommer också att bli fel om någon matar in bokstäver istället för siffror i inputboxen. Kolla först att Count innehåller ett tal:

Private Sub CommandButton21_Click()
Count = InputBox("Antal medsökande att lägga till?")
If IsNumeric(Count) Then
With Selection
For i = 1 To Count: .Paste: Next
.GoTo wdGoToPage, wdGoToAbsolute, Page
.Bookmarks("\Page").Range.Copy
For i = 1 To Count: .Paste: Next
End With
End If
End Sub

################# Anna Degerman Rosén #################

Anna Degerman Rosén

Excelforum drivs av Excelspecialisten som bedriver utveckling av program, utbildning samt support och hjälp i Excel och VBA.

www.excelspecialisten.se

Sida 1 av 1