Este fórum está sendo desativado

[Henriqu3]

Pessoal, tudo bem?

Estou com um certo desafio, posso dizer que tenho mais interesse do que conhecimento em vba, utilizando vários exemplos aqui do Guru eu criei um assistente em vba com formulário, onde é digitada a informação e logo passada para o excel.

Meu desafio seria importar uma lista com as devidas informações que serão preenchidas, porém, de mais de uma pessoa e depois imprimir todas numa única vez.

Acontece que o número de pessoas é variável, e meu objetivo é criar uma "mala direta" diante destas informações.

O número pode chegar até cerca de 16mil pessoas numa planilha, então o ideal seria:

• Preenche colaborador José, manda imprimir,
• Preenche colaborador Jorge, manda imprimir,
e por assim em diante,

e se possível também uma opção de salvar tudo num PDF só.

Alguém conseguiria me ajudar?

[gfranco]

Boa noite amigo Henriqu3. Se vc tem a planilha com os dados dos funcionários já preenchida com todos os dados dos campos, acredito que seria menos trabalhoso levar o impresso da solicitação de férias para o word e utilizar a mala direta para produzir os documentos. Vc conseguirá todas as impressões de uma só vez.

[Henriqu3]

Opa, tudo bom meu caro? Entendo seu ponto de vista e claro seria realmente até mais prático, porém, este controle não ficará comigo, as próximas pessoas não terão tanta "intimidade" com malas diretas no Word, infelizmente.

[alexandrevba]

Boa tarde!!

O que deseja afinal?

Importar os dados do arquivo modelo de dados.xlsx para dentro de uma guia do arquivo Solicitação de Férias.xlsm?

Quanto ao PDF, eu mostrei isso com a rotina

Código: Selecionar todos

Sub AleVBA_20430()
'http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=20430
Dim Nome As String
Nome = ActiveSheet.Range("A1").Value
    If Nome <> vbNullString Then
        With Sheets("Plan1").Range("A1:I" & Range("A" & Rows.Count).End(xlUp).Row)
            .ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:\Users\AleVBA\Downloads\" & Nome, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False '
        End With
        MsgBox "Relatório de numero " & Nome & "," & " foi salvo com sucesso!", vbOKOnly, "Salvo"
    Else
        MsgBox "Nome do arquivo inválido", vbOKOnly, "Salvo"
    End If
End Sub

Att