Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
Dim ARRAYLINES As Variant ' array with the lines Dim ARRAYCELLS As Variant ' array with the cells of 1 line to count the cols needed Dim ARRAYLINESidx As Integer '§ put clipboard in textbox With Text2 .Text = PutInClipboard If .Text = "" Then MsgBox "No data in clipboard" Exit Sub Else ARRAYLINES = Split(.Text, vbNewLine) End If End With '§ put textbox in grid If ARRAYLINES(0) = "" Then MsgBox "No data" Exit Sub Else ARRAYCELLS = Split(ARRAYLINES(0), vbTab) With MSHFlexGrid1 .Cols = UBound(ARRAYCELLS) + 1 .Rows = 0 '§ keep header For ARRAYLINESidx = LBound(ARRAYLINES) To UBound(ARRAYLINES) - 1 .AddItem (ARRAYLINES(ARRAYLINESidx)) '.AddItem Trim(ARRAYLINES(ARRAYLINESidx)) Next End With End If '§ clear array ReDim ARRAYLINES(0) ReDim ARRAYCELLS(0)
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.