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 ...

O que é uma "planilha muito grande" ? Quantas linhas com dados na coluna 'A' ? Como você sabe que "vai travar" ? Já testou ?

Ola Osvaldo! Cara a soma ta correta, mas os valores obtidos da soma precisam se repetir em cada linha do produto. Substitua esta linha Cells(x + k ...

Olá, Leandro. Veja se este código atende. Sub SomaProduto() Dim x As Long, k As Long For x = 2 To Cells(Rows.Count, 1).End(xlUp).R...

Veja se ajuda. Sub Oculdiver() If Range("C" & [C8]).Value = 1 Then Rows([D8] & ":" &...

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Address = "$H$4" Then [K...