kolommen optellen in Excel VBA

[debje01]

Hoi, ik wil 2 kolommen optellen met Excel VBA.

Voorbeeld: C2+F2 naar I2

Dit per rij. Maar ik weet niet van te voren hoeveel rijen er zijn.

Kan iemand me helpen?

 

[SjonR]

Een redelijk vaag omschreven wens, dus een voorbeeldbestand zou een hoop verduidelijken.

Gr.

Sjon

 

[debje01]

Bekijk bijlage Resterend verlof.xlsm

hoi Sjon.

zie bijlage.

Ik wil de volgende kolommen optellen per rij.

C + F
D + G
E + H

 

[Gijsbert1]

Zo?

Sub Gijs()
Dim LR As Long
LR = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
With Sheets(1)
    .Range("I2").FormulaR1C1 = "=RC[-6]+RC[-4]"
    .Range("J2").FormulaR1C1 = "=RC[-6]+RC[-3]"
    .Range("K2").FormulaR1C1 = "=RC[-6]+RC[-3]"
    .Range("I2:K2").AutoFill Destination:=Sheets(1).Range("I2:K" & LR)
End With
End Sub

 

[debje01]

ah, super zeg. Het werkt. tnx.

Nog een vraagje. Hoe krijg ik nu kolom C t/m H verwijderd via VBA.

 

[VenA]

Je zal van de formules eerst waarden moeten maken voordat je kolommen gaat verwijderen.

Sub VenA()
  With Cells(2, 9).Resize(, 3)
    .Formula = Array("=C2+F2", "=D2+G2", "=E2+H2")
    .AutoFill Range("I2:K" & Cells(Rows.Count, 1).End(xlUp).Row)
    .Resize(Cells(Rows.Count, 1).End(xlUp).Row) = .Resize(Cells(Rows.Count, 1).End(xlUp).Row).Value
  End With
  Columns("C:H").Delete
End Sub

 

[debje01]

tnx VenA

Nu de kolommen nog titels geven en dan ben ik klaar.

 

[debje01]

de titels zijn toegevoegd, maar hoe kan ik nu sorteren. Ik wil kolom A sorteren zodat het op alfabetische order staat.

 

[VenA]

Sub VenA()
With Sheets("Sheet1")
  lr = .Cells(Rows.Count, 1).End(xlUp).Row
  With .Cells(2, 9).Resize(, 3)
    .Offset(-1) = Split("kop1 kop2 kop3")
    .Formula = Array("=C2+F2", "=D2+G2", "=E2+H2")
    .AutoFill .Range("I2:K" & lr)
    .Resize(lr - 1) = .Resize(lr - 1).Value
  End With
  .Columns("C:H").Delete
  .Cells(1).CurrentRegion.Sort .Cells(1), , , , , , , xlYes
End With
End Sub

 

[debje01]

tnx