Meterstanden

[henkievermeer]

Hallo,

Ik hoop dat iemand mij kan helpen.
Ik ben al een tijdje bezig om het volgende voor elkaar te krijgen, maar zonder succes.

Het is de bedoeling dat als er standen worden ingevuld in werkblad "Invulblad" het volgende in werkblad "Lijst" komt, na de button opslaan.

B7-B6 (3909-3838) in J7 komt.
Dit geldt ook voor C7-C6 (4436-4368 )in K7
Dit geldt ook voor D7-D6 (601-568)in L7
Dit geldt ook voor E7-E6 (1519-1464)in M7

De volgende invoer wordt dan B8-B7 in J8 en C8-C7 K8 enz. enz.

Bijv dank.

Rob

 

[AHulpje]

Je voorbeeld komt niet overeen met je beschrijving.

 

[henkievermeer]

Ik heb mijn vraag aangepast, maar ik zie niet wat er niet overeenkomt.
Vertel wat,

Het is de bedoeling dat als er standen worden ingevuld in werkblad "Invulblad" het volgende in werkblad "Lijst" komt, na de button opslaan.

B7-B6 (3909-3838) in J7 komt.
Dit geldt ook voor C7-C6 (4436-4368 )in K7
Dit geldt ook voor D7-D6 (601-568)in L7
Dit geldt ook voor E7-E6 (1519-1464)in M7

Deze komt na de volgende invoer.
Dat wordt dan in werkblad "Lijst" B8-B7 (3991-3909)in J8 en C8-C7(4496-4436) K8 enz. enz.

Bijv dank.

Rob

 

[edmoor]

Er staat niks in kolom B.
In kolom C staan datums.
In kolommen D en E staat niks.

En waarom niet gewoon direct in het werkblad Lijst invullen?

 

[AHulpje]

B7-B6 (3909-3838) in J7 komt. Bedoel je F8-F7?
Dit geldt ook voor C7-C6 (4436-4368 )in K7 Bedoel je G8-G7?
Dit geldt ook voor D7-D6 (601-568)in L7 Bedoel je H8-H7?
Dit geldt ook voor E7-E6 (1519-1464)in M7 Bedoel je I8-I7?

 

[roeljongman]

Gezien het tijdstip had ik geen tijd om de hele vraag uit te werken.

Vermijd het gebruik van Usedrange omdat die nog wel eens onnauwkeurig is in excel en een regel dan opeens 3 regels lager wordt geplaats.

Als code voor de nieuwe regel zou ik deze gebruiken

 nwRegel = Sheets("Lijst").Cells(Rows.Count, 1).End(xlUp).Row + 1

voor het vullen van de kolommen J tm M op blad lijst gebruik je deze code. voorbeeld is voor J kolom

.Range("J" & nwRegel).Value = .Range("B" & nwRegel).Value - .Range("B" & nwRegel - 1).Value

werkende code voor alleen kolom J in de bijlage. maar ik denk dat je hiermee de code voor de andere kolommen ook wel zelf kunt afleiden. kwestie vna de kolom letters juist aanpassen.

 

[cow18]

mijn bijdrage : een tabel op dat andere blad, waarbij je die andere meetstanden kopieert in de 1e kolommen en de verschillen in de volgende kolommen berekend worden.

 

[henkievermeer]

Roel,

Bedankt. Dit bedoelde ik .

cow18,

Ik ga dit ook bekijken.

Bedankt

Rob