Macro que copie filas si celda A>71
Hola, mi consulta es la siguiente: en el rango A15:A1676 tengo toda clase de valores, necesito una macro que si el valor de una o varias de esas celdas es mayor que 71 me copie la fila o las filas enteras correspondientes a esa o esas celdas en la hoja 5 de forma correlativa una debajo de la otra. Gracias
1 respuesta
Respuesta de antares18
1
Siento la tardanza, es que no me salía bien
Sub grabar_hoja5()
Dim i As Integer
Dim nueva_fila As Integer
nueva_fila = 0
For i = 15 To 1676
If (Range("A" + CStr(i)).Value > 71) Then
nueva_fila = nueva_fila + 1
Range(CStr(i) + ":" + CStr(i)).Select
Range(CStr(i) + ":" + CStr(i)).Copy
Sheets(5).Select
Range("A" + CStr(nueva_fila)).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Sheets(1).Select
End If
Next i
End Sub
Sub grabar_hoja5()
Dim i As Integer
Dim nueva_fila As Integer
nueva_fila = 0
For i = 15 To 1676
If (Range("A" + CStr(i)).Value > 71) Then
nueva_fila = nueva_fila + 1
Range(CStr(i) + ":" + CStr(i)).Select
Range(CStr(i) + ":" + CStr(i)).Copy
Sheets(5).Select
Range("A" + CStr(nueva_fila)).PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=False, Transpose:=False
Sheets(1).Select
End If
Next i
End Sub
