polderploer
Gebruiker
- Lid geworden
- 13 sep 2007
- Berichten
- 69
Hallo,
Ik heb een userform gemaakt en deze moet in een overzicht geplaatst worden:
Nu is het zo dat er automatisch een opeenvolgend nummer moet komen, oftewel hij moet automatisch doortellen en vervolgens dit invullen. Dus op de ??? moet een stukje code komen te staan waarmee de macro zoekt naar de laatste waarde en hier er een bij op telt. Het lukt mij niet om dit te realiseren.
Alvast bedankt
Ik heb een userform gemaakt en deze moet in een overzicht geplaatst worden:
Code:
Workbooks.Open Filename:="C:\docs\voorbeeld.XLS"
Windows("voorbeeld.xls").Activate
Range("A1").Select
Dim iRow As Long
Dim ws As Worksheet
Dim wsBlad1 As Worksheet
Set ws = Worksheets("blad1")
Dim r As Range
Dim rFoundCell As Range
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
ws.Cells(iRow, 1).Value = ???????
ws.Cells(iRow, 2).Value = Me.TextBox2.Value
ws.Cells(iRow, 3).Value = Format(Now(), "mm-dd-yy")
End Sub
Nu is het zo dat er automatisch een opeenvolgend nummer moet komen, oftewel hij moet automatisch doortellen en vervolgens dit invullen. Dus op de ??? moet een stukje code komen te staan waarmee de macro zoekt naar de laatste waarde en hier er een bij op telt. Het lukt mij niet om dit te realiseren.
Alvast bedankt
Bijlagen
Laatst bewerkt: