Multidesk.be » Forums » Programmeren algemeen » loop in macro bouwen (verplaatst)

  • Pagina
  • 1 van 1
0 gasten lezen dit onderwerp.
^ Onderwerp geschreven door Prins75 op donderdag 25 februari 2016 om 16:36:06.
Prins75 heeft nog geen avatar toegevoegd
Multiviteit: 3
Hallo allemaal,

Ik heb de volgende macro gebouwd.
Maar nu wil ik dat een bepaald gedeelte (vanaf Set bereik t/m end with) in een loop komt totdat er geen gegevens meer in cellen zijn te vinden.
Deze stappen moet in sommige rapportages tot kolom FT lopen, het einde qua regels is variabel.


Rows("1:1").Select
Selection.Font.Bold = True
Columns("F:F").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.NumberFormat = "0.00"
Dim Bereik As Range

Set Bereik = Range(Range("f1"), Range("f65536").End(xlUp))
With Range("f65536").End(xlUp).Offset(2)
.Value = WorksheetFunction.Sum(Bereik)
.Font.Bold = True
.Font.ColorIndex = 3
.Font.TintAndShade = 0
End With

' Range("A1").Select
End Sub

Hopelijk kan iemand mij hierbij helpen
Bijlage: a303535489b301157585e25661a4a5f6.xlsx

Opmerking van de crew

Ik heb je bericht even in de correcte categorie geplaatst.
Wheeldigger
^ Reactie #1 geschreven door Prins75 op vrijdag 26 februari 2016 om 11:53:45.
Prins75 heeft nog geen avatar toegevoegd
Multiviteit: 3
Bedankt Wheeldigger.
^ Reactie #2 geschreven door thekid op zondag 6 maart 2016 om 10:17:11.
thekid's avatar
Multiviteit: 5273
Moderator
Is je probleem momenteel dat je selectie te groot is?
"Human beings make life so interesting. Do you know, that in a universe so full of wonders, they have managed to invent boredom." - Death in Hogfather
  • Pagina
  • 1 van 1

Snel-antwoordformulier
Toon uitgebreid antwoordformulier Bericht nalezen Bericht plaatsen