Formule plaatsen in variabel bereik

[PGOOSSENS]

Hoi,

Met enige hulp heb ik onderstaand stukje code voor een van mijn bestanden. Het werkt maar het moet sneller kunnen. Het moet toch mogelijk zijn om de formule in één keer in alle cellen tot en met de laatst gebruikte cel te plakken?

Alvast bedankt

Sub test()
Dim rowcount As Long, i As Long, j As Long
Set s1 = Sheets("Table")
Set tmpR = s1.UsedRange
rowcount = tmpR.Rows.Count

Range("P6").Select
For i = 6 To rowcount - 1 Step 1
j = 16
ActiveCell.FormulaR1C1 = "=RC[1]-RC[-2]-RC[-1]"
Selection.Style = "Comma"
Selection.NumberFormat = "_ * #,##0.0_ ;_ * -#,##0.0_ ;_ * ""-""??_ ;_ @_ "
Selection.NumberFormat = "_ * #,##0_ ;_ * -#,##0_ ;_ * ""-""??_ ;_ @_ "
ActiveCell.Offset(1, 0).Select
Next i
End Sub

 

[HSV]

Test het maar eens.

Sub test()
With Sheets("Table")
 .Range("P6:P" & .Cells(Rows.Count, 14).End(xlUp).Row).Formula = "=RC[1]-RC[-2]-RC[-1]"
 End With
End Sub

 

[PGOOSSENS]

Hoi,

Misschien is het gemakkelijker met het bestand erbij want hij doet nog niet wat ik verwacht. De code tot het punt dat de fomule er in moet heb ik toegepast en dan ziet het bestand er zo uit. Dan moet in P6 tot de laatste gebruikte cel (in dit geval P14 maar dat is dus variabel) de formule komen.

Bedankt!
Paul

 

[HSV]

Verander 14 in de code door 1.

 

[PGOOSSENS]

hoi,

Perfect, bedankt!

En als ik nu over die selectie nu ook nog de opmaak wil wijzigen? Dit stond in de oude code:

Selection.Style = "Comma"
Selection.NumberFormat = "_ * #,##0.0_ ;_ * -#,##0.0_ ;_ * ""-""??_ ;_ @_ "
Selection.NumberFormat = "_ * #,##0_ ;_ * -#,##0_ ;_ * ""-""??_ ;_ @_ "

Hoe pas ik dat in?

 

[HSV]

In jouw code zal het altijd de laatste toepassen.
Dus heb ik deze ook maar toegepast.

Sub test()
With Sheets("Table").Range("P6:P" & Sheets("table").Cells(Rows.Count, 1).End(xlUp).Row)
  .Formula = "=RC[1]-RC[-2]-RC[-1]"
  .NumberFormat = "_ * #,##0_ ;_ * -#,##0_ ;_ * ""-""??_ ;_ @_ "
End With
End Sub

 

[PGOOSSENS]

Opgelost

Hoi,

zo krijg ik een foutmelding, maar als ik nog een keer de eerste regel ervoor plak, dus "With sheets....Row)" en dan .Numberformat erachter dan werkt het als een trein. Dus deze kan gesloten worden (of moet ik dat doen? zo ja hoe?)

Thanks!

 

[HSV]

Geen idee waarom het bij jou niet werkt.
Kopiëer de code vanaf forum en plak het in de module.

Je vraag op opgelost zetten doe je volgens mij in je openingsvraag, maar weet het niet zeker.