Apoyo con Macro en Excel VBA
Tengo una macro que me ayudara a filtrar mi columna B por la palabra "2101" y después filtrara mi columna U por la palabra "Credit", después de hacer esto filtrara por la columna T todo lo que este en "Blank", lo que solicito de su ayuda es de los espacios en blank en mi columna T requiero agregar información automática,¿? Como puedo hacer para que excel detecte cuales son las celdas en blanco de mi filtro y esas las llene de información, tomando en cuenta que los blank nunca son los mismos rangos día a día semana a semana.
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro.
Los encabezados de tu hoja deberán estar en la fila 1.
Cambia en la macro "datos" por la información que quieres llenar.
Sub Filtrar_Rellenar()
'Por Dante Amor
'
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
f = Range("U" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A1:U" & f).AutoFilter Field:=2, Criteria1:="2101"
ActiveSheet.Range("A1:U" & f).AutoFilter Field:=21, Criteria1:="Credit"
ActiveSheet.Range("A1:U" & f).AutoFilter Field:=20, Criteria1:="="
f = Range("U" & Rows.Count).End(xlUp).Row
If f > 1 Then
Range("U2:U" & f).Value = "dato"
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
MsgBox "Información actualizada"
Else
MsgBox "No existe información a filtrar"
End If
End Sub
[
[Si te ayudó la información, no olvides valorar la respuesta.
[
