Quando as células B5, B8, B11, B14, B17...... até B400 (saltando sempre duas) na plan1 forem alteradas ou apagadas. ou quando a célula B22 na plan2 fo...

No código que eu sugeri altere > 340 para > 400 O código não irá executar se você alterar/limpar mais de uma célula de uma vez. Se não funcion...

De novo... Descreva com exatidão o que você quer que o código faça.

Olá, Pedro. Veja se é isso. O código abaixo vai inserir um texto na primeira célula vazia. Select Case cmbposto.Value 'inserir de acordo o valor ...

Daria para aplicar aqui também? Descreva com exatidão o que você quer que o código faça.

Veja se ajuda. Private Sub Worksheet_Change(ByVal Target As Range) 'Roda macro quando valor da célula é alterado manualmente If Target.Count &g...

Veja se ajuda. Select Case ComboBox1.Value Case "Cargos Superiores": Sheets("Folha1").[A15].End(...

Formatação Condicional para o intervalo 'D6:L6' =E(D6<>"";D6<>$D$3:$L$3; D6<>$D$26:$L$26) para o intervalo 'D2...

Resultado na coluna 'D', a partir de 'D1' Sub MudaXis() Dim c As Range, k As Long, m As Long For Each c In Range("A1:A" & Cells(...

Sub teste() Dim variavel As String variavel = ActiveCell.Address Sheets("Plan2").Range(variavel) = "olá" End Sub

Remova o "s" do Counts totalregistro= Worksheets ("Base de dados").usedrange.rows.counts +1 totalregistro= Worksheets ("Bas...

Porém ao fazer isso, a formula deixou de ser matricial e passou a ser "normal". No seu dá isso também? O código que passei insere a fórmula...

Experimente: Sub InsereFórmula() [M5].Select Selection = "=IFERROR(IF(VLOOKUP(INDEX('Banco de Dados Produtos'!$D$12:$F$26,...

Private Sub CommandButton1_Click() Sheets("DADOS").Cells = "" End Sub

Precisava de outra coisa, que abaixo da data aparecesse o nome do item, como faria isso ? Experimente: Private Sub Worksheet_Change(ByVal Target As ...