Cells with fields

[jonybandana]

Hi everyone!

I would like to know if there is any way (maybe an add-in) that would allow to have all cells on a column to have fields, for example:

UserID	Info
13462	Name: Surname: Address:
12844	Name: Surname: Address:
12394	Name: Surname: Address:

This fields on "Info" would be automatically generated for all cells in a column and I would be able to complete them as if they were a form.

Is there any way to do this?

 

[Georgiboy]

Would it not be more analysis friendly to have the Name, Surname and address in seperate columns next to the UserID?

Was jsut thinking if someone said a want the postcode for everyone on the worksheet - this wold be a nightmare if all the information is in the format above. It would however be simple if the address was in its own cell.

Sorry if it seems like a silly question.

 

[Georgiboy]

Otherwise the below code:

Sub test()
    Dim rng As Range, var As Variant, x As Long
    
    Set rng = Range(Range("A2"), Range("A" & Rows.Count).End(xlUp)).Resize(, 2)
    var = rng.Value
    
    For x = 1 To UBound(var)
        var(x, 2) = "Name:" & vbNewLine & "Surname:" & vbNewLine & "Address:"
    Next x
    rng = var
End Sub

Will produce:

Book1
	A	B
1	UserID
2	13462	Name: Surname: Address:
3	12844	Name: Surname: Address:
4	12394	Name: Surname: Address:
Sheet1

Just need to set wrap text for column B