Avatar billede 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 = "-"
Avatar billede store-morten Ekspert
05. august 2020 - 14:34 #1
I 6 række under?
Avatar billede 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
Avatar billede 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
Avatar billede 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
Avatar billede 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
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

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