Sub oculta() Dim i As Long, RowCnt As Long ActiveSheet.Calculate 'Calcula somente as fórmulas da planilha ativa For i = 1 To 40 With Shee...

Então , o que eu quero é que se Coluna B do vazio no na célula de entrada, a vai cadastrar data atual na plan dados, e na J e I o mês e ano da colun...

O seu problema é nas colunas 'B' e 'J' ou nas colunas 'J' e 'I' ? No seu código, se "DataEsp" estiver vazio, então as duas primeiras linhas...

Experimente: Sub COPIA_TELA() On Error Resume Next ActiveSheet.Shapes("semdados").Delete If Range("D1") < 9 The...

Resultado a partir de 'M1'. Sub TransporDados() Dim n As Range, k As Long, m As Long For Each n In Range("A3:A" & Cells(Rows�...

Experimente: Sub ReplicaDados() Sheets("prevenda").Range("A2:L" & Cells(Rows.Count, 1).End(3).Row)&...

Experimente: Sub ReplicaDados() Dim c As Range For Each c In Range("A1:A" & Cells(Rows.Count, 1).End(3).Row) C...

... porém, não está funcionando (ou só funciona "de vez em quando")... ...mas o que nestas abas estão causando este problema? Alguma fórmula...

Olá, Pedro. Ficou confuso: você resolveu ou ainda precisa de ajuda? Se não resolveu informe com exatidão o qua ainda falta.

Sub ExcluiLinhasVazias() Dim LR As Long, k As Long LR = Cells(Rows.Count, 2).End(3).Row For k = LR To 2 Step -1 If Application&...

Experimente: [I80].FormulaLocal = "=SE(F80="""";"""";SEERRO(ÍNDICE(Resultado!F2:F600...

Você comentou na planilha que as linhas 3 e 5 devem ser excluídas. Se o critério para excluir a linha for linha vazia no intervalo 'C:BJ', então no s...

Faça testes com os eventos abaixo, veja se algum te atende. Private Sub TextBox1_Change() ' seu código de busca End Sub Private Sub TextBox1_Dbl...

Experimente: Sub ExcluiLinhasVazias() Dim LR As Long, k As Long LR = Cells(Rows.Count, 1).End(3).Row For k = LR To 1 Step -1 I...

Pode ser por Formatação Condicional ao invés de macro ? Se sim, segue o passo-a-passo abaixo. 1. selecione a tabela 1 ---> B3:P30 2. no menu Form...