Olá, Raisa. Veja se algum dos códigos abaixo pode servir. este é disparado ao aplicar duplo clique e ativa a planilha do mesmo arquivo, cujo nome est...

É possível também por meio da Formatação Condicional, se as tabelas não forem demasiado grandes. Retorne se você quer experimentar esta opção ou se s...

Não deu certo amigo. Para a sugestão do Leandro funcionar, atribua ao botão a macro "Confirmacao" e pode apagar a macro "confirm"...

Experimente: Sub ComparaBasesV2() Dim LR As Long Application.ScreenUpdating = False With Sheets("Plan1") .AutoFilterMod...

Conforme está comentado logo abaixo do nome no código que passei ('marcar a Referência 'Microsoft Forms 2.0 Object Library), é preciso marcar a Refer...

Veja se aproveita algo. O código abaixo "copia" os conteúdos das células do intervalo 'B3:B12' para a Área de Transferência e cola em 'E3:E1...

Olá, Mariana. O código funciona também para a colagem mas de apenas uma célula por vez, pois eu coloquei um comando no código que impõe essa limitaçã...

Cole o código abaixo no módulo da planilha. A propósito, sugiro que você mude o código que envia e-mail, que está no módulo da planilha, para um módul...

Experimente: substitua esta linha vPagina = ActiveSheet.HPageBreaks(i).Location.Row - 1 por esta vPagina = ActiveSheet.HPageBrea...

sugestão - disponibilize uma amostra do seu arquivo e informe em qual célula será lançado o código lido pelo leitor do código de barras

substitua esta linha 'Sheets("Matriz").[A1] = Range("A2:F" & LR).SpecialCells(xlCellTypeVisible)(1...

Experimente mudar as linhas abaixo para io interior do Loop: 'atualiza o valor dos nomes para a proxima linha Name = Sheets("Base").Rang...

...porém todas as vezes que aparece o nome "teste1 " no caso eu queria que fosse o valor de uma célula dessa planilha... Exemplo, 'coloque ...

Cole a fórmula abaixo em 'C25' e em seguida arraste para a direita. =PROC(2;1/($C2:$C22=C24);$B2:$B22)

Sub GeraPlanilha() Dim m As Long, k As Long, x As Long, t As Long, c As Long, r As Range, LR As Long Application.ScreenUpdating = False k = ...