Copying text from a cell using a macro

Posted on 2007-08-02
Medium Priority
Last Modified: 2013-11-25
How can I copy text from a cell using a macro and paste the text into an input box?
Question by:kamunya
  • 2
LVL 59

Accepted Solution

Chris Bottomley earned 1336 total points
ID: 19620194
inputbox.text = worksheets("SHEETNAME").range("a1")

Is a full copy, however with a bit more work you can copy bits and pieces as you wish

LVL 59

Assisted Solution

by:Chris Bottomley
Chris Bottomley earned 1336 total points
ID: 19620208
If it's unclear can you identify the name of the textbox and the worksheet/cell and how data is to be selected/mixed from any sources.

LVL 10

Assisted Solution

kevin_uk05 earned 664 total points
ID: 19620232
Private Sub CommandButton1_Click()

Dim Cell
Cell = Range("A1").Value
InputBox "This is the contents of Cell A1", "Cell Contents", Cell
End Sub

Featured Post

Industry Leaders: We Want Your Opinion!

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!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
This article describes how you can use Custom Document Properties to store settings and other information in your workbook so that they will be available the next time you open the workbook.
This Micro Tutorial demonstrates using Microsoft Excel pivot tables, how to reverse engineer competitors' marketing strategies through backlinks.
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

850 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question