Expandir mi rango de celdas para seleccionar?
para dante
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(False, False) = "B2" Then Application.EnableEvents = False Target.Value = "*" & Target.Value & "*" Application.EnableEvents = True 'desactivamos la actualizacion de la pantalla, es decir ocultamos lo que la macro hace Application.ScreenUpdating = False 'si existe algun error de uso lo ignora o salta al siguiente error On Error Resume Next 'BD dinamica lista para efectuar el filtro avanzado en el mismo lugar, desde B1 hasta D2 Range("B4:INDEX(E:E,COUNTA(B:B)+2,)").AdvancedFilter 1, _ Range("B1").CurrentRegion 'autoajusta toda fila usada Cells.Rows.AutoFit 'autoajusta toda columna usada Cells.Columns.AutoFit 'activamos la actualización de la pantalla Application.ScreenUpdating = True End If End Sub
como hacer que la lista que tengo en la columna B hacerla mas larga osea hasta la fila 1000 para que pueda hacer mas larga mi lista
1 respuesta
Respuesta de Dante Amor
1