Skip to main content

He hecho la parte principal del macro, pero a la hora de mandar a copiar la información se salta una columna; hasta donde sé el código debería estar bien. Una disculpa, soy nuevo con esto de los macros.

''' Sub insertar_registro()

Sheets("GENERAL").Select

' Ultima fila editada ultimo = Cells(Rows.Count, 1).End(xlUp).Row

' Si el ultimo registro es del departamento JURIDICO If Cells(Rows.Count, "K").End(xlUp).Value = "JURIDICO" Then For i = 1 To 10 ' Se copia el utimo campo utilizado Cells(ultimo, i).Copy

''' Sub insertar_registro()

Sheets("GENERAL").Select

' Ultima fila editada ultimo = Cells(Rows.Count, 1).End(xlUp).Row

' Si el ultimo registro es del departamento JURIDICO If Cells(Rows.Count, "K").End(xlUp).Value = "JURIDICO" Then
    For i = 1 To 10
            ' Se copia el utimo campo utilizado
            Cells(ultimo, i).Copy
            
            ' Se selecciona la hoja JURIDICO
            Sheets("JURIDICO").Select
            
            ' Siguiente fila a editar
            siguienteFila = Cells(Rows.Count, 1).End(xlUp).Row + 1
            
            ' Seleccion de la celda a editar
            Cells(siguienteFila, i).Select
            
            ' Se pega la informacion de la celda en la hoja activa
            ActiveSheet.Paste
            
            ' Se regresa a la hoja GENERAL
            Sheets("GENERAL").Select
    Next i End If End Sub '''

End If End Sub '''

A la hora de ejecutar me sale así introducir la descripción de la imagen aquí

He hecho la parte principal del macro, pero a la hora de mandar a copiar la información se salta una columna; hasta donde sé el código debería estar bien. Una disculpa, soy nuevo con esto de los macros.

''' Sub insertar_registro()

Sheets("GENERAL").Select

' Ultima fila editada ultimo = Cells(Rows.Count, 1).End(xlUp).Row

' Si el ultimo registro es del departamento JURIDICO If Cells(Rows.Count, "K").End(xlUp).Value = "JURIDICO" Then For i = 1 To 10 ' Se copia el utimo campo utilizado Cells(ultimo, i).Copy

        ' Se selecciona la hoja JURIDICO
        Sheets("JURIDICO").Select
        
        ' Siguiente fila a editar
        siguienteFila = Cells(Rows.Count, 1).End(xlUp).Row + 1
        
        ' Seleccion de la celda a editar
        Cells(siguienteFila, i).Select
        
        ' Se pega la informacion de la celda en la hoja activa
        ActiveSheet.Paste
        
        ' Se regresa a la hoja GENERAL
        Sheets("GENERAL").Select
Next i

End If End Sub '''

A la hora de ejecutar me sale así introducir la descripción de la imagen aquí

He hecho la parte principal del macro, pero a la hora de mandar a copiar la información se salta una columna; hasta donde sé el código debería estar bien. Una disculpa, soy nuevo con esto de los macros.

''' Sub insertar_registro()

Sheets("GENERAL").Select

' Ultima fila editada ultimo = Cells(Rows.Count, 1).End(xlUp).Row

' Si el ultimo registro es del departamento JURIDICO If Cells(Rows.Count, "K").End(xlUp).Value = "JURIDICO" Then
    For i = 1 To 10
            ' Se copia el utimo campo utilizado
            Cells(ultimo, i).Copy
            
            ' Se selecciona la hoja JURIDICO
            Sheets("JURIDICO").Select
            
            ' Siguiente fila a editar
            siguienteFila = Cells(Rows.Count, 1).End(xlUp).Row + 1
            
            ' Seleccion de la celda a editar
            Cells(siguienteFila, i).Select
            
            ' Se pega la informacion de la celda en la hoja activa
            ActiveSheet.Paste
            
            ' Se regresa a la hoja GENERAL
            Sheets("GENERAL").Select
    Next i End If End Sub '''

A la hora de ejecutar me sale así introducir la descripción de la imagen aquí

Origen Enlace

Los datos de Excel se copian mal, uno se pone bien y los demás mal

He hecho la parte principal del macro, pero a la hora de mandar a copiar la información se salta una columna; hasta donde sé el código debería estar bien. Una disculpa, soy nuevo con esto de los macros.

''' Sub insertar_registro()

Sheets("GENERAL").Select

' Ultima fila editada ultimo = Cells(Rows.Count, 1).End(xlUp).Row

' Si el ultimo registro es del departamento JURIDICO If Cells(Rows.Count, "K").End(xlUp).Value = "JURIDICO" Then For i = 1 To 10 ' Se copia el utimo campo utilizado Cells(ultimo, i).Copy

        ' Se selecciona la hoja JURIDICO
        Sheets("JURIDICO").Select
        
        ' Siguiente fila a editar
        siguienteFila = Cells(Rows.Count, 1).End(xlUp).Row + 1
        
        ' Seleccion de la celda a editar
        Cells(siguienteFila, i).Select
        
        ' Se pega la informacion de la celda en la hoja activa
        ActiveSheet.Paste
        
        ' Se regresa a la hoja GENERAL
        Sheets("GENERAL").Select
Next i

End If End Sub '''

A la hora de ejecutar me sale así introducir la descripción de la imagen aquí