Hi TMS,
I think I can have something...but the Date is causing me troubles, I mean it's not "copied" into TextBox, what is wrong, please?
If I click in column M, the data is copied into TextBox without the Date. The Date should be as 11NOV22, with caps!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long, lr As Long
'**** Date format
With Range("C10:C" & Cells(Rows.Count, 3).End(xlUp).Row)
.NumberFormat = "@"
.Value = Evaluate("=If(Row(" & .Address & "),Upper(Text(" & .Address & ",""ddmmmyy"")))")
End With
'******
If Target.Column = 13 And Target.Row >= 10 And Target.Row <= Cells(Rows.Count, "C").End(xlUp).Row Then
lr = ActiveSheet.Cells(Rows.Count, "c").End(xlUp).Row
For i = 10 To lr
TextBox1.Value = "RKT" & vbCrLf & "UTC" & vbCrLf & "RPL" & vbCrLf & Range("B" & Target.Row).Text & Range("D" & Target.Row) & "/" & vbCrLf & Range("C" & Target.Row).Text & vbCrLf & _
Range("K" & Target.Row).Text & " " & Range("I" & Target.Row).Text & " " & "XXX" & " " & Range("J" & Target.Row).Text & vbCrLf & _
Range("E" & Target.Row).Text & Range("G" & Target.Row).Text & " " & Range("F" & Target.Row).Text & Range("H" & Target.Row).Text
Next i
End If
End Sub
Not sure how to do it.
Thank you
Bookmarks