I have success to copy selected rows into clipboard using this code below,
Customerslist11.SelectionType = 1 dim a,b as Integer a=val(PopupMenu3.Text)-1 b=val(PopupMenu4.Text)-1 For i as Integer = a to b if Customerslist11.Selected(i) then s = s+ Customerslist11.cell(i,0) + EndOfLine end if Customerslist11.Selected( i ) = True Customerslist11.SetFocus Next Dim c as new Clipboard c.SetText(s) c.Close
This code is working only to copy 1 column. How to modified it, if I want to copy for two columns
modified this code into
s = Customerslist11.cell(i,0) +Customerslist11.cell(i,1) + EndOfLine
but no work.
I want to paste it in Excel Spreadsheet.
any helps ?