tag:blogger.com,1999:blog-52792573377467625072023-11-16T05:52:22.244-08:00Ninjas do ExcelUnknownnoreply@blogger.comBlogger62125tag:blogger.com,1999:blog-5279257337746762507.post-61970276596786413582013-09-09T05:46:00.000-07:002013-09-09T05:46:43.083-07:00Pesquisa sobre conhecimento<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMh4dKimnE9wiy_A_qbyUuHOGuhCO4F5Uj5Yp1597K2GVVmHh6BBEMmJfZ1ElV1nMhMXiuRHDvph_SQ0fwHOKuF6HAnKkBa9ZXKxhFi7GHfDyOlJY0FCMOVEPJkHzOLWCquP7aUdl7TRul/s1600/Excel-2013logo.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="200" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgMh4dKimnE9wiy_A_qbyUuHOGuhCO4F5Uj5Yp1597K2GVVmHh6BBEMmJfZ1ElV1nMhMXiuRHDvph_SQ0fwHOKuF6HAnKkBa9ZXKxhFi7GHfDyOlJY0FCMOVEPJkHzOLWCquP7aUdl7TRul/s200/Excel-2013logo.jpg" width="200" /></a></div>
<br />
Pessoal, ajudem a melhorar nossos conteúdos, responda o questinário abaixo, apenas 3 perguntas!<br />
<br />
<a href="http://goo.gl/qYc16q">Pesquisa sobre conhecimento de Excel</a>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-55264278231796480652012-06-16T22:18:00.001-07:002013-07-15T09:32:33.813-07:00Inverte LinksNesta planilha, basta colocar os links invertidos e clicar no botão que os links serão invertidos automaticamente, muito interessante para inverter links em grande quantidade.<br />
<strong>Clique na planilha para baixar</strong><br />
<strong></strong><br />
<a href="http://uploaded.to/file/5qqz81r3" target="_blank" title="Download"><img alt="ninjas.do.excel" border="0" height="98" src="http://lh4.ggpht.com/-DHv29ayfutY/T91otPU2TEI/AAAAAAAABAw/cogF9Hk57Hs/ninjas.do.excel%25255B5%25255D.png?imgmax=800" style="background-image: none; border: 0px; display: block; float: none; margin-left: auto; margin-right: auto; padding-left: 0px; padding-right: 0px; padding-top: 0px;" title="ninjas.do.excel" width="97" /></a>Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-6909661120233229182012-06-10T19:14:00.001-07:002012-06-10T19:14:26.907-07:00Senhas nas abas do Excel<p>Neste modelo colocamos senhas nas abas do Excel, desta forma só acessa determinada aba aquele usuário que possui a senha desta.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p align="center"><a title="Download" href="http://ul.to/cqp0em8c" target="_blank"><img style="display: inline" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh6.ggpht.com/-3_FVCMWzqkI/T9VUge7bb_I/AAAAAAAABAk/_Ql3LVsuQn0/Ninjas%252520do%252520Excel%25255B4%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-90348827195450700362012-06-10T19:11:00.000-07:002012-06-10T19:12:01.616-07:00Consulta com procv via VBA<p>Neste exemplo colocamos um formulário que busca as informações através de procv utilizando código VBA, um bom exemplo para aprendermos mais como utilizar as funções do excel dentro do VBA.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/yy352ca3" target="_blank"><img style="background-image: none; border-bottom: 0px; border-left: 0px; padding-left: 0px; padding-right: 0px; display: block; float: none; margin-left: auto; border-top: 0px; margin-right: auto; border-right: 0px; padding-top: 0px" title="Ninjas do Excel" border="0" alt="Ninjas do Excel" src="http://lh4.ggpht.com/-f86a8irqr14/T9VT8HPesaI/AAAAAAAABAc/mxl9P7ITAYg/Ninjas%252520do%252520Excel%25255B5%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-53922246717209113982012-06-10T19:01:00.001-07:002012-06-10T19:01:38.699-07:00Bloquear projeto VBA<p>Neste modelo, mostraremos como bloquear e desbloquear um projeto VBA utilizando senkeys.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/rvevhrw8" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh5.ggpht.com/--8KA4xsD9mE/T9VRgboi7BI/AAAAAAAABAU/Ou0oaVce9WA/Ninjas%252520do%252520Excel%25255B4%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-82507628929315073502012-06-10T18:56:00.000-07:002012-06-10T18:57:14.717-07:00Cont.valores via VBA<p>Exemplo de como utilizar a função cont.valores em uma planilha através de código VBA.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/cj9ryzqt" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh6.ggpht.com/--TEOJzXdmM0/T9VQeZcHeEI/AAAAAAAABAM/P7B0cPbs20w/Ninjas%252520do%252520Excel%25255B4%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-41126844630839484852012-06-10T18:50:00.000-07:002012-06-10T18:51:15.219-07:00Contar valores únicos<p>Nesta planilha será exibido como utilizar algumas fórmulas em conjunto para identificar valores únicos em uma planilha.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/ll7offl0" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh5.ggpht.com/-iKGigpWG9Y4/T9VPAV9emkI/AAAAAAAABAE/OCXCz5fpaQ0/Ninjas%252520do%252520Excel%25255B4%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-17001050541068261212012-06-10T18:39:00.000-07:002012-06-10T18:41:47.573-07:00Controle Listbox<p>Neste exemplo mostraremos como utilizar o controle listbox, este componente é pouco usado devido ao pouco conhecimento sobre ele, porém é um componente super interessante para utilzar em suas aplicações.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/bjazov5n" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh3.ggpht.com/-YNxhW__nJQQ/T9VM2tDXG3I/AAAAAAAAA_8/EFbRjPMKolU/Ninjas%252520do%252520Excel%25255B4%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-83772549698504469622012-06-10T18:34:00.001-07:002012-06-10T18:34:54.715-07:00Controle de calendário<p>Neste modelo incluiremos um calendário para em campos de data não seja necessário digitar a data, bastando apenas clicar no calendário e escolher a data.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/b3nal9aj" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh3.ggpht.com/-iv7uJUMB-VU/T9VLPdeAWhI/AAAAAAAAA_0/luAN0wlSnUI/Ninjas%252520do%252520Excel%25255B4%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-63819227318444133882012-06-10T18:23:00.001-07:002012-06-10T18:23:51.617-07:00Controle de acesso<p>Neste modelo, mostraremos como utilizar uma planilha para identificar quem está acessando, gravando o usuário da maquina logado.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><a title="Download" href="http://ul.to/4u9ighx6" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh3.ggpht.com/-syI_tcPCzZk/T9VIpv4XfrI/AAAAAAAAA_s/CkWXOZgmCNk/Ninjas%252520do%252520Excel%25255B4%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-87034768353752670822012-06-10T18:18:00.001-07:002012-06-10T18:18:18.100-07:00Escrever por extenso<p>Neste modelo apresentaremos como utilizar fórmulas para exibir os números digitados por extenso.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/8qw3ze1h" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh4.ggpht.com/-CGICjI68WJk/T9VHWcspthI/AAAAAAAAA_k/-GxLEL8QNPU/Ninjas%252520do%252520Excel%25255B4%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-72472864713001474712012-06-10T18:08:00.001-07:002012-06-10T18:08:16.072-07:00Edição no formulário<p>Exemplo de como utilizar um formulário para editar informações continadas na planilha, como uma tela de cadastro e edição de informações.</p> <p><strong>Clique na imagem para download</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/ifrcslv7" target="_blank"><img style="display: inline" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh4.ggpht.com/-aIIgojJBT4Q/T9VE_rLooRI/AAAAAAAAA_c/BcYYE8MCN6o/Ninjas%252520do%252520Excel%25255B5%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-42043422540201395112012-06-10T17:48:00.001-07:002012-06-10T17:48:33.836-07:00Exemplo de array<p>Neste modelo temos a funcionalidade de um array para coletar informações e depois repassar a tabela.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/s9kw6kv7" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh3.ggpht.com/-REUith0IB2U/T9VAYO91H4I/AAAAAAAAA_Q/CSFyBU5TgA8/Ninjas%252520do%252520Excel%25255B6%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-81937755865362141332012-06-10T17:41:00.001-07:002012-06-10T17:41:22.682-07:00Exemplo de Formulário de Cadastro<p>Neste exemplo, faremos uma pequena aplicação para efetuar cadastro de informações na planilha através de um formulário.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/qp5ol5zi" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh3.ggpht.com/-GVPf8oM-ano/T9U-sYOsKxI/AAAAAAAAA_I/otZTe1b2KEc/Ninjas%252520do%252520Excel%25255B5%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-37667674531929076872012-06-10T17:36:00.001-07:002012-06-10T17:36:36.788-07:00Fechando Formulário com a tecla ESC<p>Neste exemplo, será mostrado como se utilizar um código para que ao teclar ESC o formulário seja fechado.</p> <p><strong>Clique na imagem para baixar.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/5ygo8118" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh6.ggpht.com/-RH6v_5V5kBg/T9U9k3ihPfI/AAAAAAAAA_A/Wih8YAUfTUU/Ninjas%252520do%252520Excel%25255B5%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-39464013494938601602012-06-10T17:30:00.001-07:002012-06-10T17:30:13.020-07:00Filtra Listbox<p>Exemplo simples de como podemos utilizar um filtro em listbox, onde ao digitar cada tecla o listbox é redefinido.</p> <p><strong>Clique na imagem para download.</strong></p> <p><strong></strong></p> <p><a title="Download" href="http://ul.to/q1ooqyd3" target="_blank"><img style="display: block; float: none; margin-left: auto; margin-right: auto" title="Ninjas do Excel" alt="Ninjas do Excel" src="http://lh4.ggpht.com/-FpoMT3r4wDw/T9U8E_FLUVI/AAAAAAAAA-4/Bg-JW8WE45I/Ninjas%252520do%252520Excel%25255B5%25255D.png?imgmax=800" width="97" height="97" /></a></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-65733488420272096222012-06-09T23:05:00.000-07:002012-06-09T23:05:53.462-07:00Maiúsculas e Minúsculas<p>Este código faz com que você coloque uma seleção em maiusculas ou minusculas, selecionando um intervalo o código irá transformar tudo em maiusculo ou minusculo.</p> <p> </p> <p><font color="#008000"><strong>Transformar palavras em Maiúsculas</strong></font></p> <p>Sub Maiusculas() <br />    Dim Celula As Range <br />    Dim xSel As Long, x  As Long <br />    xSel = Selection.Count <br />    For Each Celula In Selection <br />        x = x + 1 <br />        Celula.Value = UCase(Celula.Text) <br />    Next <br />End Sub</p> <p> </p> <p><font color="#008000"><strong>Transformar palavras em Minúsculas</strong></font></p> <p>Sub Minusculas() <br />    Dim Celula  As Range <br />    Dim xSel As Long, x  As Long <br />    xSel = Selection.Count <br />    For Each Celula In Selection <br />        x = x + 1 <br />        Celula.Value = LCase(Celula.Text) <br />    Next <br />End Sub</p> <p><strong><font color="#008000"> </font></strong></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-55589980272333807152012-06-09T23:03:00.000-07:002012-06-09T23:03:18.824-07:00Inserindo um menu suspenso<p>Este código faz com que você insira uma macro em um menu suspenso, como quando você clica com o botão direito do mouse no Excel.</p> <p><img style="border-right-width: 0px; display: inline; border-top-width: 0px; border-bottom-width: 0px; border-left-width: 0px" title="Menu Suspenso" border="0" alt="Menu Suspenso" align="left" src="http://lh4.ggpht.com/_TIdqA-WS1u0/SUWEI3O7PrI/AAAAAAAAANM/Pf8L-Q_k1tM/Menu_Suspenso_thumb%5B2%5D.jpg?imgmax=800" width="193" height="244" /> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p> </p> <p>Private Sub Workbook_BeforeClose(Cancel As Boolean) <br />On Error GoTo erro <br />Application.CommandBars("cell").Controls("MENSAGEM").Delete <br />Application.CommandBars("cell").Controls("LIMPAR").Delete </p> <p>Exit Sub <br />erro: </p> <p>End Sub </p> <p>Private Sub Workbook_Open() <br />Dim NewControl As CommandBarControl <br />Dim NewControl2 As CommandBarControl </p> <p>Set NewControl = Application.CommandBars("cell").Controls.Add <br />    With NewControl <br />        .Caption = "MENSAGEM" <br />        .OnAction = "chamar" <br />        .BeginGroup = True <br />        .FaceId = 351 <br />    End With </p> <p>Set NewControl2 = Application.CommandBars("cell").Controls.Add <br />    With NewControl2 <br />        .Caption = "LIMPAR" <br />        .OnAction = "chamar" <br />        .BeginGroup = True <br />        .FaceId = 351 <br />    End With <br />End Sub</p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-21486595248054647882012-06-09T23:01:00.000-07:002012-06-09T23:01:17.134-07:00Inserindo Mascaras de data e hora<p>Este código faz com que ao ser digitado um valor de hora ou data em um textbox seja inserido automaticamente os ":" em caso de hora ou a "/" em caso de data.</p> <p> </p> <p> <br /><strong><font color="#008000">Máscara para Hora</font></strong> <br />TextBox1.MaxLength = 5 <br />If Len(TextBox1) = 2 Then <br />TextBox1.Text = TextBox1.Text & ":" <br />SendKeys "{End}", True <br />End If</p> <p> </p> <p> <br /><strong><font color="#008000">Máscara para Data</font> <br /></strong>TextBox2.MaxLength = 10 <br />If Len(TextBox2) = 2 Then <br />TextBox2.Text = TextBox2.Text & "/" <br />SendKeys "{End}", True <br />End If <br />If Len(TextBox2) = 5 Then <br />TextBox2.Text = TextBox2.Text & "/" <br />SendKeys "{End}", True <br />End If</p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-4464359231630531012012-06-09T22:59:00.000-07:002012-06-09T22:59:41.145-07:00Impedindo fechar o formulário no [X]<p>Este código mostra como fazer com que o formulário não seja fechado pelo ‘X’ e sim por algum botão específicio.</p> <p> </p> <p><font color="#008000">Clique duas vezes no formulário e insira o código abaixo:</font></p> <p> </p> <p>Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) <br />' Evita que o usuário feche a tela no 'x' na tela <br />    If CloseMode = vbFormControlMenu Then <br />        MsgBox "Use o Botão Fechar!!!" <br />Cancel = True <br />    End If <br />End Sub</p> <p> </p> <p><font color="#008000">Para fechar o formulário insira o código abaixo em algum botão.</font></p> <p><font color="#008000"></font></p> <p>Private Sub CommandButton1_Click() <br />Unload UserForm1 <br />End Sub</p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-31831670094266346852012-06-09T22:56:00.000-07:002012-06-09T22:57:48.699-07:00Fechando o userform ao teclar ESC<p>Insira este código dentro o Userform e ao teclar ESC o formulário será fechado.</p> <p> </p> <p>Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) <br />If KeyAscii = 27 Then <br />Unload Me <br />End If </p> <p>End Sub</p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-87882069061280718762012-06-09T22:55:00.000-07:002012-06-09T22:55:44.976-07:00Criando pastas via código VBA<p>Este código irá ensinar como criar uma pasta via código vba.</p> <p> </p> <p><font color="#008000"><strong>Código para criar pastas</strong></font></p> <p>Sub Cria_Pastas() <br />Dim fso, f,f1,f2,f3 <br />   Set fso = CreateObject("Scripting.FileSystemObject") <br />   Set f = fso.CreateFolder("c:\Nome da pasta") <br />   Set f1= fso.CreateFolder("c:\Nome da pasta") <br />   Set f2= fso.CreateFolder("c:\Nome da pasta") <br />   Set f3= fso.CreateFolder("c:\Nome da pasta") <br />   CreateFolderDemo = f.Path <br />   CreateFolderDemo = f1.Path <br />   CreateFolderDemo = f2.Path <br />   CreateFolderDemo = f3.Path <br />End Sub</p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-59941324235977760772012-06-09T22:52:00.000-07:002012-06-09T22:52:58.301-07:00Comando de Busca no Userform<p><font color="#008000">Este código faz uma busca na planilha e retorna o valor ao userform conforme é indicado para planilha onde é necessário fazer buscas em bancos de dados com grande quantidade de informações e também fazer alterações no valor encontrado.</font></p> <p> <br />With Plan1.Range("A:A") <br />Set C = .Find(TextBox1.Value, LookIn:=xlValues, LOOKAT:=xlWhole) <br />If Not C Is Nothing Then <br />TextBox2.Text = C.Offset(0, 1) <br />TextBox3.Text = C.Offset(0, 2) <br />TextBox4.Text = C.Offset(0, 3) <br />TextBox5.Text = C.Offset(0, 4) <br />End If <br />If C Is Nothing Then <br />MsgBox "Nome Não Encontrado!!!" <br />End If <br />End With</p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-15145300106166656222012-06-09T22:49:00.000-07:002012-06-09T22:49:36.820-07:00Carregar caminho do arquivo usando GetOpenFilename<p>O código abaixo mostra como inserir na planilha o caminho completo de um determinado arquivo, como no exemplo abaixo em txt usando o metodo GetOpenFilename que é aquela janela de abrir arquivos do windows.</p> <p> </p> <p><font color="#008000">Insira no módulo ou no formulário o código abaixo:</font></p> <p><font color="#008000"></font></p> <p>Dim QualArquivo <br />QualArquivo = Application.GetOpenFilename("Arquivos de texto (*.txt),*.txt", , "NINJAS DO EXCEL - Escolha o arquivo para Abrir") 'Caixa de Dialogo Abrir <br />Plan1.Range("A1") = QualArquivo</p> <p> </p> <p><font color="#008000">O código acima pode ser usado também para carregar arquivos em xls ou qualquer outra extensão basta mudar para xls onde estiver txt ou a outra extensão que desejar. Ao clicar sobre o arquivo na janela será inserido na Plan1 na célula A1 o caminho completo do arquivo selecionado.</font></p> <p> </p> <p> </p> <p><font color="#008000"></font></p> <p><font color="#008000"> </font></p> Unknownnoreply@blogger.comtag:blogger.com,1999:blog-5279257337746762507.post-24927870711206634602012-06-09T22:47:00.000-07:002012-06-09T22:48:31.334-07:00Abrindo arquivo usando InputBox<p>O código abaixo mostra como abrir um arquivo xls usando uma inputbox.</p> <p> </p> <p><font color="#008000">Insira no formulário ou no módulo o código abaixo:</font></p> <p><font color="#008000"></font></p> <p>Dim Nome As String <br />Sub Nome_da_Macro() <br />Nome = InputBox("Digite o nome", "aviso") <br />' Verifica se campo está em branco <br />If Nome = "" Then <br />Exit Sub <br />End If <br />If Nome <> "" Then <br />    ChDir "C:\Documents and Settings\Usuario\Desktop" <br />Workbooks.Open Filename:=Nome <br />End If <br />End Sub</p> Unknownnoreply@blogger.com