Macro que copie y pegue una fila
Hace un tiempo un colaborador me envió esta macro y me funciona muy bien
Sub copiar()
'//Por Adriel ortiz
Set h = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = h.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If h.Cells(i, "B") >= h.Cells(i, "C") Then
h.Rows(i).Copy h2.Range("A" & j)
h.Rows(i).Delete
j = j + 1
End If
Next i
End Subpero me gustaria que el pegado de la fila copiada sea de forma especial, que pegue solo valores, en la macro actual ella pega valores mas formulas de dicha fila copiada.
1 Respuesta
Respuesta de Dante Amor
3
Prueba la siguiente:
Sub copiar()
'//Por Dante Amor
Dim h1 As Worksheet, h2 As Worksheet
Dim i As Long, j As Long
'
Application.ScreenUpdating = False
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
j = h2.Range("A" & Rows.Count).End(xlUp).Row + 1
For i = h1.Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
If h1.Cells(i, "B") >= h1.Cells(i, "C") Then
h1.Rows(i).Copy
h2.Range("A" & j).PasteSpecial xlPasteValues
h1.Rows(i).Delete
j = j + 1
End If
Next i
End Sub
