mrfg2000

Obrigado Amigo patropi pela ajuda mas não consegui fazer funcionar não ... Agradeço disposição em ajudar-me. Abraços. No aguardo de uma outra Solução...

Olá respeitados amigos Preciso de uma ajuda de vocês para resolver um problema No excel: na primeira planilha (Plan1) em A1 tenho o valor B em B1 tenho o valor 10 em c1 preciso de uma formula quero saber o seguinte ... como faço uma formulá que pegue esses valores e transforme em endereço para buscar dados em outra plan (Plan2) exemplo da lógica q preciso da formulá Preciso saber na segunda planiha (Plan2) na coluna B linha 10 qual o valor q esta lá ou seja = plan2!B10 se fosse fazer digitando em c1 a formulá seria essa ai ao lado. mas como faço para concatenar os valores de a1 e b1 para transformar em formulá, estou tentando fazer ="Plan2!"&A1&B1 mas não dá certo ... poderia me ajudar nessa. antecipo agradecimentos ao meus amigos deste forum. obs: não pode ser código VBA esse eu sei. precisa ser formula.

Olá amigo Paulo Semblano ... check-mate Muito obrigado pela sua ajuda .. era exatamento isso que esta procurando fazer .. Com os exemplos do link ficou ainda mais fácil para entender ... valeu mesmo . mfrigerio.

Olá amigo entre na propriedades do listbox campo ColumnWidths e menciome os valores para cada coluna Exemplo coluna 1 80 pt Exemplo Coluna 2 250 pt ficaria assim: 80 pt;250 pt espero ter ajudado.

boa tarde amigos poderiam ajudar-me por favor tenho uma planilha de vendas onde na coluna "A" contem códigos de diversos clientes: 1,2,3,4,5,6,7,8,9,10 na coluna "B" tenho o numero dos Produtos que esses clientes compraram: 1,2,3,4,5,6 Em uma userform tenho um Textbox1 o qual irei mencionar o código do Produto também tenho um combobox (neste combobox eu gostaria que fosse Carregado apenas os clientes que compraram o Produto com o codigo que esta em Textbox1, Porem sem duplicar os clientes) pois um cliente poderá ter comprado varias vezes esse produto só que em datas diversas. colunas A B clientes Produtos 1 1 2 3 1 1 4 1 1 5 2 1 6 1 observe o cliente 1 comprou varias vezes o produto (1) , então ele irá aparecer no combobox1 apenas uma vez o resultado do combobox seria Textbox1.value = 1 combobox1.value = 1,4,2,6 Sem mais agradeço a todos amigos desta comunidade. mfrigerio - abraços :D

Gostaria de Fazer uma pergunta para ao meus amigos deste forum. È possível escrever no corpo de um e-mail (Outlook) ok ... eu consigo fazer isso com facilidade Mas a questão é o seguinte .. é possível alterar a Fonte ou Tamanho , ou a cor dessa Escrita via VBA ??? segue abaixo o código para exemplificar Sub Mail_small_Text_Outlook() Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) ' >>>>>> a dúvida começa aqui na linha abaixo <<<<<<<<<<<<<<<< strbody = "olá amigos" & vbNewLine & vbNewLine & _ "é aqui que estou" & vbNewLine & _ "tentando mudar" & vbNewLine & _ "a fonte , ou o tamanho" & vbNewLine & _ "ou a cor deste texto escrito no corpo do e-mail" On Error Resume Next With OutMail .To = "jose@fino.com" .CC = "" .BCC = "" .Subject = "Teste mrfg2000" .Body = strbody .Display 'or use .Send End With On Error GoTo 0 Set OutMail = Nothing Set OutApp = Nothing End Sub sem mais antecipo cordial agradecimentos a todos amigos.

ok .. deu certo ... muito obrigado

olá amigos .. gostaria de saber se é possivel impedir a impressão de um arquivo no excel, ou seja tenho um formulario de cadastro feito em excel , se os campos obrigatorios de preencher não estiverem devidamente preenchidos , então ele cancela o botao de impressão , ou não deixa imprimir .. tentei fazer isso Private Sub Workbook_BeforePrint(Cancel As Boolean) If Range("N5").Value = "" Then MsgBox "Campo Nome cliente é Obrigatório Preenchimento" GoTo FINAL End If Final: ' gostaria de colocar aqui o código para cancelar a impressão... não imprimir nada se a celular n5 não for preenchida... end sub antecipo agradeçimentos a todos amigos. B)

Olá amigos. :rolleyes: Alguém conhece algum código em VBA que eu possa estar identificando qual outlook a pessoas esta usando para envio de e-mail , se é Oultlook ou Oultlook Express? Antecipo agradecimentos .

ok . agradeço pela ajuda ... deu certinho.

Olá amigos Estou tentando Validar se uma planilha esta protegida ou não ... mas o argumento que estou usando não esta dando certo. A lógica é a seguinte ... se a Guia (Sheets) ativa estiver Protegida então faça isso , caso contrario aquilo. Tentei usar Sub Validar() If activesheet.protect = true then faça isso ......... else faça aquilo ..... end if end sub Mas não esta dando certo .... Antecipo agradecimentos a todos ... aproveitanto para mandar um forte abraço a todos amigos. essa site é excelente ....

Olá galera! Agradeço por lerem este post. Preciso de uma rotina para carregar uma lista de nomes em um Listbox, que encontra-se entre A2 até A65000. obs: Neste Range tem alguns nomes repetidos que não poderão ser inclusos no Listbox, caso já tenha o mesmo. a lógica seria essa: A) verifica na lista se o nome já foi incluso no listbox , se ainda não foi, incluir , se já foi , pular para proximo nome. Para fazer este teste, coloque um Listbox em um userform. Tentei o código conforme abaixo descrito, mas não consigo. poderia me ajudar AMIGOS . Private Sub UserForm_initialize() Dim cel_inicio As String, cel_final As String Dim lihas As Integer Dim controle As Boolean cel_inicio = "A2" cel_final = "A65000" Set inicio = Range(cel_inicio) Set Final = Range(cel_final) With Me.ListBox1 While inicio.Row < Final.Row linhas = Me.ListBox1.ListCount For i = 0 To linhas - 1 If linhas > 0 Then Me.ListBox1.Selected (i) Else If inicio.Value = Me.ListBox1.ListIndex Then 'Se o nome foi achado em alguma posição do listbox, a variável 'controle vai para TRUE (ela será utilizada abaixo para controle) controle = True Exit For End If End If Next If controle = False Then .AddItem inicio.Value Set inicio = inicio.Offset(1, 0) Else controle = False Set inicio = inicio.Offset(1, 0) End If Wend End With End Sub

Problemas já resolvido ... agradeço de antemão pela ajuda e disposição de todos em ajudar é que tenho um arquivo no excell chamado pessoal.xls toda vez que abro o excell ele abre junto ... e quanto mandava buscar no workbooks(1) ele buscava neste arquivo pessoal e não no arquivo2 que gostaria, então passei a declarar o nome do arquivo workbooks("planilha2") e o mesmo passou a buscar corretamente mas valeu obrigado a todos, um forte abraço.

Olá amigos :rolleyes: , abaixo segue uma macro que estou montando para pegar codigos na plan1 do arquivo1 e procurar ele não plan1 do arquivo2. mas esta dando o seguinte erro "erro em tempo de execução '9' subscript fora do intervalo nas seguinte linha. Set codigochapa = Workbooks(1).Sheets("TR").Range("A1:A300").Find(procurar, , , xlWhole) alguém poderia ajudar-me esse enigma ? :wacko: Sub Atualizar() With Application .ScreenUpdating = False .DisplayAlerts = False End With Dim ca As String ca = ActiveCell.Column For Each a In Range("A4:A300") procurar = Int(a.Offset(0, 0).Value & a.Offset(0, 1).Value) If procurar = "" Then Else Set codigochapa = Workbooks(1).Sheets("TR").Range("A1:A300").Find(procurar, , , xlWhole) If codigochapa Is Nothing Then Else If codigochapa.Offset(0, 13).Value = "0" Then a.Offset(0, ca - 1).Value = "" Else a.Offset(0, ca - 1).Value = codigochapa.Offset(0, 13).Value End If End If End If Next With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub Antecipo cordial agradecimento a TODOS.

Olá amigos. Estou tentando localizar o nome de um gráfico poderiam me dar uma maõzinha Tenho 31 guias em um arguivo Cada guia tem um gráfico diferente com o nome diferente. Gostaria de saber quando acessar a guia 01 , qual é o nome do grafico existente nessa guia quando acessar a quia 02, qual é o nome do grafico existente nessa guia e assim por diante Obs:apenas tenho 01 grafico por guia poderiam me ajudar ??? antecipo agradecimentos mfrigerio :rolleyes: