In kolom A 1 t/m x invullen tot laatste gegevens in kolom E

Status
Niet open voor verdere reacties.
S

samui

Verenigingslid
Lid geworden
26 mei 2012
Berichten
207
Beste Forum,

Ik krijg het niet voor elkaar om in kolom A de getallen 1 t/m x ingevuld te krijgen als in kolom E iets staat.
De ene keer heb ik to E25 hier iets staan de andere keer tot bijvoorbeeld E250
Nu wil ik dat er in kolom A vanaf A2 opsomming gezet wordt van 1 t/m de laatste ingevulde cel van kolom E
In het voorbeeld dus t/m 38, maar als ik tot 250 of verder ingevuld heb tot dat aantal.
Alvast bedankt voor de antwoorden.
Zoek zoek zoek, maar ik vind niet mijn oplossing en ik gebruik een for x = 2 to 250 en krijg alleen maar eentjes.

mvg,

Frank
 

Bijlagen

  • Map1.xlsm
    13,4 KB · Weergaven: 31
Zet in A2 =RIJ() en trek deze door.
Als dat niet de bedoeling is zal je toch wat duidelijker moeten zijn.
 
Een voorbeeldje met vba
Code: 
Dim x As Long, j As Long
    x = Range("E1").End(xlDown).Row
  
    For j = 2 To x
      Cells(j, 1).Value = j - 1
    Next
 
Superdeluxe Jack, precies wat ik zocht BEDANKT.
Sluit gelijk de vraag.
 
Code: 
Sub hsv()
 Cells(2, 1).Resize(Cells(Rows.Count, 5).End(xlUp).Row - 1) = Evaluate("row(1:" & Cells(Rows.Count, 5).End(xlUp).Row  & ")")
End Sub
 
Laatst bewerkt:
Dank je wel HSV voor je reactie, deze is ook super en mega kort.
 
Mij ontgaat de zin van getallen die systematisch 1 minder zijn dan het rijnummer naast de weergave van het rijnummer.

Code: 
Sub M_snb()
    Columns(5).SpecialCells(2).Offset(1).SpecialCells(2).Name = "snb"
    [snb].Offset(, -4) = [index(row(snb)-1,)]
End Sub
 
Die had ik in eerste instantie zo.
Code: 
[snb].Offset(, -4) = [row(snb)-1]
Maar ik heb het verwijderd.
 
of
Code: 
Sub M_snb()
  Columns(5).SpecialCells(2).Offset(1).SpecialCells(2).Offset(, -4) = "=row()-1"
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan