Macro Excel: Copiar renglón por renglón a otra hoja
Necesito copiar renglón(fila) por renglón de columna M:S de la hoja "NC" a la hoja "CTRL".
El motivo de copiar renglón por renglón es debido a que no se sabe cuantos filas copiare, es decir copiar hasta que la siguiente renglón no tenga datos o bien he puesto una una celda que cuente cuantas filas debe de copiar (MAX REN:$S$4).
Actualmente tengo el siguiente código vba más sin embargo solo copia el primer renglón la misma cantidad de renglones.
------------------------------------------------------------------------------------------------------------------------------------------
Sub GUARDAR_DATOS() ' GUARDAR_DATOS Macro Dim RENGLON As Integer RENGLON = Sheets("NC").Range("S2").Value For I = 1 To RENGLON fila = Application.WorksheetFunction.CountA(Worksheets("CTRL").Range("A:A")) + 1 Worksheets("CTRL").Cells(fila, 1) = Worksheets("NC"). Range("M11") Worksheets("CTRL").Cells(fila, 2) = Worksheets("NC"). Range("N11") Worksheets("CTRL").Cells(fila, 3) = Worksheets("NC"). Range("O11") Worksheets("CTRL").Cells(fila, 4) = Worksheets("NC"). Range("P11") Worksheets("CTRL").Cells(fila, 5) = Worksheets("NC"). Range("Q11") Worksheets("CTRL").Cells(fila, 6) = Worksheets("NC"). Range("R11") Worksheets("CTRL").Cells(fila, 7) = Worksheets("NC"). Range("S11") Next For I = 1 To RENGLON If I = RENGLON Then MsgBox ("REGISTROS GUARDADOS") Else Sheets("NC").Select Range("M11:R11").Select Application.CutCopyMode = False Selection.Copy Sheets("CALCULO").Select Range("G2").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("BBDD").Select Range("A4:D7").Select Application.CutCopyMode = False Selection.Copy Sheets("BDD").Select Range("T3582").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("NC").Select End If Next End Sub
2 respuestas
Respuesta de Dante Amor
1
Respuesta de James Bond
1