Jump to content

Archived

This topic is now archived and is closed to further replies.

JOCAMI90

Encontrar ultima fila en una hoja en especifico

Recommended Posts

Saludos 

Estoy realizando una plantilla sencilla con macros para llevar un inventario de materiales gastables...

He creado un botón con macro en la hoja1"Inicio" que me abre un formulario para introducir mis datos... luego de introducir los datos este me los envia en la última fila en blanco disponible, eso está perfecto, pero el problema es que lo hace en la hoja activa y quiero que envie la informacion a la hoja2"Movimiento". 

En resumen: Que el botón "Abrir Formulario" se quede en la hoja de "inicio", y me envie los datos a la hora "Movimiento".

Adjunto archivo. 

Seria de mucha ayuda su colaboracion.

Gracias por adelantado.

Feliz resto del dia!

 

Inventario Macros.xlsm

Share this post


Link to post
Share on other sites

Hola JOCAMI90,

CAmbia el codigo del commandButton, por este

Private Sub CommandButton1_Click()
   Dim fila As Long, ctrl As Object
   fila = Range("A" & Rows.Count).End(xlUp).Row + 1
   For i = 1 To 7
      With Hoja2
         Set ctrl = Me.Controls("TextBox" & i)
         .Cells(fila, i).Value = ctrl
         Controls("TextBox" & i).Value = ""
      End With
   Next
   MsgBox "Datos insertados en la fila " & fila

End Sub

Saludos

Ikanni

Share this post


Link to post
Share on other sites

Saludos

Hace el trabajo casi perfecto, el problema es que me inserta los datos en la fila 4 y cuando introduzco un nuevo dato en el formulario, vuelve y lo introduce en la fila 4,

Solo funciona correctamente cuando la macro se activa desde la hoja Movimiento... cuando lleno el formulario desde la hoja inicio paso lo que te explique...

Share this post


Link to post
Share on other sites
Guest Cacho R
Hace 45 minutos , ikanni dijo:

Ok de nada, aunque me quedo con mi solución ;)

Jajajajajjjjajjaj...

Share this post


Link to post
Share on other sites

Quizás este te sea útil:

Dim Uf As String

With Hoja2

    Uf = .Range("A" & Rows.Count).End(xlUp).Row + 1
    
        .Range("A" & Uf) = TextBox1
        .Range("B" & Uf) = TextBox2
        .Range("C" & Uf) = TextBox3
        .Range("D" & Uf) = TextBox4
        .Range("E" & Uf) = TextBox5
        .Range("F" & Uf) = TextBox7
        
        MsgBox "DATOS CARGADOS CON EXITO.", vbInformation, "REGISTRAR"
        
End With

 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy