Tabel vullen mbv VBA

[jansm]

Beste allemaal,

Tabblad TRANS bevat bank-transactie's. In tabblad OVERZICHT kan ik uit TRANS per datum het saldo van 4 rekeningnummers extraheren. Nu wil ik graag met de BUTTON de waarde SALDOtotaal een tabel vullen.
Kunnen de heren mij helpen?
Bekijk bijlage Test_Forum.xlsx

Mvg Jansm

 

[jansm]

... het komt dus hierop neer: ik wil een celwaarde kopieren naar een naar een lege cel onderaan een rij getallen.

 

[HSV]

Zoiets?

Sub hsv()
 With Sheets("Overzicht")
  .Cells(Rows.Count, 6).End(xlUp).Offset(1).Resize(, 2) = Array(.Cells(2, 4), Cells(8, 4))
 End With
End Sub

 

[jansm]

Hallo Harry, bedankt, dit werkt.
Ik probeer die ene regel te verklaren:
.Cells (Rows.count, 6) - tel de rijen in kolom 6
.End(xlUp) - stapjes van 1
.Offset(1) - gevonden aantal +1
.Resize(, 2) -???????????????
= Array(.Cells(2, 4), Cells(8, 4)) - dit zijn de 2 te kopieren waarden maar hoe wordt bepaald waar ze geplaatst worden?

Wil jij mij aub verbeteren?

 

[snb]

Tsjaa, alleen maar heren

 

[jansm]

... toch worden er hier niet zelden recepten gegeven....

 

[HSV]

De waarden van de cellen in de array worden geplaatst in:

.Cells (Rows.count, 6) .End(xlUp) = vanaf (in dit geval; rows.count is cel 1048576 in Excel 2007 en later) de laatste cel in kolom F naar de laatst ingevulde cel naar boven (hetzelfde als Ctrl+pijltje naar boven).
.Offset(1) = 1 cel naar onderen.
.Resize(, 2) = 2 cellen breed.

 

[snb]

Je maakt het alleen maar erger, vrees ik.

 

[jansm]

@Harry - bedankt. Begrijp h'm.
@ snb - ik begin er niet over en bedoel er niets mee. Iedere oplossing van een hier aangediend probleem is toch een recept !?! En ... hoeveel mannen koken niet? Je zult ze te eten moeten geven, pffff.