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

 

Editado el el 29 de mayo4 años por Miguel A. Tamaniz H.
coreccion de errores

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, en el código le puse una marca donde sale el error, pero tiene razon, aqui le adjunto el libro

solicitud.xlsm

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

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