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
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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