Basole

@kaleo.rs na sua planilha (aba) cole o codigo: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.OnKey "{RETURN}", "Teste" Application.OnKey "{TAB}", "Teste" End Sub ... e em um modulo: Sub Teste() MsgBox "Isso é um Teste" End Sub

@Ma veja se esta opção com vba lhe atende: Ao alterar alguma informacao na aba "Plan1"-> [coluna C], a macro atualiza os dados e a formacao da aba "Diário de Bordo" TESTE_FORMATAÇÃO-Basole.xlsm

Tente usar outro metodo, por exemplo Adodb.

@Gabriel Pastre Piló "pessoas" seria a Planilha (aba) ou um intervalo, que voce esta tentando acessar? Se for "aba" no excel voce precisa tratar esta "tabela" acrescentando o " $" ficando assim -> [pessoas$]

Segue em anexo com as alteraçoes Verificação de Volume-Basole.xlsm

voce apresentou 2 planilhas ? Em qual aba e em qual planilha voce quer inserir os dados.

@Crafaelbpor favir poste sua planilha ou um modelo

@Luis Gustavo Sangy Miranda isso é simples de se resolver. Acho o mais difícil é entender o que voce quer que a macro faça. Talvez pelo motivo que voce ja esteja envolvido com este assunto (seu trabalho), para as pessoas de 'fora' nao tem ideia do funcionamento da planilha.

Nao entendi poderia ser mais claro. De um exemplo tipo se alterar a coluna x enviar a(as) coluna(s) y

Tambem preparei uma versao com vba. Ao digitar um fornecedor na E15 a macro preencher automaticamente os procutos localizados: Pasta1-Basole-V1.xlsm

@Eloize Teixeira tente desabilitar a 2ª linha, no modulo do userform1 "Public db As ADODB.Connection"

Nao sei como exatamente funciona sua planilha.... mas enfim dee uma olhada neste modelo se pode te ajudar em te dar alguma luz; Google_Map_Excel.zip

Ate da com a utilizacao de um software, mas automaticamente com uso de api talvez encontre algo na net, mas nao sei se vale a pena voce incluir tanta codificação.

Nao entendi o quer dizer como janela windows ?

Teste este codigo, acredito que possa lhe ajudar nesta tarefa e automatizar a impressão do seu form . Copie e cole no userform que deseja imprimir 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:02") 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 fonte: https://goo.gl/wBU6lA

Eu eliminei o Select veja se roda s/ erros ai para voce. Eu havia anexado o arquivo sem a atualizacao. * Agora esta o correto teste_vba-Basole-v2.xlsm

Tente zipar sua planilha e faça o upload novamente, ou use um site gratuito para suibir seu arquivo. Ex. sendspace.com

Qual é a descrição do erro

Bom dia @Ma Um dos erros que esta apresentando aqui pra mim quando pesquisa, esta aqui: .List(y, 10) = ws1.Range("K" & i).Value O motivo é que o Listbox suporta no maximo 10 campos(colunas). Talvez a solucao seria descartar algum campo da planilha que sera mostrado no listbox. Outra opção caso as maquinas que serão rodados esta planilha tenha instalados o "Listview". O Listview nao tem esta limitacao. Segue em anexo com as alteracoes: A pesquisa e a exclusão agora nao estão apresentando erros. teste_vba-Basole.xlsm

@wafa_sapo Tente isso: Acrescente no seu codigo este exemplo: Dim num As Double: num = 1 ActiveSheet.Range("A2").Value = Me.TextBox1.Value * num

@mrmr. segue em anexo veja se e isso q precisa Registro de Inventário-Basole.xlsx

Boa noite, Eu removi a propriedade "Text" do Comobobox "Me.cbostatus" no codigo, era isto que estava gerando o error. Acrescentei tb. uma condicao para que se o listbox estiver vazio ao inserir o double-Click nao gere error: "If Me.ListBox1.ListCount = 0 Then Exit Sub" Eu desabilitei a funcao "fMatch" pois esta funcao estava impedindo a pesquisa por outros campos que nao fosse o Me.txtID. E tb. alterei na funcao Find de XlWhile para XlParts para ter a possibilidade tb. de pesquisar por parte do termo, e nao pelo nome exato. teste-Basole.xlsm

@Maico schroer se pudesse compartilhar sua planilha ou um modelo facilitaria a quem possa lhe ajudar.

@Ma pode ser "n" possibilidades, que esta causando este error. Como disse anteriormente o ideal seria se você compartilhasse sua planilha ou um modelo, facilitaria a quem possa lhe ajudar.

@Ma Coloque uma condicao no evento Double-Clck, para se o listbox estiver vazio a rotina encerra: Isso vai evitar o error que voce citou Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Me.ListBox1.ListCount = 0 Then Exit Sub ' condicao p se estiver vazio o listbox a rotina e encerrada Me.txtID.Text = ListBox1.List(ListBox1.ListIndex, 0) Me.txtDataRecebimento.Text = ListBox1.List(ListBox1.ListIndex, 1) Me.txtExpediente.Text = ListBox1.List(ListBox1.ListIndex, 2) Me.txtDataEntrega.Text = ListBox1.List(ListBox1.ListIndex, 3) Me.txtResponsavel.Text = ListBox1.List(ListBox1.ListIndex, 4) Me.cbostatus = Me.ListBox1.List(ListBox1.ListIndex, 5) End Sub