Pesquisar na Comunidade

Bom Dia Pessoal! Sou novo por aqui e decidi recorrer ao fórum porque já tentei usar todos os meus conhecimentos para resolver um pequeno problema aqui e não consegui... Estou com uma planilha no excel fazendo uso de VBA para controle de estoque, o problema é o seguinte: Tenho 1 aba para fazer entrada ou saída de produtos Tenho outra aba para ver o controle desse estoque A idéia é, quando a operação for uma entrada, ele pegar a quandtidade do produto que está entrando e acrescentar ao campo entradas na aba de controle de estoque, e caso seja uma saída, fazer o mesmo para o campo saída... Seguem alguns prints das 2 abas: O grande problema eu creio que está no uso da propriedade Offset, responsável por fazer saltos entre linhas e colunas. Uso o Ofsset pois ao fazer uma entrada ou saída de produto, preciso localizá-lo na tabela presente na aba relatórios para poder atualizar o valor de entrada/saída na mesma, faço uma busca na tabela recorrendo a uma função, que me devolve o endereço da célula encontrada, no caso o produto que vai ser a entrada/saída, após isso uso o offset para saltar uma ou duas colunas a partir do endereço retornado pela busca, caso seja uma entrada salta uma coluna caso contrario salta duas, e atualiza o campo somando a quantidade do produto que entra/sai.... segue o código que estou utilizando tanto para busca quanto para afetar os campos da tabela contida na aba Relatórios: Código Principal: Public Sub lsIncluirLancamento() Dim lUltimaLinhaAtiva As Long Dim endereco As String Dim valor As String Dim total As String lUltimaLinhaAtiva = Worksheets("Registro de Inventário").Cells(Worksheets("Registro de Inventário").Rows.Count, 1).End(xlUp).Row + 1 'Produto Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 1).Value = Worksheets("Entrada e Saída").Range("C4").Value 'Tipo movimento If (Worksheets("Entrada e Saída").Range("C10").Value = "Entrada") Then Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 2).Value = "E" endereco = PROCURAENDERECO(Sheets("Relatórios").Range("A1:L999"), Sheets("Entrada e Saída").Range("C5").Value) ' valor = Sheets("Relatórios").Range(endereco).Offset(0, 1).Value total = valor + Sheets("Entrada e Saída").Range("C12").Value Sheets("Entrada e Saída").Range("B20").Value = total Sheets("Relatórios").Range(endereco).Offset(0, 1).Value = Sheets("Entrada e Saída").Range("B20").Value Else Worksheets("Registro de Inventário").Cells(lUltimaLinhaAtiva, 2).Value = "S" Sheets("Entrada e Saída").Range("B20").Value = PROCURAENDERECO(Sheets("Relatórios").Range("A1:L999"), Sheets("Entrada e Saída").Range("C5").Value) ' End If Função de Busca: Function PROCURAENDERECO(ByVal Area As Range, ByVal Valor_Procurado As String) If Not Area.Find(Valor_Procurado) Is Nothing Then PROCURAENDERECO = Area.Find(Valor_Procurado).Address(0, 0) Else PROCURAENDERECO = CVErr(xlErrNA) End If End Function Quem puder e conseguir dar uma ajuda seria de extrema ajuda... Valeu!

Bom dia Pessoal, estou com um probleminha aqui que não estou conseguindo resolver. Uso o TAdvStringGrid da TMS e em consequência utilizo o TAdvGridExcelIO para exportar tudo para excel, mas estou com um problema que tenho uma analise com várias linhas e ao exportar está dando esse erro : List index out of bounds (65536) Creio que esteja estourando as linhas, mas como posso resolver ?

Olá a todos amigos deste maravilhoso fórum , bom vim aqui me lamentar para vocês, porque eu não sei quase nada sobre VBA Excel , por sinal e uma linguagem que eu tenho que aprender muito , porque na empresa em qual eu trabalho , quero me destacar entre todos os funcionários que só sabem mexer no básico do Excel. Bom eu ainda sou bem jovem, 17, rs.. :) Eu montei uma planilha juntamente com meu chefe para a gente ter um controle, mais detalhado das ROs que chegam para a gente.Uma RO , e um registro de ocorrencia, em cada RO existe um numero pra ela, nada D+, bom o que eu queria era , que meu UserForm1 pega-se os dados que estão numa Planilha e retorna-se os valores que eu inseri o numero do RO e clica-se em algum botão de pesquisa e ele já me retonase o valor em Text Box.. Sei que e fácil porem eu sou lerdo no assunto ainda, alguém poderia me ajudar? Vamos lá, eu já fiz um UserForm: Eu queria que quando eu coloca-se determinado numero de RO nesta TextBox e clica-se em PESQUISAR, ele me retorna-se o resto dos campos: Esse Planilha minha possui 11 Colunas. Alguém poderia me ajudar? Poderia fazer um código para mim , e me dizer apenas o que tenho que alterar ? Ficaria eternamente grato, e se precisar de mim estarei disponível. Sou Designer Gráfico e DJ !

Quando importo os dados do .csv o arquivo vem com lixo e as vezes uma linha vem com as colunas V à Y deslocadas para as colunas Z à AC. Gostaria de fazer um VBA que verifica a coluna Z e caso tenha valor, mover o valor das colunas Z à AC para as colunas V à Y. Tudo isso na mesma linha. Então tenho que verificar a coluna Z, guarda o numero da linha em que contem valor em Z (o restante da coluna geralmente esta em branco) e seleciona as celulas da linha guardada com as colunas Z(linha) à AC(linha) e copie para as colunas V(linha) à Y(linha). Não estou conseguindo fazer esta verificação e guardar o valor da linha. Muito obrigado pela atenção.

Pessoal, segue um passo-a-passo bem bacana de como montar um jogo de datilografia com VBA. https://www.youtube.com/watch?v=6Jn9riivo0U Grande abraço.

Pessoal! Estou com uma duvida, preciso criar um programa que leia o nome digitado e imprima o micro correspondente, segundo a tebalea do excel. A tebela no excel é simples, como no exemplo abaixo: Usuario; Micro Felipe; PC-001 Natalia; PC-002 Porém não consigo achar algum comando que faça o DevC++ ler a tabela do MS Excel. Se alguém puder me ajudar, agradeço!

Boa tarde galerinha! É o seguinte estou utilizando um código na textbox neste formato: Private Sub txt_id_AfterUpdate() Dim Linha As Long Dim id As Long 'mudar para string se o id tiver letras ou símbolos If Val(Me.txt_id) = 0 Then Exit Sub End If Plan1.Activate Linha = 2 id = txt_id Do Until Cells(Linha, 1) = "" 'vai executar o laço até encontrar uma célula vazia 'Condição para localizar o registro If Cells(Linha, 1) = id Then 'se encontrar o valor registro na célula pesquisada opt_funcionario = Cells(Linha, 2) opt_exfuncionario = Cells(Linha, 3) opt_ativo = Cells(Linha, 4) opt_inativo = Cells(Linha, 5) txt_razao = Cells(Linha, 6) txt_endereço1 = Cells(Linha, 7) txt_bairro01 = Cells(Linha, 8) txt_complemento = Cells(Linha, 9) cmb_cidade01 = Cells(Linha, 10) txt_cep01 = Cells(Linha, 11) cmb_uf01 = Cells(Linha, 12) Exit Sub 'interrompe o código quando encontrar o código e preencher os dados End If Linha = Linha + 1 Loop End Sub Eu preciso que esse campo aceite somente números sendo que eu não posso mudar o private pois o id digitado nessa textbox ao pressionar enter ele irá busca os dados do usuário na planilha e preencher os campos corretos. Alguém pode me ajudar?

Boa tarde, Por favor, vocês poderiam me ajudar? Sou um novo usuário de Excel e criei um macro que copia algumas colunas de uma tabela ("formatea file de nemag e mastersoft_2014_06.xlsm") e cola em uma outra ("br_kpis_jan_2015_salvo_automaticamente.xlsx"). Depois de ter gravado o macro, mandei rodar e deu certo. Porém, quando fechei minhas planilhas e abri de novo, aparecia o seguinte erro: "Erro de tempo de execução '9': Subscrito fora do intervalo" Eu já alterei os nomes das planilhas para tudo minúsculo e tirei os acentos, mas ainda não obtive êxito. Vocês sabem o que pode ter dado errado? O código é esse: " Sub SUBSTITUICAO() ' ' SUBSTITUICAO Macro ' Este macro substitui os valores de todas as colunas sem formula. ' ' Atalho do teclado: Ctrl+u ' Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate ActiveWindow.ScrollColumn = 83 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 74 ActiveWindow.ScrollColumn = 72 ActiveWindow.ScrollColumn = 68 ActiveWindow.ScrollColumn = 66 ActiveWindow.ScrollColumn = 62 ActiveWindow.ScrollColumn = 61 ActiveWindow.ScrollColumn = 58 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 54 ActiveWindow.ScrollColumn = 44 ActiveWindow.ScrollColumn = 39 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 37 ActiveWindow.ScrollColumn = 36 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 34 ActiveWindow.ScrollColumn = 33 ActiveWindow.ScrollColumn = 32 ActiveWindow.ScrollColumn = 31 ActiveWindow.ScrollColumn = 30 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 28 ActiveWindow.ScrollColumn = 27 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 25 ActiveWindow.ScrollColumn = 24 ActiveWindow.ScrollColumn = 23 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 20 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 18 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 16 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 13 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 11 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 ActiveWindow.LargeScroll Down:=-1 ActiveWindow.ScrollRow = 300 ActiveWindow.ScrollRow = 292 ActiveWindow.ScrollRow = 245 ActiveWindow.ScrollRow = 167 ActiveWindow.ScrollRow = 128 ActiveWindow.ScrollRow = 88 ActiveWindow.ScrollRow = 73 ActiveWindow.ScrollRow = 57 ActiveWindow.ScrollRow = 49 ActiveWindow.ScrollRow = 33 ActiveWindow.ScrollRow = 18 ActiveWindow.ScrollRow = 2 Range("A1").Select Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select ActiveWindow.ScrollColumn = 83 ActiveWindow.ScrollColumn = 82 ActiveWindow.ScrollColumn = 81 ActiveWindow.ScrollColumn = 79 ActiveWindow.ScrollColumn = 77 ActiveWindow.ScrollColumn = 75 ActiveWindow.ScrollColumn = 73 ActiveWindow.ScrollColumn = 71 ActiveWindow.ScrollColumn = 67 ActiveWindow.ScrollColumn = 64 ActiveWindow.ScrollColumn = 62 ActiveWindow.ScrollColumn = 58 ActiveWindow.ScrollColumn = 56 ActiveWindow.ScrollColumn = 53 ActiveWindow.ScrollColumn = 51 ActiveWindow.ScrollColumn = 48 ActiveWindow.ScrollColumn = 46 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 42 ActiveWindow.ScrollColumn = 41 ActiveWindow.ScrollColumn = 39 ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 37 ActiveWindow.ScrollColumn = 36 ActiveWindow.ScrollColumn = 35 ActiveWindow.ScrollColumn = 34 ActiveWindow.ScrollColumn = 33 ActiveWindow.ScrollColumn = 32 ActiveWindow.ScrollColumn = 31 ActiveWindow.ScrollColumn = 30 ActiveWindow.ScrollColumn = 29 ActiveWindow.ScrollColumn = 28 ActiveWindow.ScrollColumn = 27 ActiveWindow.ScrollColumn = 26 ActiveWindow.ScrollColumn = 25 ActiveWindow.ScrollColumn = 24 ActiveWindow.ScrollColumn = 23 ActiveWindow.ScrollColumn = 22 ActiveWindow.ScrollColumn = 21 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 18 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 16 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 11 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 3730 ActiveWindow.ScrollRow = 3722 ActiveWindow.ScrollRow = 3667 ActiveWindow.ScrollRow = 3620 ActiveWindow.ScrollRow = 3534 ActiveWindow.ScrollRow = 3471 ActiveWindow.ScrollRow = 3369 ActiveWindow.ScrollRow = 3298 ActiveWindow.ScrollRow = 3196 ActiveWindow.ScrollRow = 3094 ActiveWindow.ScrollRow = 2992 ActiveWindow.ScrollRow = 2906 ActiveWindow.ScrollRow = 2812 ActiveWindow.ScrollRow = 2718 ActiveWindow.ScrollRow = 2600 ActiveWindow.ScrollRow = 2514 ActiveWindow.ScrollRow = 2396 ActiveWindow.ScrollRow = 2262 ActiveWindow.ScrollRow = 2137 ActiveWindow.ScrollRow = 2058 ActiveWindow.ScrollRow = 1948 ActiveWindow.ScrollRow = 1815 ActiveWindow.ScrollRow = 1713 ActiveWindow.ScrollRow = 1635 ActiveWindow.ScrollRow = 1580 ActiveWindow.ScrollRow = 1517 ActiveWindow.ScrollRow = 1454 ActiveWindow.ScrollRow = 1399 ActiveWindow.ScrollRow = 1360 ActiveWindow.ScrollRow = 1313 ActiveWindow.ScrollRow = 1273 ActiveWindow.ScrollRow = 1242 ActiveWindow.ScrollRow = 1219 ActiveWindow.ScrollRow = 1179 ActiveWindow.ScrollRow = 1140 ActiveWindow.ScrollRow = 1109 ActiveWindow.ScrollRow = 1077 ActiveWindow.ScrollRow = 1038 ActiveWindow.ScrollRow = 999 ActiveWindow.ScrollRow = 960 ActiveWindow.ScrollRow = 873 ActiveWindow.ScrollRow = 826 ActiveWindow.ScrollRow = 787 ActiveWindow.ScrollRow = 748 ActiveWindow.ScrollRow = 701 ActiveWindow.ScrollRow = 653 ActiveWindow.ScrollRow = 606 ActiveWindow.ScrollRow = 575 ActiveWindow.ScrollRow = 544 ActiveWindow.ScrollRow = 512 ActiveWindow.ScrollRow = 489 ActiveWindow.ScrollRow = 465 ActiveWindow.ScrollRow = 449 ActiveWindow.ScrollRow = 426 ActiveWindow.ScrollRow = 418 ActiveWindow.ScrollRow = 402 ActiveWindow.ScrollRow = 387 ActiveWindow.ScrollRow = 379 ActiveWindow.ScrollRow = 371 ActiveWindow.ScrollRow = 363 ActiveWindow.ScrollRow = 355 ActiveWindow.ScrollRow = 332 ActiveWindow.ScrollRow = 261 ActiveWindow.ScrollRow = 167 ActiveWindow.ScrollRow = 104 ActiveWindow.ScrollRow = 26 ActiveWindow.ScrollRow = 2 Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Application.CutCopyMode = False Selection.Copy Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate ActiveWindow.SmallScroll Down:=-9 Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate ActiveWindow.ScrollColumn = 83 ActiveWindow.ScrollColumn = 82 ActiveWindow.ScrollColumn = 80 ActiveWindow.ScrollColumn = 79 ActiveWindow.ScrollColumn = 76 ActiveWindow.ScrollColumn = 72 ActiveWindow.ScrollColumn = 69 ActiveWindow.ScrollColumn = 64 ActiveWindow.ScrollColumn = 59 ActiveWindow.ScrollColumn = 54 ActiveWindow.ScrollColumn = 42 ActiveWindow.ScrollColumn = 25 ActiveWindow.ScrollColumn = 17 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 11 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 324 ActiveWindow.ScrollRow = 316 ActiveWindow.ScrollRow = 269 ActiveWindow.ScrollRow = 135 ActiveWindow.ScrollRow = 26 ActiveWindow.ScrollRow = 2 Columns("A:Y").Select Application.CutCopyMode = False Selection.Copy Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AI1").Select Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate Columns("AA:AO").Select Application.CutCopyMode = False Selection.Copy Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate Range("AA1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("AQ1").Select Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate Columns("AQ:BC").Select Application.CutCopyMode = False Selection.Copy Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ActiveWindow.ScrollColumn = 38 ActiveWindow.ScrollColumn = 39 ActiveWindow.ScrollColumn = 40 ActiveWindow.ScrollColumn = 41 ActiveWindow.ScrollColumn = 42 ActiveWindow.ScrollColumn = 43 ActiveWindow.ScrollColumn = 44 ActiveWindow.ScrollColumn = 45 ActiveWindow.ScrollColumn = 46 ActiveWindow.ScrollColumn = 47 ActiveWindow.ScrollColumn = 48 ActiveWindow.ScrollColumn = 49 ActiveWindow.ScrollColumn = 50 ActiveWindow.ScrollColumn = 51 ActiveWindow.ScrollColumn = 52 Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate Columns("BE:CY").Select Application.CutCopyMode = False Selection.Copy Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate Range("BE1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False End Sub " Agradeço desde já.

Ola pessoal, preciso da vossa ajuda por favor. Preciso de evoluir o seguinte codigo para fazer a concatenação de dados de certa forma. Tenho uma pasta com fotos de produtos, (varias fotos para cada produto) e pretendo que o excel faça uma busca pelo nome das fotos e escreva os nomes das fotos referentes a cada produto numa celula e separados por virgula. O nome das fotos é o mesmo que a referencia do produto e caso o produto tenha mais de uma foto o nome é diferenciado por uma letra do alfabeto no fim do nome antes do ponto e da extenção. Outra questão é que para cada produto as fotos podem ter diferentes extensões ou seja, pode ter JPG e/ou PNG e/ou JPEG. No total podem existir 1000, 2000, 3000 fotos ou mais na pasta e para cada produto podem existir 1 ou 2 ou 3 ou 15, etc. fotos Vamos aos exemplos: FOTOS do produto ac2345 ac2345.png ac2345a.jpg ac2345b.png FOTOS do produto 106 106.jpeg 106a.jpg 106b.jpg 106c.jpg 106d.jpg FOTOS do produto 023198AA 023198AA.png 023198AAa.png 023198AAb.jpg ETC. O codigo que apresento faz a busca de todos os ficheiros existentes em uma pasta e escreve os nomes dos ficheiros numa planilha mas escreve cada nome numa celula em separado e todos na coluna A. Exemplo: ac2345.png ac2345a.jpg ac2345b.png 106.jpeg 106a.jpg 106b.jpg 106c.jpg 106d.jpg 023198AA.png 023198AAa.png 023198AAb.jpg ETC. O que eu preciso é que na mesma celula fiquem os nomes referentes a cada produto separados por virgula. Exemplo: Celula A1 = ac2345.png, ac2345a.jpg, ac2345b.png Celula A2 = 106.jpeg, 106a.jpg, 106b.jpg, 106c.jpg, 106d.jpg Celula A3 = 023198AA.png, 023198AAa.png, 023198AAb.jpg Eis o codigo que tenho: ------------------------------------------------------------------------------------------------------------------------------------------------ Sub GetJPGandPNGandJPEG() Dim X As Long, LastDot As Long, Path As String, FileName As String, F(0 To 9) As String Path = "C:\teste\" FileName = Dir(Path & "*.*p*g") Do While Len(FileName) LastDot = InStrRev(FileName, ".") If LCase(Mid(FileName, LastDot)) = ".jpg" Or LCase(Mid(FileName, LastDot)) = ".png" Or LCase(Mid(FileName, LastDot)) = ".jpeg" Then If Left(FileName, 1) Like "#" Then F(Left(FileName, 1)) = F(Left(FileName, 1)) & ", " & FileName End If End If FileName = Dir Loop For X = 0 To 9 Cells(X + 1, "A").Value = Mid(F(X), 3) Next Range("A1:A10").SpecialCells(xlBlanks).Delete End Sub -------------------------------------------------------------------------------------------------------------------------------------------------------- Será que alguém me pode ajudar? Agradeço desde já a todos. Obrigado

Olá. Gostaria de saber como posso chamar uma macro ao atualizar uma célula a partir de outra célula. Já tentei o evento change, mas ele não reconhece a mudança do valor da célula, se não for alterada manualmente. Tentei o evento calculate, mas está gerando um loop. Não sei o porque. Que código eu poderia utilizar para executar uma macro quando uma célula for atualizada por uma função? Obrigado.

Bom dia. Estou desenvolvendo um trabalho na faculdade e me deparei com uma dúvida muito grande. Gostaria de saber como faço pra linkar um botão de comando (comandbutton) para uma página dentro de uma multipage. Aguardo respostas e desde já agradeço.

Olá pessoal, tudo bem? Estou fazendo uma planilha onde necessito inserir os nomes das pessoas e as datas nas quais seus treinamentos irão vencer, quando estiver faltando "x" dias, quero que o excel gere uma mensagem dizendo qual pessoa, qual treinamento e quando irá vencer. Caso alguém possa me ajudar, Obrigado.

Olá Pessoal, É o meu primeiro post aqui. Estou com uma dúvida. Temos que pegar alguns emails e coloca-los salvos em uma pasta na rede. A planilha acesse esse diretório e verifica se os e-mail foram colocados lá. Isso ela consegue fazer, mas estou querendo que a Macro identifique o arquivo de email e retorne para minha planilha a data de envio que o e-mail foi realizada. Será que tem como? Agradeço a ajuda!

bom e o seguinte eu tenho de Excel/Vba que eu faço tabelas de futebol (simuladores) e tipo eu queria que eu tivesse uma tabela no meu PC que tivesse ligada ao meu site e as pessoas que Baixaram (Ilustração Abaixo, OBS: Fiz no paint por isso ficou uma porcaria) tipo assim a tabela esta atualizada ate a 10ª Rodada e já esta na 20ª, ai eu atualizo os jogos na tabela do meu PC, ela automaticamente atualiza a que esta no site, e todos que baixaram automaticamente também têm ela atualizada. OBS: Se tiver como explicar o máximo detalhadamente e explicativa seria uma boa, pois não manjo de HTML e só um pouco de VBA.

Solução em biometria facial para desenvolvedor delphi7 ,Vb.Net e Access VBA Khronos Tecnologia - Software/Aplicativo e consultoria em desenvolvimento biométrico Saiba mais em http://geovanny-oliveira16.wix.com/khronostecnologia Skype:Giovanny0113

Olá. Detalhe: esse mesmo erro ocorre num de nossos clientes, porém o office é o 2010 e a tela de configuração não é o caso. Meu problema é que ao tentar exportar um relatório através do VB6 para o excel 2013 uma tela do office, de download, aparece para baixar umas configurações. Isso faz com que ao voltar para a tela de exportação aparece a seguinte mensagem: "This action cannot be completed because the other application is busy. Choose 'Switch To' to activate the busy application and correct the problem." O fato é que este processo de configuração não é feito uma primeira vez, mas sempre... alguém conhece a razão disso. Nas outras versões do excel não ocorre nenhum contra tempo. pelo menos até a 2010 que é outra versão que temos para testar. att' Alexandre

Olá a todos! Tenho um user form que no procedimento "initialize" carrega algumas informações do access e se não retornar ao menos um registro fecha o formulário usando "unload Me". O problema que depois de fechar o formulário eu uso "exit sub" pois logo abaixo tem os tratamentos de erros. Quando o copilador (não sei se é assim que chama) chega no comando "Exit Sub" ocorre o seguinte erro: Erro em tempo de execução '91': A variável do objeto ou variável do bloco 'With' não foi definida Observação: Mesmo não usando Exit Sub, o erro ocorre no End Sub; Minha sub tem que ser finalizada em algum momento, certo? Então o que faço para contornar isso? Segue o trecho do código: 'Verifica se há registros If consulta.EOF Then Do While Not consulta.EOF Me.CboCurso.AddItem (consulta("nome")) 'Move para o próximo registro consulta.MoveNext Loop Else 'Exibe mensagem msg = MsgBox("Não existe cursos cadastrados! Quer cadastrar?.", vbQuestion + vbYesNo, "Atenção!") 'Abrir formulário AdmCursos 'If msg = vbYes Then FrmAdmCursos.Show 'Fecha conexão Call Desconecta 'Fecha o form Unload Me End If 'Encerra a sub Exit Sub '****TRATAMENTOS DE ERROS*** '... End sub Quem puder ajudar agradeço desde já!

Bom e o seguinte eu tenho de Excel/Vba que eu faço tabelas de futebol (simuladores) e tipo eu queria que eu tivesse uma tabela no meu PC que tivesse ligada ao meu site e as pessoas que Baixaram (Ilustração Abaixo, OBS: Fiz no paint por isso ficou uma porcaria) tipo assim a tabela esta atualizada ate a 10ª Rodada e já esta na 20ª, ai eu atualizo os jogos na tabela do meu PC, ela automaticamente atualiza a que esta no site, e todos que baixaram automaticamente também têm ela atualizada. OBS: Se tiver como explicar o máximo detalhadamente e explicativa seria uma boa, pois não manjo de HTML e só um pouco de VBA.

Olá a todos! Bem, eu tenho várias textbox, e dependendo do valor da célula R2, R3 e/ou suas subsequentes, eu vou preencher as textbox com determinadas cores. Se for 1, vai ser com a cor azul,se for 2, vai ser com um gradiente e, se for 3 vai ser com verde. Pra preencher com verde e azul eu consegui. Agora eu quero que preencha o gradiente com o azul e o verde, de cima pra baixo. Tá assim o código: Sub preenche() Dim i As Integer Dim y As Integer For y = 2012 To 2014 For i = 1 To 2 'Tabela de valores começa na célula R2 Select Case ActiveSheet.Cells(i + 1, 18).Value Case 1: ActiveSheet.Shapes("GOV_" & y & i).Fill.ForeColor.RGB = RGB(0, 51, 102) Case 2: ActiveSheet.Shapes("GOV_" & y & i).Fill.GradientColorType??? Case 3: ActiveSheet.Shapes("GOV_" & y & i).Fill.ForeColor.RGB = RGB(0, 122, 55) End Select Next i Next y End Sub Então, é isso. Só falta essa parte. Obrigado a todos!

Ola! Senhores estou precisando de uma ajuda, no excel, eu acho que no word não seria tão eficiente, visto que pretendo criar uma planilha e gerar dois gráficos com os dados dessa planilha! Uma coluna são datas (valor que não importa para os gráficos), outra coluna são nomes (esses dados serão associados a um gráfico para gerar uma tabela de incidência) e uma coluna são siglas (essas siglas eu quero que o excel interprete como valor numérico, para usar como soma no outro gráfico sempre que a mesma sigla repetir.) Tem algum método? Eis a questão! Tentei o SOMASE mais ele precisa de um valor numérico e na planilha são apenas textos. Agradeço a atenção!

Bom glr e o seguinte eu quero que quando a celula A1 Por exemplo tenha o valor 1 o Userform 1 apareça, quando tiver 2 o Userfome 2 Apareça, e assim Sucessivamente... Mas eu quero que os Userforms apareçam assim que eu aperte enter ou clique em outra celula

Olá pessoal, preciso de uma ajudinha se possível, pois sou iniciante no Excel. Montei uma planilha de custos e preciso que ao abri-la seja criada uma numeração crescente de forma automática (Ex: 1-2-3-4-5-6...) Encontrei esta macro na internet: Private Sub Workbook_Open() Range("D4").Value = Range("D4").Value + 1 End Sub Porém também preciso que ao clicar em salvar, cada planilha de custo seja gravada em uma pasta específica no computador com nome do arquivo igual ao número gerado pela primeira macro (que no caso está na célula D4). Encontrei esta outra macro para executar a função: Sub salvar() ChDir "C:\" ActiveWorkbook.SaveAs Filename:="C:\Users\Custos" & Range("d4").Value & ".xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False End Sub Até aí tudo bem, ao abrir a planilha o código é gerado automaticamente em ordem crescente, porém só consigo executar a segunda macro (salvar) manualmente clicando em "executar". Gostaria de saber como faço para que as duas macros sejam executadas ao abrir o arquivo, ou seja: abro, gera o código, preencho as informações, clico no botão salvar e pronto, salva o aquivo com o nome certo e na pasta definida. Desculpem se for algo banal, mas como disse sou iniciante e gostaria muito de ajuda. Obrigado!

Opa Galera tudo bem? Montei um Canal no Youtube sobre tutoriais, nesse primeiro momento estou subindo vídeos do Access e do Excel, mas pretendo expandir também para SQL Server, Visual Studio e outros softwares. Youtube: https://www.youtube.com/user/livebraintutoriais/ Facebook:https://www.facebook.com/livebraintutoriais

Bom dia galera Estou com uma duvida numa parte de programaçao Resumindo estou fazendo uma planilha de cadastro de ensaios E tenho um userform que chama o outro No userform1 tenho: Private wsRegister As Worksheet (planilha relativa) Public indexRegister As String (indice relativo por onde atualizo a planilha) Set wsRegister = ThisWorkbook.Worksheets("Database") (por exemplo) E assim trabalho com os arquivos relativo a planilha Database sem problema Porém ao pressionar um botao vou para uma outra userform, a userform2 E eu preciso importar nesta nova userform o valor do indexRegister da userform1 Isto quer dizer trocar de userform porém continua usando exatamente a mesma variavel que esta presente na userform1 Exemplo, na userform2: Private Sub LoadRegisterEnsaios() With wsRegister Me.cboxexemplo.Text = .Cells(indexRegister, colexemplo).Value End with End Sub Porém isto não da certo Sei que é simples porem não consigo avançar mais Obrigado, Gilberto

Olá pessoal, faz algum tempo acompanho as discussões neste fórum, mas só agora faço parte, gostaria apresentar o meu novo projeto www.linkbird.com e saber a sua opinião como SEO experts, nós vamos ao encontro das suas necessidades dentro do mundo do SEO e Link building, o objetivo é fazer a vossa vida mais simples e deixar finalmente o Excel. gostaria de ouvir o seu feedback. Abraço!!!