https://gurudoexcel.com/forum/viewtopic.php?f=12&t=4669&sid=4a15d8cb88c521bf9d09100e82399d46

Veja se pode ajudar:

...o problema é que não desejo apagar toda a linha....e sim apenas algumas células......teria como fazer isso? Sim!

Experimente: Sub NúmerosFaltantes() Dim a As String, i As Long, k As Long For k = 1 To Cells(Rows.Count, 1).End(3).Row For i = 1...

Sub teste() [A1] = ChrW(&H15B) [A2] = ChrW(&H17C) End Sub Se você quer o "z" com acento agudo então o código ...

Ele 'armazena' o valor da célula? Se o valor da "Plan2" for encontrado na "Plan1" o comando abaixo replica direto em 'B' da "...

Experimente: Sub ValorCorrigido() Dim v As Range, vc As Range For Each v In Sheets("Plan2").Range("A8:A" & Sheet...

Repetindo: o código funciona na sua amostra, que já deve ser décima quinta versão que você coloca aqui, e lá não existe nem pera e nem abacaxi. Eu de...

"marco acv" Em anexo, segue planilha para que você possa analisar e verificar onde foi que eu errei. O último código foi preparado com bas...

Considerei: 1. dados na linha '2' a partir da coluna 'A' 2. código do produto à direita do campo "cod" e nome do produto à direita do campo ...

Na meio de tantas coisas para resolver eu acabei informando a planilha errada, por favor, me desculpe. Relaxe, todo gênio é distraído. Dúvida...

Private Sub CommandButton1_Click() Dim cod As Range, codAdd As String, m As Long, p As String, c As Long, pr As Range, r As Long r = Cells(Rows...

Na imagem anexa, contém mais dados para entendimento dos colegas. A imagem é inútil, disponibilize uma amostra do seu arquivo Excel com o código inst...

Selecione qualquer célula da linha onde deseja inserir a nova linha e rode o código abaixo. Sub InsereLinhaColaFórmulas() Rows(ActiveCell.Row)&...

Esta questão está sendo tratada em outro fórum conforme link abaixo. Marcos, você tem o péssimo hábito de espalhar as suas questões por vários fóruns...