SELECT CELL AND SEND THAT INFO TO ANOTHER CELL
 

i'm tring to to be able to slect a cell and have and the information (in the
cell) copied to another designated cell.

SELECT CELL AND SEND THAT INFO TO ANOTHER CELL
 

You can put in this line into the designated cell;

= A1
Or if the cells are in different worksheets:

= Sheet1!$A1

I usually use an IF statement to validate them but any will work

= IF(B10= "","", B10)

"Rv" wrote:

i'm tring to to be able to slect a cell and have and the information (in the
cell) copied to another designated cell.

SELECT CELL AND SEND THAT INFO TO ANOTHER CELL
 

for a macro solution, try:
==========================
Option Explicit

Sub select_copy()

Dim wb As Workbook
Dim ws As Worksheet
Dim myFirstRange As Range
Dim mySecondRange As Range

Set wb = ActiveWorkbook
Set ws = ActiveSheet
Set myFirstRange = ws.Range("B3") 'change range to suit
Set mySecondRange = ws.Range("D3") 'change range to suit

myFirstRange.Copy Destination:=mySecondRange

End Sub
====================================
hth
susan

On May 16, 12:21*pm, Rv wrote:
i'm tring to to be able to slect a cell and have and the information (in the
cell) copied to another designated cell.

SELECT CELL AND SEND THAT INFO TO ANOTHER CELL
 

(actually, i forgot the select, i'm so used to not using them!
just add in

myFirstRange.select

before the copy/paste business).

susan

On May 16, 12:43*pm, Susan wrote:
for a macro solution, try:
==========================
Option Explicit

Sub select_copy()

Dim wb As Workbook
Dim ws As Worksheet
Dim myFirstRange As Range
Dim mySecondRange As Range

Set wb = ActiveWorkbook
Set ws = ActiveSheet
Set myFirstRange = ws.Range("B3") *'change range to suit
Set mySecondRange = ws.Range("D3") *'change range to suit

myFirstRange.Copy Destination:=mySecondRange

End Sub
====================================
hth
susan

On May 16, 12:21*pm, Rv wrote:



i'm tring to to be able to slect a cell and have and the information (in the
cell) copied to another designated cell.- Hide quoted text -

- Show quoted text -

SELECT CELL AND SEND THAT INFO TO ANOTHER CELL
 

sub CopyStuff
Activecell.copy Destination:=Sheets("Sheet1").Range("A1")
end sub

The above sub copies the active cell to cell A1 on sheet 1. If you only want
the value to move and not the formula and formatting then prehaps this...

sub CopyStuff
Sheets("Sheet1").Range("A1").value = activecell.value
end sub
--
HTH...

Jim Thomlinson


"Rv" wrote:

i'm tring to to be able to slect a cell and have and the information (in the
cell) copied to another designated cell.

SELECT CELL AND SEND THAT INFO TO ANOTHER CELL
 

Selecting the range before copying it (via the Copy method) is not
required... your originally posted code works fine as written. However, I
think the OP wants the copy process to work with the currently selected
cell(s), not a preselected range. I'd change your code to something like
this...

Sub select_copy()
Selection.Copy Destination:=ActiveSheet.Range("D3") 'change to suit
End Sub

Rick


"Susan" wrote in message
...
(actually, i forgot the select, i'm so used to not using them!
just add in

myFirstRange.select

before the copy/paste business).

susan

On May 16, 12:43 pm, Susan wrote:
for a macro solution, try:
==========================
Option Explicit

Sub select_copy()

Dim wb As Workbook
Dim ws As Worksheet
Dim myFirstRange As Range
Dim mySecondRange As Range

Set wb = ActiveWorkbook
Set ws = ActiveSheet
Set myFirstRange = ws.Range("B3") 'change range to suit
Set mySecondRange = ws.Range("D3") 'change range to suit

myFirstRange.Copy Destination:=mySecondRange

End Sub
====================================
hth
susan

On May 16, 12:21 pm, Rv wrote:



i'm tring to to be able to slect a cell and have and the information (in
the
cell) copied to another designated cell.- Hide quoted text -

- Show quoted text -