
rangos
Publicado por ricaurtem (206 intervenciones) el 16/11/2006 19:18:55
tengo esto, un formulario con un contro refedit y con un boton
FUNCIONA BIEN, PERO SUPUESTAMENTE EL RANGO QUE ASIGNO A RANGOFLUJO TIENE EL NOMBRE DE LA HOJA, PERO LUEGO CUANDO LO CARGO EN INITIALIZE, NO PONE CON EL NOMBRE DE LA HOJA CON QUE SE GUARDO EL RANGO, COMO PUEDO HACER PARA PUEDA DARME EL RANGO COMPLETO QUE TENIA (NOMBRE DE HOJA Y RANGO)????
URGENTE PLEASE.
Private Sub CMDACEPTAR_Click()
If REFEDIT.Value <> Empty Then
ADDR = REFEDIT.Value
Set RANGOFLUJO = Range(ADDR)
COLUMNAFLUJO = RANGOFLUJO.Column
FILAFLUJO = RANGOFLUJO.Row
End If
'MsgBox COLUMNAFLUJO
'MsgBox FILAFLUJO
'MsgBox RANGOFLUJO.Rows.Count
FRMCOLFLUJO.Hide
Unload FRMCOLFLUJO
End Sub
Private Sub UserForm_Initialize()
If IsEmpty(RANGOFLUJO) = True Then
REFEDIT.Value = ActiveSheet.Name & "!" & Selection.Address
Else
REFEDIT.Value = RANGOFLUJO.Address
End If
End Sub
FUNCIONA BIEN, PERO SUPUESTAMENTE EL RANGO QUE ASIGNO A RANGOFLUJO TIENE EL NOMBRE DE LA HOJA, PERO LUEGO CUANDO LO CARGO EN INITIALIZE, NO PONE CON EL NOMBRE DE LA HOJA CON QUE SE GUARDO EL RANGO, COMO PUEDO HACER PARA PUEDA DARME EL RANGO COMPLETO QUE TENIA (NOMBRE DE HOJA Y RANGO)????
URGENTE PLEASE.
Private Sub CMDACEPTAR_Click()
If REFEDIT.Value <> Empty Then
ADDR = REFEDIT.Value
Set RANGOFLUJO = Range(ADDR)
COLUMNAFLUJO = RANGOFLUJO.Column
FILAFLUJO = RANGOFLUJO.Row
End If
'MsgBox COLUMNAFLUJO
'MsgBox FILAFLUJO
'MsgBox RANGOFLUJO.Rows.Count
FRMCOLFLUJO.Hide
Unload FRMCOLFLUJO
End Sub
Private Sub UserForm_Initialize()
If IsEmpty(RANGOFLUJO) = True Then
REFEDIT.Value = ActiveSheet.Name & "!" & Selection.Address
Else
REFEDIT.Value = RANGOFLUJO.Address
End If
End Sub
Valora esta pregunta


0