Macro Excel para copiar línea seleccionando la 2º después de la ultima
Recurro a ti para que me metas dedo en esta macro que quiero que tenga algo similar
Range("A65536").End(xlUp).Offset(2, 0).Select
en esta macro
Sub inserta_Lineas() 'PEGONES1 'Insertar lineas y tambien formas y fomatos de linea B selecionada, en todas las celdas que contengan formatos y formulas desde _ la celda selecionada en B al la cantidad insertada en el ImputBox Application.ScreenUpdating = False On Error GoTo Jota ' With Sheets("Cobra_Gastos") a = InputBox("Ingrese el Número de Lineas a Insertar", "Número de Lineas", 1) 'si inserta 0 sale de la macro sin insertar linea) If a <= 0 Then Exit Sub ''Para Sustitui linea On Error GoTo Jota 'If a = "" Then ' MsgBox "Proceso cancelado", vbInformation, "AVISO" ' Exit Sub 'End If 'b (la variable) toma el número de la fila de la celda activa b = ActiveCell.Row For i = 1 To a ' .Select 'Selecciona toda la fila, según lo que tiene la variable b Rows(b).Select 'Inserta la linea anterior seleccionada en B Selection.EntireRow.Insert 'Copia de la fila anterior los formatos y formulas Rows(b - 1).Copy 'Pega los formatos copiados, en las líneas insertadas Rows(b).PasteSpecial Paste:=xlPasteFormats 'Copia la fórmula de la I anterior Range("I" & b - 1).Copy 'Pega las formulas en celdas celdas I insertadas Range("I" & b).PasteSpecial Paste:=xlPasteFormulas 'Desactivar seleccion Application.CutCopyMode = False Next i ' End With 'Range("D12").Select Jota: Application.ScreenUpdating = True End Sub
Cosa que trate meterla fuera en un punto ootro pero sin resultado.
La macro esta para que YO, MANUALMENTE, seleccione la celda en la columna B, celda la cual va a copiar de la anterior sus fórmulas y formatos pero NO VALORES y pegará las líneas que pida en el Input.
Lo que pretendo es que NO SEA YO MANUALMENTE a seleccionar la celda, pero que sea la propia macro a hacerlo, la celda a seleccionar pido sea la 2ª después de la ultima ocupada, tal como lo indica la línea expuesta al inicio de mi comentario. ¿Posible?
1 Respuesta
Respuesta de Dante Amor
1