Saltar al contenido

Copiar datos de una hoja a otra y pasar a la siguiente fila

publicado

Hola, buenos dias
Tengo un codigo el cual pido que me copie de una hoja llamada SOLICITUD_DE_RMA´S del rango B28:J37, lo copiara a una hoja concentradora llamada CTRL_RECTIFIC iniciando en B4 y luego pase a la siguiente linea par seguir agregando mas , pero me marca un error, mi codigo es el siguiente:

Agradeceria muchisimo su valioso tiempo y apoyo, ya que no logro dar con el error............... saludos amigos

SUB COPY_DAT()
'
Dim strTitulo As String
Dim Continuar As String
Dim TransRowRng As Range
Dim NewRows As Long      'te cambié esto porque a medida que crezca el Integer no te va a servir
Dim IColum, J As Integer
'
strTitulo = "RECTIFICADORES - CONTROL DE REPARACIONES"
Continuar = MsgBox("¿Desea dar de alta los datos?", vbYesNo + vbExclamation, strTitulo)
If Continuar = vbNo Then Exit Sub
'
J = 1
Set TransRowRng = ThisWorkbook.Worksheets("Ctrl_RECTIFIC").Cells(5, 2).CurrentRegion
NewRows = TransRowRng.Cells(Rows.Count, 2).End(xlUp).Offset(1).Row <-------------MARCA EL ERROR
For IColum = 2 To 10
    For J = 1 To 10
        With ThisWorkbook.Worksheets("Ctrl_RECTIFIC")
        .Cells(NewRows, IColum).Value = ThisWorkbook.Sheets("Solicitud_de_RMA'S").Cells(28, IColum)
        .Cells(NewRows + J, IColum).Value = ThisWorkbook.Sheets("Solicitud_de_RMA'S").Cells(28 + J, IColum)
        End With
    Next J
  
Next IColum

'
MsgBox "Registro(s) Guardado(s) con Exito", vbInformation, strTitulo
'
'
End Sub

 

Featured Replies

publicado

No dices el error, ni donde se produce, ni subes el archivo Excel con datos para poder probar tu macro ¿Cómo pretendes que alguien pueda ayudarte? ?

publicado
  • Autor
Hace 10 horas, Antoni dijo:

No dices el error, ni donde se produce, ni subes el archivo Excel con datos para poder probar tu macro ¿Cómo pretendes que alguien pueda ayudarte? ?

una disculpa, ya adjunte el archivo

publicado
  • Autor
En 29/5/2021 at 10:48 , Antoni dijo:

No dices el error, ni donde se produce, ni subes el archivo Excel con datos para poder probar tu macro ¿Cómo pretendes que alguien pueda ayudarte? ?

ayuda de favor

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.