Excel - referencia en celdas con macro

 
Vista:

referencia en celdas con macro

Publicado por Erik  (17 intervenciones) el 11/03/2008 00:40:52
Hola, tengo la siguiente duda:
en una macro estoy copiando datos de una celda a otra.
de la hoja clientes la informacion de la celda I4 la copia a la hoja factura en la celda C3

Sheets("CLIENTES").Select
Range("I4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FACTURA").Select
Range("C3").Select
ActiveSheet.Paste

Esto esta funcionando bien

pero supongamos que ahora quiero cambiar la celda de destino a C4
tengo que entrar en el editor de la macro y cambiar manualmente

como le puedo hacer para que si alguien no sabe cambiar la macro, en alguna celda
de la hoja factura yo coloque en la celda el nombre de la celda destino

ahora podria poner en una celda, digamos la Z5 el valor C4
e intentado con algo como esto pero no funciona

en la hoja factura pongo en la celda Z5 el valor C4 y mi macro contiene:

Sheets("CLIENTES").Select
Range("I4").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("FACTURA").Select
rango1 = Range("Z5").Select
rango1 = Selection.Address
Range(rango1).Select
ActiveSheet.Paste

queriendo que la informacion la copie de la hoja clientes y la pegue en la celda C4 de la hoja factura el valor C4 lo deberia jalar de la celda Z5 pero no es asi, en lugar de eso la informacion la copia directo en la celda Z5.

alguien me podria dar una ayuda con la expresion que debo usar para jalar ese valor de la celda en la macro.
Muchas gracias de antemano.y un saludo desde veracruz, mexico
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Abraham Valencia
Val: 313
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

RE:referencia en celdas con macro

Publicado por Abraham Valencia (2415 intervenciones) el 11/03/2008 17:00:07
Asi:

Dim rango As String
Sheets("CLIENTES").Select
rango = [Z5].Value
[I4].Copy Destination:=Worsheets("FACTURA").Range(rango)

OJO: En la celda Z5, coloca con esta conotacion el rango:

$C$4

No es necesario colocar "tanto" codigo

Abraham
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar