We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
With MSHFlexGrid_pref_carrier .Redraw = False 'Find range to copy min_row = .Row: max_row = .RowSel If min_row > max_row Then Tmp = max_row: max_row = min_row: min_row = Tmp min_col = .Col: max_col = .ColSel If min_col > max_col Then Tmp = max_col: max_col = min_col: min_col = Tmp my_text = "" 'Get the text For i = min_row To max_row For j = min_col To max_col my_text = my_text & .TextMatrix(i, j) If j < max_col Then my_text = my_text & vbTab Next j If i < max_row Then my_text = my_text & vbCrLf Next i .Redraw = True End With If my_text <> "" Then Clipboard.Clear Clipboard.SetText (my_text) Else Beep MsgBox "Please select some text.", vbExclamation, "Nothing selected!" End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Access Product Inventory Movement Transfer Form With Separate Records Combined Into one Form||55||100|
|Add a task in Outlook from access||11||43|
|VB6 - Convert HH:MM into Decimal||8||75|
|Set email body to html using vbscript||6||91|
Join the community of 500,000 technology professionals and ask your questions.