Butterfly Ekspert
05. august 2020 - 14:21 Der er 2 kommentarer og
3 løsninger

kør den samme makro 6 gange

Hej
Jeg har bruge for at få sat 6 streger efter sidste linje, hvordan gør jeg det? Skal jeg kører den samme makro 6 gange eller finders der et eller andet smart der kan gøre det?

Range("B10").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(1, 0).Value = "-"
store-morten Ekspert
05. august 2020 - 14:34 #1
I 6 række under?
store-morten Ekspert
05. august 2020 - 14:49 #2
Prøv den nemme:
Sub test1()
Range("B10").Select
    Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Value = "-"
        ActiveCell.Offset(2, 0).Value = "-"
        ActiveCell.Offset(3, 0).Value = "-"
        ActiveCell.Offset(4, 0).Value = "-"
        ActiveCell.Offset(5, 0).Value = "-"
        ActiveCell.Offset(6, 0).Value = "-"
End Sub
Eller:
Sub test2()
Dim i As Integer
Dim r As Integer

Range("B10").Select
    Selection.End(xlDown).Select

r = 1
    For i = 1 To 6
        ActiveCell.Offset(r, 0).Value = "-"
        r = r + 1
    Next
End Sub
jens48 Ekspert
05. august 2020 - 19:05 #3
Eller kortere:

Sub test2()
Range("B10").Select
    Range(Selection.End(xlDown).Offset(1, 0), Selection.End(xlDown).Offset(6, 0)).Value = "-"
End Sub
store-morten Ekspert
05. august 2020 - 21:27 #4
På en linje ;-) :
Sub test3()
    Range(Range("B10").End(xlDown).Offset(1, 0), Range("B10").End(xlDown).Offset(6, 0)).Value = "-"
End Sub
Butterfly Ekspert
06. august 2020 - 06:42 #5
Mange tak for alle de gode løsninger - lige hvad jeg har brug for.
Med ønsket om en fantastisk dag
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

Opret Preview

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





Premium
Spareplan har udløst voldsomme protester: Her er regeringens forklaring på planlagte it-besparelser
Regeringens planer om at skære ned for blandt andet Datatilsynet, Digitaliseringsstyrelsen og Styrelsen for It og Læring skyldes blandt andet 'bevillings-udløb' og 'løbende tilpasninger,' lyder det i et skriftligt svar, som Finansministeriet har sendt til Computerworld - tre uger efter vi bad om en begrundelse.
Computerworld
Så kom der pris og dato på de nye PlayStation 5-modeller
Sony slipper de nye PlayStation 5 konsoller løs blot halvanden uge efter lanceringen af Microsofts Xbox-kollektion.
CIO
Podcast: Pandoras CIO Peter Cabello afslører sine tre vigtigste mål for digitaliseringen
Podcast, The Digital Edge: Hør Pandoras CIO Peter Cabello Holmberg fortælle om, hvordan et af verdens største smykkefirmaer arbejder med innovation og digitalisering af et traditionel offline salg, og hvordan Pandora udnytter data til at skabe en bedre kundeoplevelse.
Job & Karriere
På jagt efter et it-job i Jylland? Her er 10 stillinger fra Aabenraa til Aalborg, der ledige netop nu
Vi har fundet en række spændende stillinger til dig, der jagter et it-job. Her kan du vælge og vrage mellem ledige stillinger lige fra Aabenraa til Aalborg.
White paper
Find den rette model til din organisation: Ny guide til outsourcing er fyldt med tips & tricks
Mængden af outsourcede it-opgaver er steget støt over de sidste 10 år. Det giver mening, for samtidig er kompleksitet og forretningens forventninger til hastighed også steget. Men outsourcing er også et strategisk valg. For skal du hyre direkte, gennem en leverandør eller skabe dit eget sourcingselskab? Og hvad er fordele - og ulemper ved hver model? Det får du en række konkrete bud på hvor 5 relationship modeller og 3 prismodeller gennemgås og evalueres.