Funcion Range

Hola Ivan,

quiero aplicar la funcion Range

Hasta donde se, en VBA no existe tal funcion. Solo Objeto o Propiedad. En
este caso estamos hablando de la Propiedad Range q devuelve el Objeto Range.

...desde la hoja2 aplicado a la hoja1, pero me
marca error, no se en que estoy fallando, he intentado varias maneras y no
me
funciona la formula
Worksheets("HOJA1").Select
Range(Cells(F_FAC, 1), Cells(F_FAC + 2, 50)).Select

?Que error exactamente te da? ?Como esta declarada la variable F_FAC y como
le asignas el valor?
Esto me funciona perfectamente:

Sub test()
F_FAC = 1
Worksheets("HOJA1").Select
Range(Cells(F_FAC, 1), Cells(F_FAC + 2, 50)).Select
End Sub

...tambien lo intente con
Worksheets("HOJA1").Range(Cells(F_FAC, 1), Cells(F_FAC + 2, 50)).Select

Esto no funcionara si llamas el macro desde otra hoja. Para poder
seleccionar un rango en la hoja q no esta activada hay q activarla antes. Yo
lo haria de la siguiente manera aunque tu primer macro deberia funcionar
tambien:

Sub test3()
F_FAC = 1
With Worksheets("HOJA1")
.Activate
.Range(Cells(F_FAC, 1), Cells(F_FAC + 2, 50)).Select
End With
End Sub

De todas formas recordarte q para hacer manipulaciones con rangos raras
veces es necesario seleccionarlos. Si expones el codigo completo y explicas
la tarea te ayudaremos a depurarlo.

Saludos,
KL

Gracias por tus sugerencias KL

las aplique y si funcionan, tambien la que yo habia propuesto pero solo en
la hoja1, si la quiero aplicar desde otra hoja ( por ejemplo hoja2 ) no
funciona ninguna de ellas y me marca el siguiente error:

se ha producido el error 1004 en tiempo de ejecucion
error definido por la aplicacion o el objeto

Ivan,

?Quieres decir q los tres macros (incluido el mio) te dan este error? ?Me
pueds enviar tu hoja a borrando NOSPAM y
PLEASE?

Saludos,
KL

"Ivan" wrote in message
news:

Gracias por tus sugerencias KL

las aplique y si funcionan, tambien la que yo habia propuesto pero solo en
la hoja1, si la quiero aplicar desde otra hoja ( por ejemplo hoja2 ) no
funciona ninguna de ellas y me marca el siguiente error:

se ha producido el error 1004 en tiempo de ejecucion
error definido por la aplicacion o el objeto

Hola KL, no se si recibiste el archivo, ya que no lo puedo hacer trabajar

saludos

Hola Ivan,

He recibido tu fichero. El problema estaba en q yo no te habia entendido q
el macro lo depositabas dentro del modulo de la Hoja2, sino q llamabas el
macro guardado en la Hoja1 estando activada la Hoja2. Prueba esto:

Private Sub CommandButton1_Click()
F_FAC = 6
With Worksheets("HOJA1")
.Activate
.Range(.Cells(F_FAC, 1), .Cells(F_FAC + 2, 50)).Select
End With
End Sub

Saludos,
KL




"Ivan" wrote in message
news:

Hola KL, no se si recibiste el archivo, ya que no lo puedo hacer
trabajar

saludos