How to write a textbox-index in the next free cell? VBA-Excel / Makro

Asked Sep 08 '21 at 13:25

Active Sep 08 '21 at 13:27

Viewed 18 times

I have a question about vba programming... (please dont close this question...!!) I've tried everything, but can't get further ..

Code:

Private Sub US1()
        Dim Team As Long
        Team=Sheets("sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
        With Worksheets("sheet1")
            .Cells(Team, 2) = Number.Value
        End With
        Unload Me
End Sub

My result: he writes the index somewhere in the table (column B) but then also overwrites it. I can't find the fault.

i want that the index to be written in the next free cell.

Devo

edited Sep 08 '21 at 13:27

asked Sep 08 '21 at 13:25

Devo23

Change `.Cells(Team, 2) = Number.Value` to `.Cells(.Rows.Count, 2).End(xlUp).Offset(1).Value = Number.Value`. – BigBen Sep 08 '21 at 13:26
@BigBen omg thank you so much!!! – Devo23 Sep 08 '21 at 13:30

How to write a textbox-index in the next free cell? VBA-Excel / Makro

0 Answers0