Ampliar Macro hasta la última celda activa
Esta macro que me coge los valores de I5 y me los pone en M5 según K5 sea mayor que G11 y menor que G13.
If Range("G11").Value <= Range("K5") And Range("G13").Value >= Range("K5") Then
Range("M5").Value = Range("I5")
Else
Range("M5").Value = " "
End If
Quisiera ampliarla y que me copie en la columna M, desde M5, los valores de la columna I, desde I5, hasta la última celda con datos, teniendo en cuenta los valores de la columna K, desde K5, siempre comparados con G11 y G13, a ser posible saltando los datos que den celdas en blanco.
Muchas gracias por vuestro tiempo.
1 respuesta
Respuesta de Dante Amor
1
Prueba la siguiente macro
Sub ampliar_macro()
'por.dam
For i = 5 To Range("I" & Rows.Count).End(xlUp).Row
If Range("K" & i) <> "" Then
If Range("G11").Value <= Range("K" & i) And Range("G13").Value >= Range("K" & i) Then
Range("M" & i).Value = Range("I" & i)
Else
Range("M" & i).Value = " "
End If
End If
Next
End SubSaludos.Dam
Si es lo que necesitas.
