Etienne1978
Gebruiker
- Lid geworden
- 3 mei 2012
- Berichten
- 32
Hallo,
Ik heb een bestand met meerdere tabbladen. Nu wil ik dat (middels een macro) hij op ieder tabblad het aantal regels gaat tellen
en mij de uitkomst in cel J1 zet. Kolom a t/m i zijn ingevuld. op ieder tabblad zijn het een verschillend aantal regels.
als macro formule heb ik:
Dim intaantalrijen As Integer
Dim i As Integer
Dim currentcell As Range
Range("a2").Select
intaantalrijen = ActiveCell.CurrentRegion.Rows.Count
For i = 1 To intaantalrijen
For Each currentcell In Selection.Cells
If currentcell.Value = Empty Then
ActiveCell.Offset(1, 0).Select
Else
Range("J2") = 1
End If
Sheets("blad2").Select
ActiveCell.Offset(1, 0).Select
Next currentcell
Next i
Met deze formule wil ik bereiken dat mocht kolom a zijn ingevuld hij in kolom j een 1 zet. En vervolgens met een som formule alle 1-nen bij elkaar op laten tellen en de uitkomst zichtbaar laten worden in cel J1. Op zich werkt de formule alleen (en dat snap ik) zet hij in cel J2 een 1 en vervolgens nergens meer. Hoe kan ik ervoor zorgen dat hij in iedere cel in J een 1 zet als kolom a is ingevuld.
Mocht iemand ander fomules hebben hoor ik dat ook graag.
Alvast bedankt
Etienne
Ik heb een bestand met meerdere tabbladen. Nu wil ik dat (middels een macro) hij op ieder tabblad het aantal regels gaat tellen
en mij de uitkomst in cel J1 zet. Kolom a t/m i zijn ingevuld. op ieder tabblad zijn het een verschillend aantal regels.
als macro formule heb ik:
Dim intaantalrijen As Integer
Dim i As Integer
Dim currentcell As Range
Range("a2").Select
intaantalrijen = ActiveCell.CurrentRegion.Rows.Count
For i = 1 To intaantalrijen
For Each currentcell In Selection.Cells
If currentcell.Value = Empty Then
ActiveCell.Offset(1, 0).Select
Else
Range("J2") = 1
End If
Sheets("blad2").Select
ActiveCell.Offset(1, 0).Select
Next currentcell
Next i
Met deze formule wil ik bereiken dat mocht kolom a zijn ingevuld hij in kolom j een 1 zet. En vervolgens met een som formule alle 1-nen bij elkaar op laten tellen en de uitkomst zichtbaar laten worden in cel J1. Op zich werkt de formule alleen (en dat snap ik) zet hij in cel J2 een 1 en vervolgens nergens meer. Hoe kan ik ervoor zorgen dat hij in iedere cel in J een 1 zet als kolom a is ingevuld.
Mocht iemand ander fomules hebben hoor ik dat ook graag.
Alvast bedankt
Etienne