Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Selecionar dados de...
 
Notifications
Clear all

Selecionar dados de várias planilhas

 
2024 - VBA & Macros
6 Posts
4 Usuários
0 Reactions
1,000 Visualizações
RSS
 francieira
(@francieira)
Posts: 0
New 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: 0
New Member
 

Se disponibilizar a planilha fica mais facil.

 
Postado : 26/03/2017 6:27 am
 francieira
(@francieira)
Posts: 0
New 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: 0
New 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: 0
New 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
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite francieira

Bem-vindo ao fórum!

Como você é novato, para facilitar a tua participação, sugiro tomar conhecimento do conteúdo dos links abaixo:
viewtopic.php?f=7&t=203
viewtopic.php?f=7&t=7903
viewtopic.php?f=7&t=3841
viewtopic.php?f=7&t=16757
viewtopic.php?f=7&t=12600
viewtopic.php?f=7&t=3371

[]s

Patropi - Moderador

 
Postado : 26/03/2017 6:19 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico