Alyson Ronnan Martins

@raulsoaresmelo Boa noite. Também não consegui. Tenta importar essas informações via VBA, o excel puxando do access,para pegar essas informações.

@wolfguardia Boa noite. manda um print se seu formulário para mostra mais ou menos aonde tem que alterar o formulário para passa essa informação para tabela. Sendo que essa informação pode ser passada direto por macrou ou pelo formulário mesmo, mais teria que dar uma olhada na tela dele.

@landeirapeixotoBoa noite. No excel usamos o Se para fazer uma lógica que esta querendo. No Access usamos o IFF para fazer isso. Então seria assim: =IIf([PaísRegião]="Itália", "Italiano", "Outro idioma") Estou no aguardo.

@lucianocmoraesBoa noite. Acho que seja erro de formula ou calculo. Poderia enviar um print da consulta que esta criando o "relatório". Estou no aguardo.

@RafaelseginforBoa noite. poderia mandar prints de algumas telas que você elaborou?

@SandroAlvesDFBoa noite. Caso esteja familiarizado com o Excel pode fazer isso usando apenas uma formulá "SE" que no access é chamada como IFF. Fonte: https://support.office.com/pt-br/article/função-iif-32436ecf-c629-48a3-9900-647539c764e3 Caso não responde para melhor ajudar você no aguardo.

@Anselmo lima Boa noite. É dessa maneira?

@df_87Boa noite, esse tópico esta muito antigo porém ainda precisa de ajuda?

@Rodrigo MZ Boa noite, esse tópico esta muito antigo porém ainda precisa de ajuda?

@Anderson7991 Boa noite. Tenta mudar isso: shtDados.Cells(linha, "A").value = fotopasta

@F4b1nh0 Boa noite. Teria com mandar um print para entender melhor?

Boa noite @Nelisa e @ciceroOlira. Eu também não encontrei mais o arquivo porem tem artigo que vai ajudar: Option Explicit Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Const VK_SNAPSHOT = 44 Const VK_LMENU = 164 Const KEYEVENTF_KEYUP = 2 Const KEYEVENTF_EXTENDEDKEY = 1 Private Sub CommandButton1_Click() DoEvents keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0 keybd_event VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 keybd_event VK_LMENU, 0, KEYEVENTF_EXTENDEDKEY + _ KEYEVENTF_KEYUP, 0 DoEvents Workbooks.Add Application.Wait Now + TimeValue("00:00:01") ActiveSheet.PasteSpecial Format:="Bitmap", Link:=False, _ DisplayAsIcon:=False ActiveSheet.Range("A1").Select 'added to force landscape ActiveSheet.PageSetup.Orientation = xlLandscape With ActiveSheet.PageSetup .PrintTitleRows = "" .PrintTitleColumns = "" End With ActiveSheet.PageSetup.PrintArea = "" With ActiveSheet.PageSetup .LeftHeader = "" .CenterHeader = "" .RightHeader = "" .LeftFooter = "" .CenterFooter = "" .RightFooter = "" .LeftMargin = Application.InchesToPoints(0.75) .RightMargin = Application.InchesToPoints(0.75) .TopMargin = Application.InchesToPoints(1) .BottomMargin = Application.InchesToPoints(1) .HeaderMargin = Application.InchesToPoints(0.5) .FooterMargin = Application.InchesToPoints(0.5) .PrintHeadings = False .PrintGridlines = False .PrintComments = xlPrintNoComments .PrintQuality = 300 .CenterHorizontally = True .CenterVertically = True .Orientation = xlLandscape .Draft = False .PaperSize = xlPaperA4 .FirstPageNumber = xlAutomatic .Order = xlDownThenOver .BlackAndWhite = False .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = 1 End With ActiveWindow.SelectedSheets.PrintOut Copies:=1 ActiveWorkbook.Close False End Sub Esse código vai tirar um print do seu formulário, criar uma aba, fazer configuração para "landscape - paisagem", imprimir e apagar o arquivo criar para o print. o Evento é acionado em CommandButton1_Click (Clique no botão CommandButton1), caso tem um botão já personalizado para isso basta colocar o comando dentro o mesmo evento para seu botão. Qualquer duvida é só responder aqui.

@Marcelo Ricardo Boa noite. Olhando o seu código eu notei que aparte que lanças informações esta colocando na mesma linha. Sheets("Home").Cells(uLinhaHome, "A").Value = Sheets("Demanda").Cells(iLinha, "A").Value Um erro meu porque o código que pega a linha na aba "HOME" deve acrescentar mais +1 para sempre colocar em uma linha em branco. uLinhaHome = Sheets("Home").Cells(Rows.Count, "A").End(xlUp).Row + 1 'Pulando a ultima linha preenchida. Então a correção ficaria desta maneira: Sub Atualiza_Pendente() Dim uLinhaDemanda As Integer Dim iLinha As Integer Dim uLinhaHome As Integer uLinhaDemanda = Sheets("Demanda").Cells(Rows.Count, "L").End(xlUp).Row For iLinha = 2 To uLinhaDemanda Step 1 If Sheets("Demanda").Cells(iLinha, "L").Value = "ANDAMENTO" Then 'lançar os dados da linha atual na outra planilha uLinhaHome = Sheets("Home").Cells(Rows.Count, "A").End(xlUp).Row + 1 'Pular a ultima linha preenchida na aba HOME Sheets("Home").Cells(uLinhaHome, "A").Value = Sheets("Demanda").Cells(iLinha, "A").Value Sheets("Home").Cells(uLinhaHome, "B").Value = Sheets("Demanda").Cells(iLinha, "B").Value Sheets("Home").Cells(uLinhaHome, "C").Value = Sheets("Demanda").Cells(iLinha, "C").Value Sheets("Home").Cells(uLinhaHome, "D").Value = Sheets("Demanda").Cells(iLinha, "D").Value Sheets("Home").Cells(uLinhaHome, "E").Value = Sheets("Demanda").Cells(iLinha, "E").Value Sheets("Home").Cells(uLinhaHome, "F").Value = Sheets("Demanda").Cells(iLinha, "F").Value Sheets("Home").Cells(uLinhaHome, "G").Value = Sheets("Demanda").Cells(iLinha, "G").Value Sheets("Home").Cells(uLinhaHome, "H").Value = Sheets("Demanda").Cells(iLinha, "H").Value Sheets("Home").Cells(uLinhaHome, "I").Value = Sheets("Demanda").Cells(iLinha, "I").Value Sheets("Home").Cells(uLinhaHome, "J").Value = Sheets("Demanda").Cells(iLinha, "J").Value Sheets("Home").Cells(uLinhaHome, "K").Value = Sheets("Demanda").Cells(iLinha, "K").Value Sheets("Home").Cells(uLinhaHome, "L").Value = Sheets("Demanda").Cells(iLinha, "L").Value Sheets("Home").Cells(uLinhaHome, "M").Value = Sheets("Demanda").Cells(iLinha, "M").Value Sheets("Home").Cells(uLinhaHome, "N").Value = Sheets("Demanda").Cells(iLinha, "N").Value Sheets("Home").Cells(uLinhaHome, "O").Value = Sheets("Demanda").Cells(iLinha, "O").Value End If Next iLinha End Sub Segue abaixo a planilha em anexo. https://drive.google.com/open?id=1nC1CKcLadt95oPUJb7RTF8d6Piuwt29k

@ipittigliani Boa noite. Teria como mandar qual o valor que esta dentro da celula "Planilha2.Range("d6")" Ai vou poder ver se string esta certa.

@Rafael Peixoto Boa noite. Eu fiz a seguinte alteração mais não testei olha ai e da um retorno para agente. Sub Enviar_Email() Dim objMsg As MailItem Dim intChoice As Integer Dim strFile As String Print Set xOutlookObj = CreateObject("Outlook.Application") Set xEmailObj = xOutlookObj.CreateItem(0) With xEmailObj Application.FileDialog(msoFileDialogOpen).AllowMultiSelect = True intChoice = Application.FileDialog(msoFileDialogOpen).Show .Display .to = Sheets("CADASTRO").Range("b6").Value .CC = Sheets("CADASTRO").Range("B7").Value .Subject = "INFORME LANÇAMENTOS EM RESCISÃO" If intChoice <> 0 Then 'Verificar se tem arquivo selecionado 'Conta quantos arquivos tem selecionados qtdArquivos = Application.FileDialog(msoFileDialogOpen).SelectedItems.Count For x = 1 To qtdArquivos Step 1 strFile = Application.FileDialog(msoFileDialogOpen).SelectedItems(x) 'Endereço do arquivo .Attachments.Add (strFile) Next x End If .HTMLBody = "<p style = 'font-family: calibri; font-size: 14'> Prezado,<br /><br /> Segue anexo PDA para lan&ccedil;amento em rescis&atilde;o.<br /><br /><ul>Empresa: <b>" & Range("b6").Value & "</b><br />Matrícula: <b>" & Range("d8").Value & "</b><br />Nome: <b>" & Range("b8").Value & "</b><br />Demiss&atilde;o: <b>" & Range("g8").Value & " </b><br />Tipo de Demiss&atilde;o: <b>" & Range("b10").Value & "</b><br /><br /></ul> " & vbCrLf & "Atenciosamente," & "<br>" & .HTMLBody If DisplayEmail = False Then '.Send End If End With Set objMsg = Nothing End Sub

@brunomg30 Boa noite. No início do seu código você pode definir qual aba vai abrir para colocar seu código. Sheets("Planilha2").Select Assim você pode selecionar a planilha correta antes de executar o seu código. Tem um porem você precisa que seu formulário informe qual a aba ele vai precisar colocar os dados. Para isso o nome da planilha deve estar no formulário. Sheets(UserForm1.TextBox1.Value).Select Olha se ti ajudei de dar um retorno.

@Anthony Ewertom Boa noite. Public Function OpenFileDialog() As String Dim Filter As String, Title As String Dim FilterIndex As Integer Dim Filename As Variant ' Define o filtro de procura dos arquivos Filter = "Arquivos Wave (*.wav),*.wav," ' O filtro padrão é *.* FilterIndex = 3 ' Define o Título (Caption) da Tela Title = "Selecione um arquivo" ' Define o disco de procura ChDrive ("C") ChDir ("C:\") With Application ' Abre a caixa de diálogo para seleção do arquivo com os parâmetros Filename = .GetOpenFilename(Filter, FilterIndex, Title) ' Reseta o Path ChDrive (Left(.DefaultFilePath, 1)) ChDir (.DefaultFilePath) End With ' Abandona ao Cancelar If Filename = False Then MsgBox "Nenhum arquivo foi selecionado." Exit Function End If ' Retorna o caminho do arquivo OpenFileDialog = Filename End Function Utiliza-se o método GetOpenFilename para chamar a caixa de diálogo Define-se o filtro de seleção de arquivos para o tipo “Wave Files (*.wav),*.wav,”, mas poderia ser qualquer outro (txt, xls, doc, etc) Pode-se definir um drive padrão de busca do arquivo Fonte: https://www.tomasvasquez.com.br

Entou usar o próprio comando que mostra o HTML? /envio/avulso.do acrescetando o endereço da pagina?

Boa noite. Teria como postar sua planilha por exemplo no send space para tentar simular esse erro? Olhei seu código e não entendi o erro.

@Jose Carlos Ferreira Boa madrugada kkk. Eu vi seu poste e utilizei um código do "FOR" para pesquisar em todas as linhas de socios. 'Pesquisar o CPF 'Maneira 1 usando o "FOR" uLinhaSocio = Sheets("SOCIO").Cells(Rows.Count, "B").End(xlUp).Row ' Ultima linha na planilha sócial If uLinhaSocio < 3 Then Exit Sub 'Sair caso não tenha nenhum regitos For x = 3 To uLinhaSocio Step 1 'Comparar o texto digitado com o CPF na planilha If Me.TextBoxcpf = Sheets("SOCIO").Cells(x, "B").Value Then TextBoxnome = Sheets("SOCIO").Cells(x, "C").Value End If Next x Eu utilizei o mesmo campo que você criou para formatar o CPF depois que a pessoa sai da caixa TextBoxcpf Segue abaixo em anexo a sua planilha modificada para tentar entender. https://drive.google.com/open?id=1VzYB_3PbjfP8_MkO6E8RnbNXgUzsul8G

realmente "menos trabalhoso"

Boa noite. Demorei muito pois estava muito ocupado pessoalmente. Agora vendo a planilha segue a informação. Planilha exemplo: https://drive.google.com/open?id=1hzI4EdJuXVaVamwep-3DwzJ723mYthSH Qualquer duvida manda no forum aqui

Boa tarde @Éderson Mass. Até imagino isso isso no evento ao alterar mais se a pessoal que abrir a planilha não estiver com o macri habilitado no excel vai acabar podendo reexibir manualmmanual, já imaginou isso?

@lbcarvalho Boa tarde Quer fazer do modo mais fácil (Criar uma consulta - atualizar) ou um macro vba para fazer um update?

Boa tarde @carlossanoli Quando você executa o código ele para em qual linha?