- 27 Jun 2016 às 16:55
#12203
Srs, no código:
Private Sub Workbook_Open()
Sub Vazia()
Dim LastRow As Long
Dim Cell As Range
LastRow = Range("E" & Rows.Count).End(xlUp).Row
Range("E" & LastRow + 1).Select
If WorksheetFunction.IsText(Range("E" & LastRow)) = True Then
Exit Sub
End If
End Sub
---não é meu, foi uma ajuda que obtive, pois não domino códigos....más tá perfeita, PORÉM, preciso que mantenha a execução onde, ela percorre a coluna E encontrando a primeira VAZIA ela para...
-preciso que ANTES DISSO ...TIRE O FILTRO...execute ela e depois RECOLOQUE o filtro.
essa é a planilha:
https://www.sendspace.com/file/rm0k60
se alguem puder ajudar, agradeço.
Private Sub Workbook_Open()
Sub Vazia()
Dim LastRow As Long
Dim Cell As Range
LastRow = Range("E" & Rows.Count).End(xlUp).Row
Range("E" & LastRow + 1).Select
If WorksheetFunction.IsText(Range("E" & LastRow)) = True Then
Exit Sub
End If
End Sub
---não é meu, foi uma ajuda que obtive, pois não domino códigos....más tá perfeita, PORÉM, preciso que mantenha a execução onde, ela percorre a coluna E encontrando a primeira VAZIA ela para...
-preciso que ANTES DISSO ...TIRE O FILTRO...execute ela e depois RECOLOQUE o filtro.
essa é a planilha:
https://www.sendspace.com/file/rm0k60
se alguem puder ajudar, agradeço.
