¿Codigo para que excel descargue los datos en la hoja desde donde es llamado el formulario (Hoja Activa)?

Para Dante Amor!

Hola saludos Dante

Te cuento que la respuesta que me has dado me ha sido de utilidad pero ahora surge el siguiente problema que las personas con las que trabajo el archivo tienden a confundirse al momento de seleccionar la hoja donde se descargaran los datos.

Bien, dicho lo siguiente mi pregunta es ¿Podrás acomodar el código para que los datos se descarguen de la hoja de donde se llama al formulario? Es que eso de estar seleccionando la hoja en un combox me ha creado cierto inconveniente y pues se me ocurrió preguntarte si se podrían descargar los datos en la hoja activa en mi casos desde donde mando a llamar el formulario!

Te dejo la macro que uso para seleccionar la hoja del combox y ahi descargar los datos:

Private Sub Validar_Click()
    Existe = False
    Hoja = cmHojaDetalle
    If Hoja = "" Then
        MsgBox "Selecciona Detalle De Gastos De Lista"
        Exit Sub
    End If
    For Each h In Sheets
        If UCase(h.Name) = UCase(Hoja) Then
            Existe = True
            Exit For
        End If
    Next
    If Existe = False Then
        MsgBox "Detalle Seleccionado No Existe"
        Exit Sub
    End If
Worksheets(Hoja).Select
Range("B9").Select
Do While Not IsEmpty(ActiveCell)
    ActiveCell.Offset(1, 0).Activate
Loop
ActiveCell.Offset(0, 0) = lbFecha.Caption
ActiveCell.Offset(0, 1) = lbDocumento
ActiveCell.Offset(0, 2) = lbDescripcion
ActiveCell.Offset(0, 3) = lbProveedor
ActiveCell.Offset(0, 4) = lbClasificacion
ActiveCell.Offset(0, 5) = lbMonto
Unload ValidarDatos
Load IntroducirDatos
IntroducirDatos.Show
End Sub

1 respuesta

Respuesta
1

H o l a:

Así quedaría la macro

Private Sub Validar_Click()
'Act.Por.Dante Amor
    Range("B9").Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Activate
    Loop
    ActiveCell.Offset(0, 0) = lbFecha.Caption
    ActiveCell.Offset(0, 1) = lbDocumento
    ActiveCell.Offset(0, 2) = lbDescripcion
    ActiveCell.Offset(0, 3) = lbProveedor
    ActiveCell.Offset(0, 4) = lbClasificacion
    ActiveCell.Offset(0, 5) = lbMonto
    Unload ValidarDatos
    Load IntroducirDatos
    IntroducirDatos.Show
End Sub

F e l i z   N a v i d a d. Recuerda valorar la respuesta. G r a c i a s

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas