Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
  • Avatar do usuário
  • Avatar do usuário
#59970
Boa noite "Mucascostas", Você me solucionou eficazmente esse comando (abaixo) que define "Área de impressão" da planiha de acordo com nº de páginas preenchidas e até execitei com sucesso no modelo que enviei.
Será você ou a equipe do GURU poderiam me ajudar?
- Ao aplicar esse comando na planilha oficial, sempre a última pagina começa 4 linhas abaixo.
- Tem como ao gerar esse PDF, nomear automaticamente com o nome do Operador?

Sub PrintSel()
Dim x As Integer, MyVar As Long
Sheets("Planilha1").Select
MyVar = Application.WorksheetFunction.Count(Sheets("planilha1").Range("B:B")) 'contar só as células preenchidas.
Range("A2:B" & MyVar + 1).Select
x = MsgBox("VOCÊ QUER IMPRIMIR?", vbYesNo + vbQuestion, Title:="© Muca Sistemas - 2020")
If x = vbYes Then
Selection.PrintOut Copies:=1, Collate:=True
Else
Exit Sub
End If
End Sub

Já fiz de tudo e vou continuar tentando achar a solução.
Desde de já meus agradecimentos e desculpe essa "dor de cabeça" rsss...
#59986
Boas tudo bem?
Seria possível deixar um exemplo do arquivo em questão, pois a execução de uma macro ficaria mais fácil.
Obrigado! :D
#60137
Obrigado pelo retorno Afonso e desculpe a demora, tive alguns contratempos,
Nunca fiz curso de Excel avançado muito menos ainda VBA, tudo o que vocês vão ver é o que venho aprendendo com ajuda vocês, obrigado (não reparem rsss...).
O que ocorre: (1) Sempre a última pagina do PDF, formulário fica mais abaixo que que os anteriores; (2) Preciso que gere PDF nomeando automaticamente.
Obrigado mais uma vez
Você não está autorizado a ver ou baixar esse anexo.
#60161
Boas experimente se é isso que pretende, esteja à vontade para pedir alterações. :)

Ficheiro em anexo.
SAC Ativo.xlsm
Você não está autorizado a ver ou baixar esse anexo.
#60167
Acho que estamos quase lá, é basicamente isso, só que preciso que seja um formulário para cada página, por exemplo: 60 nº telefones equivale a 8 páginas, ou seja: "2páginas pra OI", "2páginas pra VIVO", "2páginas pra TIM", "2páginas pra CLARO".
Outra coisa que preciso, é quando gerar o PDF, nomear automaticamente com o nome do Operador.
Obrigado amigo.
Albino10 agradeceu por isso
#60168
Penso que agora esteja como quer.

Adicionei tambem uma validação de dados onde se coloca o número de telefones para que não dê para inserir números maiores que 250.

E fiz com que a setinha do "digite aqui", não apareça no PDF.

Quanto ao gravar com o nome do Operador ele já está a fazer isso.

Ficheiro em anexo. :)
Você não está autorizado a ver ou baixar esse anexo.
Kledison agradeceu por isso
#60202
Vaaaleu Afonso, simplesmente fantástico, exatamente o que eu precisava, obrigado!!!
Estudei minuciosamente seu comando e não encontrei como você conseguiu que a setinha não apareça no PDF,
Antes de finalizar esse fórum como RESOLVIDO você poderia informar-me? por favor.
#60205
Para remover a setinha, ou qualquer outro objeto da impressão:
  • clique sobre ele com botão direito do mouse
  • vai em tamanho e propriedades
  • propriedades
  • desmarca a caixinha onde diz "Imprimir objeto" ou algo desse género
Pronto sua forma não irá aparecer na impressão.
Macro Para Copiar Aba

Boa-tarde Tente assim: Sub Gerar_Aba() On[…]

Olá amigos! Estou elaborando uma planilha p[…]

Contagem continua

Bom dia Como contar valores continuos dentro de um[…]

Dias da semana

:D deu certo obrigado.

Leonardo1234, Bom Dia. Primeiro notei que n&atild[…]

Muito obrigado!

Desculpe estar respondendo somente agora, seria is[…]

Mediana com condicional

Tente: =MED(SE(Atendimentos_TOTAL!G:G="8_2020[…]