Macro copiar una fila a la siguiente
Soy primerizo en esto pero espero que me puedan ayudar...
Grabe una macro haciendo el procedimiento de copiar una fila e insertarla que es esta...
'Private Sub CopiarFila_Click()
' Rows("11:11").Select
' Selection.Copy
' Rows("12:12").Select
' Selection.Insert Shift:=xlDown
' Range("H12").Select
' Application.CutCopyMode = False
' Selection.ClearContents
' Range("E12").Select
' ActiveCell.FormulaR1C1 = "=R[-1]C[8]"
' Range("E13").Select
'End Sub
El problema esta en que cree un botón de comando para que cuando marcara
la fila presionara este botón eh hiciera lo grabado, pero lo que necesito es que este
botón me funcione con cualquier fila que marque y no con la fila que en este caso es la 11,
en resumen una macro que realice cuando pinche una fila apreté el botón y me copie una idéntica abajo de esta o en la siguiente...
Si se entendió la pregunta por favor necesito una respuesta...
De ante mano gracias
Grabe una macro haciendo el procedimiento de copiar una fila e insertarla que es esta...
'Private Sub CopiarFila_Click()
' Rows("11:11").Select
' Selection.Copy
' Rows("12:12").Select
' Selection.Insert Shift:=xlDown
' Range("H12").Select
' Application.CutCopyMode = False
' Selection.ClearContents
' Range("E12").Select
' ActiveCell.FormulaR1C1 = "=R[-1]C[8]"
' Range("E13").Select
'End Sub
El problema esta en que cree un botón de comando para que cuando marcara
la fila presionara este botón eh hiciera lo grabado, pero lo que necesito es que este
botón me funcione con cualquier fila que marque y no con la fila que en este caso es la 11,
en resumen una macro que realice cuando pinche una fila apreté el botón y me copie una idéntica abajo de esta o en la siguiente...
Si se entendió la pregunta por favor necesito una respuesta...
De ante mano gracias
1 Respuesta
Respuesta de eduardocbsa
1
Prueba con este código es para insertar después de la que esta señalada
Sub CopiarFila_Click()
Dim Fila As Long
With Worksheets("Hoja1")
Fila = ActiveCell.Row
If WorksheetFunction.Count(.Rows(Fila)) = 0 Then
MsgBox "No hay datos en la fila " & Fila
Else
Rows(Fila).Copy
Rows(Fila + 1).Insert Shift:=xlDown
Range("H" & Fila + 1).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E" & Fila + 1).FormulaR1C1 = "=R[-1]C[8]"
Range("E" & Fila + 1).Select
End If
End With
End Sub
Sub CopiarFila_Click()
Dim Fila As Long
With Worksheets("Hoja1")
Fila = ActiveCell.Row
If WorksheetFunction.Count(.Rows(Fila)) = 0 Then
MsgBox "No hay datos en la fila " & Fila
Else
Rows(Fila).Copy
Rows(Fila + 1).Insert Shift:=xlDown
Range("H" & Fila + 1).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E" & Fila + 1).FormulaR1C1 = "=R[-1]C[8]"
Range("E" & Fila + 1).Select
End If
End With
End Sub
Mira probé con esto que se me ocurrió y me funciono,
en todo caso guarde tu programación para probrarla
Muchas gracias por tomarte el tiempo y responder,
muy buen aporte para la web
gracias
esto es lo que hice:
Private Sub CopiarFila_Click()
Dim x As Integer
Dim y As Integer
x = Selection.Row
y = x + 1
Rows(x).Select
Selection.EntireRow.Copy
Rows(y).Select
Selection.EntireRow.Insert Shift:=xlDown
Range("H" & y).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E" & y).Select
ActiveCell.FormulaR1C1 = "=R[-1]C[8]"
End Sub
en todo caso guarde tu programación para probrarla
Muchas gracias por tomarte el tiempo y responder,
muy buen aporte para la web
gracias
esto es lo que hice:
Private Sub CopiarFila_Click()
Dim x As Integer
Dim y As Integer
x = Selection.Row
y = x + 1
Rows(x).Select
Selection.EntireRow.Copy
Rows(y).Select
Selection.EntireRow.Insert Shift:=xlDown
Range("H" & y).Select
Application.CutCopyMode = False
Selection.ClearContents
Range("E" & y).Select
ActiveCell.FormulaR1C1 = "=R[-1]C[8]"
End Sub
