luizhcosta,

Bom dia!

Sim... e daí? quando se clica no botão Imprimir da sua planilha carrega um que possui dois botões de rádio (Aprovado e Proposta) duas caixas de texto referente ao intervalo e dois botões (cancelar e Imprimir).

Você quer que quando o usuário clique no botão Imprimir do formulário o valor do botão de rádio seja inserido na célula S7? É isso? E os valores das caixas de texto TextBox1 e TexBox2? Onde devem ser inseridos, já que você se refere a um número apenas na célula C7?

Outra coisa: após a inserção desses valores na planilha, que planilha deve ser impressa? Quais são os dados que estão nessa planilha que será impressa? quantas linhas? Quantas colunas? Qual o nome da aba?

Bom dia Wagner

Sim, para quase todas as suas perguntas.

A planilha a ser impressa é a planilha ativa, seu nome é "Consulta Mapp".
Essa planilha utiliza funções de pesquisas, no caso, indice, para buscar informações em outras planilhas. As referências da função índice são o status que são 2, "Aprovado" e "Proposta". Além desses status,também é usado um código numérico.

O status será selecionado pelo usuário e o valor será inserido na célula S7. A intenção é imprimir a planilha várias de acordo com os intervalo selecionado nas textbox.

Digamos que eu deseje imprimir as informações que correspondam ao status APROVADO dos códigos de 1 a 10, o loop então vai inserir o status e inserir o código 1 e acionar a impressão. Depois vai inserir o segundo código e acionar a impressão, depois inserir o terceiro código e imprimir, código 3 e imprimir e assim até o código 10.

Na planilha já consta o Form onde será feita a seleção.

É isso.

Desde já agradeço.

Desculpe... mas sem a planilha real está difícil de entender...

Ok,

Vou postar uma exemplo.

Poste um arquivo exemplo (compactado), com dados fictício (se quiser), todavia, com o layout real dos dados originais do seu arquivo, inclusive, informando que planilha deverá ser impressa, quais linhas devem ser impressas, quais colunas devem ser impressas, etc.

O restante eu entendi: imprimir tantas vezes quanto forem as vezes existentes no período apontado.

Wagner

Segue um amacro que exemplifica muito bem o processo:

Sub Imprimir()
'
' Imprimir Macro
' Macro gravada em 15/12/2015 por Luiz Henrique Costa
'

'
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "1"                     ' os textbox inicial e final recebem um intervalo
    Range("G7").Select
    ActiveCell.FormulaR1C1 = "Aprovado"         ' os botões de rádio selecionam entre APROVADO e PROPOSTA e insere a opção selecionada 
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True   ' Após as inserções é acionada a impressão da janela ativa
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "2"                     
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "3"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "4"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Range("C7").Select
    ActiveCell.FormulaR1C1 = "5"                        1 Isso se repete até o ultimo código informado nos textbox
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Deu pra visualizar o processo ?

Veja se é assim.

Wagner,

Olá, é que estou na empresa em que trabalho e a política interna não permite o download. Teria como inserir o código?.

Agradeço!

Ok.

No botão Imprimir do Formulário você coloca esse código:

Private Sub CommandButton1_Click()
    Dim Status As String
    Dim InicioIntervalo As Integer
    Dim FimIntervalo As Integer
    If OptionButton1.Value = True Then
        Status = "Aprovado"
    ElseIf OptionButton3.Value = True Then
        Status = "Proposta"
    End If
    InicioIntervalo = Val(TextBox1.Text)
    FimIntervalo = Val(TextBox2.Text)
    Range("S7").Value = Status
    For i = InicioIntervalo To FimIntervalo
        Range("C7").Value = i
        Call Imprimir
    Next
End Sub

Em um módulo qualquer, você coloca esse código:

Sub Imprimir()
' Imprimir Macro
' Macro gravada em 15/12/2015 por Luiz Henrique Costa

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True   ' Após as inserções é acionada a impressão da janela ativa
End Sub

Olá Wagner

Só para agradecer pela ajuda. Ficou perfeito.

Valeu.

Ok, Obrigado.

Por favor, vote positivamente clicando na mãozinha que fica ao lado da ferramenta CITAR.