Talvez lhe auxilie

Algo +/- assim Sub Imprimirguias() Dim i As Integer, Cod As Integer Dim salvarpdf As String Cod = Application.WorksheetFunction.CountA(Workshee...

vide/p>

Assim as cegas e complicado: Como diz "..A parte de copiar os dados já consegui..." Deveria ser algo +/- assim If suacelula.valor="...

Creio que a sintaxe deve ser Pages https://docs.microsoft.com/pt-br/office/vba/language/reference/user-interface-help/page-object-pages...

Voçe tem formulas e formatação até a ultima Linha das planilhas; as formulas somase também referem-se até a ultima linha das planilhas. A cada abertur...

Pode experimentar algo como: Dim strNome As String Dim x As Integer strNome = " 10 +2" Range("B38").Select ActiveCell.Fo...

Uma possibilidade, Experimente/teste https://www.sendspace.com/file/wedhdf

Se sua planilha estiver com a celula formatada corretamente, Experimente: Altere: CDbl... Para Plan2.Cells(linemain, 7).text ou ainda --> Format(C...

Por default a tabela irá somar colunas com numeros, é preciso FORMATAR os campos que não deseja a soma, no meu exemplo escolhi Minimo (Min), nessa for...

Fantin, como interpretar/determinar/Saber que o produto pertença a determinado grupo. Lembre-se voce conhece sua atividade,nos não. A imagem da tabel...

Fantin, o forum está sem poder anexar arquivos diretamente, solicitamos que disponibilize seum modelo/exemplo em algum site de compartilhamento de ar...

A Excel tem vários "níveis" de modulos: Modulo Formulario, Modulo Geral, Modulo de planilha (Plan1...) e Modulo 'Esta pasta de trabalho Expe...

Uma possibilidade: Sub Parcelamento() Dim linha As Integer, contador As Integer, i As Integer 'Altere de integer para Long se atingir valores maoires ...

Experimente utilizar tabela dinamica algo +/- assim:https://www.sendspace.com/file/k9qtlm