Selecionar dados de várias planilhas

2024 - VBA & Macros

Post Recente por Fernando Fernandes 8 anos atrás

6 Posts

4 Usuários

0 Reactions

1,016 Visualizações

RSS

francieira

(@francieira)

Posts: 7

Active Member

Topic starter

Olá, bom dia.

Após completar cursos de VBA comecei a praticar por conta. Estou montando um pequeno controle imobiliário para um amigo, quase no fim do projeto surgiu essa dúvida intermitente que não estou conseguindo avançar. É o seguinte: tenho um formulário para cadastro do proprietário do imóvel e outro para o locatário, ficam cadastrado em planilhas diferentes. No fim do cadastro vem a parte final, que é a impressão dos dados de ambos no WORD. O meu erro esta sendo em como selecionar para capturar os dados de duas planilhas diferentes. Só consigo obter os dados apenas da planilha de um dos tipos. Segue parte do código:

Private Sub UserForm_Activate()

Application.ScreenUpdating = False
ActiveSheet.Range("A1").Select

Sheets("Locatários").Select
ActiveSheet.Range("A2").Select

Do While ActiveCell.Value <> ""

    frmImprimiContrato.cmbLocatario.AddItem ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
Loop

Sheets("Proprietários").Select
ActiveSheet.Range("A2").Select

Do While ActiveCell.Value <> ""

    frmImprimiContrato.cmbProprietario.AddItem ActiveCell.Value
    ActiveCell.Offset(1, 0).Select
Loop

ActiveSheet.Range("A1").Select

Application.ScreenUpdating = True

End Sub

Postado : 26/03/2017 4:39 am

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Se disponibilizar a planilha fica mais facil.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 26/03/2017 6:27 am

francieira

(@francieira)

Posts: 7

Active Member

Topic starter

Acredito que o erro esta aqui.. na hora gerar o arquivo no Word.

Private Sub cmdImprimir_Click()

Dim W           As Worksheet
Dim WORD As WORD.Application
Dim DOC As WORD.Document
Dim vNome       As String
                      
             If ActiveCell.Offset(0, 19).Value = "Verdadeiro" Then
                        
                        Set WORD = CreateObject("Word.Application")
                        WORD.Visible = True
                        
                        Set DOC = WORD.Documents.Open("C:CIAContrato_Loc_semfiador.doc")
                        
                        '''Set W = Sheets("Proprietários")
                        '''Set UltCel = W.Cells(W.Rows.Count, 1).End(xlUp)
                        '''W.Select
                        '''W.Range("A2").Select
                        '''vNome = frmCadProprietario.cmbProprietario.Value
                  
                        With Sheets("Proprietários")
                        With DOC
                        
                            '*Dados proprietário
                            .Application.Selection.Find.Text = "#NOME_PROP"
                            .Application.Selection.Find.Execute
                            .Application.Selection.Range = ActiveCell.Offset(0, 0).Value
              
                        End With
                        End With
                        
                        With Sheets("Locatários")
                        With DOC
                                
                            '*Dados Locatário
                            .Application.Selection.Find.Text = "#NOME_LOC"
                            .Application.Selection.Find.Execute
                            .Application.Selection.Range = ActiveCell.Offset(0, 0).Value
                            
                        End With
                        End With
                        
                        .SaveAs ("C:CIAContrato_Loc_semfiador2.doc")
                       
                        Set DOC = Nothing
                        Set WORD = Nothing
            End If
End Sub

Postado : 26/03/2017 6:43 am

brunoxro

(@brunoxro)

Posts: 698

Honorable Member

Boa tarde Francieira,

Você ativou a referência do Word?

Disponibilize uma planilha de exemplo, assim fica mais fácil ajudar.

att,

Postado : 26/03/2017 9:14 am

francieira

(@francieira)

Posts: 7

Active Member

Topic starter

Segue em anexo o arquivo com o VBA e o modelo de contrato. O que necessito fazer é o seguinte: ao abir o formulário de IMPRIMIR CONTRATO no MENU, escolho o proprietário e o locatário, quando der o comando de IMPRIMIR, carregar os dados de ambos que estão em planilhas diferentes para o arquivo DOC que é o modelo. (Uso o office 2013, esta ok)
Obrigado, desde já.

Postado : 26/03/2017 1:56 pm