laatste en 1 na laatste waarde in kolom opvragen

[caffie]

ik wil enkele waarde op vragen in VB


- de waarde van de laatste gevuld cel in een kolom
(waarde moet weg geschreven worden op regel 10 van die kolom)
zodat ik een lus kan maken over meerdere kolomen

- regel nummer van de laatste gevulde cel

- het aantal regels tussen de laatste waarde in een kolom en de 1 na laatste waarde van die kolom (elke regel staat voor 1 dag)

Wie kan me helpen?

Bijvoorbaat dank.

 

[Hoornvan]

Kijk eens of je hier wat mee kunt.

 

[caffie]

Kijk eens of je hier wat mee kunt.

Dit is niet wat ik bedoel
omdat dit niet in VB is
en omdat het niet de gehele kolom afdekt maar 1 range

toch vast bedankt.

 

[Cobbe]

Met deze macro kun je dit zien in kolom A

Sub laatste_item()
[A10] = "De laatste waarde staat op rij " & Range("A65000").End(xlUp).Row
[A11] = "Op rij " & Range("A65000").End(xlUp).Row & " staat de waarde " & Range("A65000").End(xlUp).Rows
[A12] = "Er zitten " & Range("A65000").End(xlUp).Row - Range("A" & Range("A65000").End(xlUp).Row).End(xlUp).Row & " rijen tussen!"
End Sub

Succes, Cobbe

 

[caffie]

Met deze macro kun je dit zien in kolom A

Sub laatste_item()
[A10] = "De laatste waarde staat op rij " & Range("A65000").End(xlUp).Row
[A11] = "Op rij " & Range("A65000").End(xlUp).Row & " staat de waarde " & Range("A65000").End(xlUp).Rows
[A12] = "Er zitten " & Range("A65000").End(xlUp).Row - Range("A" & Range("A65000").End(xlUp).Row).End(xlUp).Row & " rijen tussen!"
End Sub

Succes, Cobbe

Er wordt nu gebruikt gemaakt van een Range("A65000").End(xlUp).Row
hoe kan ik hier een variable kolom van maken


Ik wil deze dus over meerdere kolomem laten uitvoeren

dat wil ik doen door eerste de kolomen te laten tellen die gebruikt zijn
dan wil ik een loop maken vanaf kolom (4 tot X+4 )
X zijn het aantal kolomen met data


Vast bedankt

 

[Cobbe]

Deze code doet dat indien de gegevens beginnen op regel 15.
Indien dit niet zo is dien je dit aan te passen '15' staat in rood::

Sub laatste_item()
For i = 4 To Sheets(1).UsedRange.Columns.Count
Cells(10, i) = Cells(65000, i).End(xlUp).Row
Cells(11, i) = Cells(65000, i).End(xlUp).Rows
Cells(12, i) = Cells(10, i) - Cells([COLOR="Red"][B]15[/B][/COLOR], i).End(xlDown).Row
Next
End Sub

Ik hoop dat dit was hetgeen je bedoelde.

Cobbe

 

[snb]

Ik kan je voorbeeldbestand niet openen....

 

[caffie]

Deze code doet dat indien de gegevens beginnen op regel 15.
Indien dit niet zo is dien je dit aan te passen '15' staat in rood::

Sub laatste_item()
For i = 4 To Sheets(1).UsedRange.Columns.Count
Cells(10, i) = Cells(65000, i).End(xlUp).Row
Cells(11, i) = Cells(65000, i).End(xlUp).Rows
Cells(12, i) = Cells(10, i) - Cells([COLOR="Red"][B]15[/B][/COLOR], i).End(xlDown).Row
Next
End Sub

Ik hoop dat dit was hetgeen je bedoelde.

Cobbe

vast bedankt .


misschien dat ik wat fout heb gedaan

maar ik krijg het niet voor elkaar om de regels te tellen van de laatste en de 1 na laatste gebruikte cel in de kolom

ik heb alles erin geplakt en ik heb de file even toegevoegd bij me berichtje

dat maakt het waarschijnlijk een stuk duidelijker

Al vast heel erg bedankt

 

[Cobbe]

Ik heb een en ander toegepast, zie maar of je hier verder mee kunt.

Het is wel handiger om een bestandje te sturen dat niet afgeschermd is met een wachtwoord.

Cobbe

 

[caffie]

Ik heb een en ander toegepast, zie maar of je hier verder mee kunt.

Het is wel handiger om een bestandje te sturen dat niet afgeschermd is met een wachtwoord.

Cobbe

Hartelijk bedankt