Pergunta : Cancelar somente primeiras 5 colunas

Olá! indivíduos,

I am ainda que trabalha neste macro apenas que tenta ao twik o um bocado. (pesaroso para o messiness do meu comentário) o

Is lá uma maneira eu posso conseguir a linha 23 verific somente as primeiras 6 colunas para ver se há dados usados?  Eu estou querendo põr formals na coluna G mas assim que eu fizer os dados começam povoar de below minha mais baixa fórmula.

Cheers,
class= > " desobstruído " do
> do " codeSnippet " do class= do
class= " lineNumbers " do
class= do 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
o id= " codeSnippet854494 " class= " do 
 ' este submarino deve ser instalado na placa do código para a folha do calendário. Não trabalhará de todo se instalado seja là onde for.
Worksheet_Activate secundário confidencial ()
WS não ofuscante como a folha, wsCalendar como a folha
Rg não ofuscante como a escala, a mais rgDest como a escala
N não ofuscante como por muito tempo
'Application.ScreenUpdating = falso
wsCalendar ajustado = folhas (“calendário”)
wsCalendar.Range (“a2”, “f10000”). Espaço livre
'wsCalendar.Rows (2). Resize (wsCalendar.Rows.Count - 1) .ClearContents
'wsCalendar.Rows.ClearContents
Para cada WS em ThisWorkbook.Worksheets
    Selecionar o caso WS. Nome
    Encaixotar o “calendário”, “Home”, de “espaço funcionamento” 'ignoram estas folhas
    Encaixotar mais
        Com WS
            'WS. Ativar
            Ajustar o rg =. Escala (“B4”). Resize (.UsedRange.Rows.Count, 5) 'o olhar nas colunas B: F, começando na fileira 4
            Se (não se cruzar (rg, .UsedRange) não é nada) e (rg. "" do <> das pilhas (2, 1)) então
                'campo de rg.AutoFilter: =2, Criteria1: = " <= " & (data + 5), operador: =xlAnd, Criteria2: = " >= " & (data - 5)
                'deve ser o formato de data dos E.U.
                hoje = formato (data, “milímetro-dd-yyyy”)
                campo de rg.AutoFilter: =2, Criteria1: = " >= " & hoje ', operador: =xlAnd, Criteria2: = " >= " & plus5days
                O mais rgDest ajustado = wsCalendar.Cells (wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row, 2)
                .AutoFilter.Range.Copy o mais rgDest
                n = wsCalendar.UsedRange.Rows.Count + wsCalendar.UsedRange.Row - rgDest.Row
                rgDest.Offset (0, -1). Resize (n, 1). Valor = WS. Nome
                rgDest.Rows (1) .EntireRow.Delete
                . Escala (“B4”) .AutoFilter
            Terminar se
        Terminar com
    Terminar seleto
Em seguida
Application.ScreenUpdating = retificam
Submarino da extremidade
class= do

Resposta : Cancelar somente primeiras 5 colunas

Muitas vezes você começ o #Name com funções comuns como a data (), o Len ()… etc. se… uma referência falta.

Editor >> Tools>>References de VBA.  Procurar listado como
** Faltando

MX
Outras soluções  
 
programming4us programming4us