Olá, Fabio. Experimente Sub PreencheVazias() On Error Resume Next Range("A2:A" & Cells(Rows.Count, 1).Row).Speci...

em 'H8' =DESLOC($C$12;CORRESP($F$8;$C$13:$C$17);CORRESP(H5;$E$12:$H$12)+1;;) em 'H9' =DESLOC($C$12;CORRESP($F$8;$C$13:$C$17);CORRESP(I...

Olá, Marcio. Complementando a informação do Patropi, instale o código no módulo da planilha, assim: 1. copie o código do post 2. clique com o direito ...

Veja se algum dos comandos abaixo atende. ActiveWindow.Visible = False Windows("NomeDoArquivo").Visible = False

Experimente Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$5" Then Exit Sub On Error Resume Next ...

Sub PreencheVazias() Range("A2:A" & Cells(Rows.Count, 1).Row).SpecialCells(xlBlanks).Value = "N/A" ...

em 'J2', arraste para baixo e para a direita =ÍNDICE($C:$C;(LIN(A2)-2)*8+COLUNA(C1)) obs. algumas versões do Excel utilizam COL em lugar de COLU...

Cole uma cópia do código abaixo no módulo do Form Private Sub ComboBox1_Change() Dim k As Long, rng As Range k = [A:A].Find(Com...

If Target.Value <> "R" And [A1] = Date Then

Sub InsereLinhasIguais() Dim nf As Long For nf = 2 To Cells(Rows.Count, 1).End(3).Row If Cells(nf, 1) > 1 Then Cells(nf, 1...

Estou querendo fazer uma sequencia numeral, onde somente a cada 16 linhas ele aumente um número em uma coluna Preciso que limite digitando o inicio e ...

... preciso de ajudar para encontrar uma fórmula para contar os números que estão formatados condicionalmente em vermelho. Na sua tabela de exemplo ...

Mas se vc que saber onde está o erro em seu código, atente para a chamada a "arquivaF34", pois ela deveria estar em uma nova linha: If Rang...

Experimente fluxo = Day(Date)

Uma possibilidade. Veja se funciona. Sub teste() If [N3] = [C7] Then MsgBox "Cartão identificado com sucesso. Prossiga!...