putting new data in all columns in new row

[littlepete]

hello...

let me apologise first for not having a good day... too many things just do not work...

i'm working on an inputbox to fill in new data in an empty new row below the last used one.
but the simplest range this column and row 4 does not work !

i must honestly say that google is really not helping with all the fake besides the question and nothing less then really wrong answers...

so this is what i have (problem in bold) :

dezerij = 4
dezekolom = 11

For dezekolom = 11 To 51

keuze = InputBox(Chr(10) & _
    "Deze lijst bevat " & aantalcontacten & " contacten." & Chr(10) & Chr(10) & _
[B]    Range(CStr(dezekolom) & "4").Value & " invullen: ... " & _[/B]
    Chr(10) & Chr(10) & _
    "tik hier de nieuwe data in.", "NIEUWE GEGEVENS", 10000, 5000)

Select Case keuze
    Case Len(keuze) = 0
        GoTo volgende
    Case 0
        tooneersterij
End Select

With Worksheets("gegevens")
[B]Cells(nieuwerij, dezekolom).Value = keuze[/B]
End With
MsgBox dezekolom & " - " & dezerij & " en " & Range("k4").Value & " + " & nieuwerij
volgende:
dezekolom = dezekolom + 1

Next dezekolom

english: dezerij=thisrow ; dezekolom=this column ; nieuwerij = new row

hopeful...

 

[BSALV]

make "cells" instead of "range", as you work with numbers

 Chr(10) & Chr(10) & Cells(4, dezekolom).Value & " invullen: ... " & Ch

 

[littlepete]

make "cells" instead of "range", as you work with numbers

 Chr(10) & Chr(10) & Cells(4, dezekolom).Value & " invullen: ... " & Ch

thank you for the help !!!

ashamed that it is sooo easy, and: i discovered already range column row but cells row column... that's fixed to

next assignment: adjust the title of the inputbox with the column header and then copy all formula to the last row

thank you verrrrrry much !!!