no i zamieszczam to co miałem
' Określa następny pusty wiersz
NextRow = _
Application.WorksheetFunction.CountA(Range("A:A")) + 1
' Przenosi imię
Cells(NextRow, 1) = TextName.Text
to jest czesc z codu z jednego pliku z userform jak chcesz calosc to pisz |