Jump to content

Encontrar ultima fila en una hoja en especifico


JOCAMI90

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

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

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...

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

 

Link to post
Share on other sites

Archived

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

Guest
This topic is now closed to further replies.


×
×
  • Create New...

Important Information

Privacy Policy