Basole

Se pudesse postar seu arq. ou em exemplo facilita descobrir em quais plans, colunas e linhas estão os seus dados. Abx.

Tente o cod. abaixo Voce não informou o banco de dados o ex. está ajustado para banco access. Private Sub Verif_Se_FuncExiste() ' *** habilite a referencia Microsoft ActiveX data objects X.X library Dim nConn As New ADODB.Connection Dim Rs As ADODB.Recordset Dim sql As String, seuTextbox As String seuTextbox = TextBox1.Text ' altere o nome do controle onde esta os dados If seuTextbox = "" Then MsgBox "Insira os dados no " & seuTextbox, 64, "Aviso" Exit Sub End If sql = "SELECT * FROM [NomeSuaTabela]" & _ " WHERE [CampoQquerProcurar] = '" & seuTextbox & "';" Set Rs = New ADODB.Recordset nPath = "C:\Users\Admin\Desktop\Nome_do_Seu_Banco_de_Dados.mdb" ' altere o diretorio e nome do BD nConectar = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & nPath & ";" nConn.ConnectionString = nConectar nConn.Open Rs.Open sql, nConn If Rs.EOF = False Then MsgBox "Funcinario " & seuTextbox & " encontrado!" Else MsgBox "Nao encontrado!" End If Set Rs = Nothing nConn.Close End Sub

Kaue, seja bem vindo a bordo. O que voce quer acessar o banco de dados do referido programa? Investigue que tipo de banco é usado neste app... E use por ex. Adodb c/ sql p/ importar ou atualizar os dados. abx.

insira um valor para a propriedade ".value" -> 0 p/ 1ª pag.(aba), 1 p/ 2ª pag.(aba), 2 p/ 3ª pag.(aba) ...etc Ex: UserForm_Initialize() Me.MultiPage1.Value = 1 ' p/ 2ª pag. End Sub ou no CommandButton1_Click()

Tente o seguinte comando sql no excel: sql = "SELECT * FROM SuaTabela" & _ " WHERE [CampoDaTabela] = '" & Forms![NomeDoFormulario]![NomeDoTextbox] & "';" * Certifique-se que seu formulario esteja aberto.

Bom conteudo pra quem ta comecando http://www.bertolo.pro.br/FinEst/SemanaContabeis2007/MacroExcel.pdf

Olá Rafael boa noite, Segue o link de exmplo do codigo que postei acima em um userform: abx. https://www.sendspace.com/file/p1alus

@Rafael Seria bom voce compartilhar um exemplo com o userform.

Rafael veja se atende: Sub lsPesquisaCEP(ByVal sCEP As String) On Error GoTo TratarErro Range("Plan2!a1:H1").Clear If sCEP <> "" Then With ActiveWorkbook.XmlMaps("webservicecep_Mapa") .ShowImportExportValidationErrors = False .AdjustColumnWidth = True .PreserveColumnFilter = False .PreserveNumberFormatting = False .AppendOnImport = False End With ActiveWorkbook.XmlImport URL:= _ "http://republicavirtual.com.br/web_cep.php?cep=" & sCEP, ImportMap:= _ Nothing, Overwrite:=False, Destination:=Range("Plan2!$a$1") End If Calculate Sair: Exit Sub TratarErro: MsgBox "CEP não cadastrado!" GoTo Sair Resume End Sub abx.

Rafael, inserir imagem em subItem desconheço.que tenha a possibilidade. Talvez, pudesse inserir a imagem em uma celula e exportar os dados do listview, para as colunas subsequentes, e em seguida salvar como pdf. segue exemplo de codigo abaixo que exporta os dados do listview, para as celulas em seguida exporta para pdf.

Segue abaixo um exemplo da 1ª duvida: Bom eu não entendi direito se voce vai usar um listbox ou um listview. então na duvida estou enviando um exemplo para um listview: Bom eu fiz algumas alterações em cima do que voce passou, mas ainda precisa de algumas alteracoes nos nomes dos campos do BD. Abx.

Olá Rafael seja bem vindo. Vou começar de traz pra frente, 1º a 2ª dúvida, Cole em um modulo, em seguida execute a sub testeprint:

Tente desta forma: sql = "SELECT ALUNO, RA, RM, NASCIMENTO FROM turmas WHERE TIPO=4 and TERMO='" & txbRM.Text & "'"

Se puder ser com macro segue a opcao: ao digitar na celula(a3) e Enter, vai p/ celula(B5),ao digitar na celula(b5) e Enter, vai p/ celula(c5), ao digitar na celula(C5) e Enter, vai p/ celula(B8).Cole o codigo abaixo no modulo da respectiva planilha(aba) Por ex. se celulas em ref. forem na plan1, cole no modulo da plan1.