MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.
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 = Clipboard.GetText 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)) Next End With End If '§ clear array ReDim ARRAYLINES(0) ReDim ARRAYCELLS(0)
|VBA/SQL - Connect to SQL server and pull data||4||119|
|Adding to a VBA?||6||78|
|vb6, excel Run-time error 1004 method 'close' of object 'workbooks' failed||7||57|
|Macro Excel - Multiple If conditions||2||81|