Bom dia!! Tente adaptar Sub AleVBA_18186() Dim CharRange As Range Dim iResult As Range Set CharRange = Range("A1") S...

will, no seu exemplo já temos varias linhas preenchidas, e somente uma com as formulas, então uma das questões a entender seria : Voce quer uma rotin...

Bom dia!! Você deseja retornar na guia Controle, esse registro? N011 Shenzhen R$ 34.074,00 Shenzhena pagar Att

Aparentemente o problema está na definição das variáveis. Diferente de outras linguagens, no vba deve-se declinar o tipo de dado para cada variável e ...

Bom dia!! Já tentou achar algo próximo disso em nossa base?

Bom dia!! Possa ser que eu não esteja entendendo, vamos aguardar os outros membros responder. Mas o que eu entendi, foi: Após a linha 5 inserir os d...

Bom dia!! Leon, eu não tenho o arquivo salvo, vc pode tentar com a moderação ou o dono do arquivo. Att

Olá Mauro, Primeiramente obrigado pela ajuda. Fiz uma macro simples só pra exemplificar a minha necessidade. Anexei as planilhas em questão, a que fa...

Pelo descritivo, aparentemente não há razão para o erro reportado. Possivelmente algo com as variaveis (declaração/utilização0 porem pelo que diz está...

Bom dia!! Altere a linha para wsBD_Ped.Rows("6:6").Insert Shift:=xlUp Att

Normalmente nos controles de extintores, colocamos a data de recarga, daí sim podemos montar uma validação baseada na data de recarga e no código da c...

Boa tarde!! Sinceramente eu não estou entendendo. wsBD_Ped.Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0) Essa linha (a...

Nelsom parabens, muito bem elaborada a rotina, eu não teria feito melhor, alias eu nem havia começado ainda a desenvolver devido ao tempo. Nelson se ...

Boa tarde!! Eu não entendi muito sua dúvida, mas tente =PROCV(J14;'lay out dental '!J:P;7;0) Arraste para baixo. Att

Boa tarde!! Altere essa linha .Range("A2", .Range("P" & Rows.Count).End(xlUp)).Copy wsBD_Ped.Ce...