Jump to content
Fórum Script Brasil

Search the Community

Showing results for tags 'Macro'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • Programação & Desenvolvimento
    • ASP
    • PHP
    • .NET
    • Java
    • C, C++
    • Delphi, Kylix
    • Lógica de Programação
    • Mobile
    • Visual Basic
    • Outras Linguagens de Programação
  • WEB
    • HTML, XHTML, CSS
    • Ajax, JavaScript, XML, DOM
    • Editores
  • Arte & Design
    • Corel Draw
    • Fireworks
    • Flash & ActionScript
    • Photoshop
    • Outros Programas de Arte e Design
  • Sistemas Operacionais
    • Microsoft Windows
    • GNU/Linux
    • Outros Sistemas Operacionais
  • Softwares, Hardwares e Redes
    • Microsoft Office
    • Softwares Livres
    • Outros Softwares
    • Hardware
    • Redes
  • Banco de Dados
    • Access
    • MySQL
    • PostgreSQL
    • SQL Server
    • Demais Bancos
  • Segurança e Malwares
    • Segurança
    • Remoção De Malwares
  • Empregos
    • Vagas Efetivas
    • Vagas para Estágios
    • Oportunidades para Freelances
  • Negócios & Oportunidades
    • Classificados & Serviços
    • Eventos
  • Geral
    • Avaliações de Trabalhos
    • Links
    • Outros Assuntos
    • Entretenimento
  • Script Brasil
    • Novidades e Anúncios Script Brasil
    • Mercado Livre / Mercado Sócios
    • Sugestões e Críticas
    • Apresentações

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Joined

  • Start

    End


Group


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype


Location


Interests

  1. Bom Dia A todos, Deixa eu tentar explicar como funciona minha planilha. Segue Imagens. Como faço para que ao INSERIR REGISTRO de uma PLACA que não tem no RELATORIO ele crie. Porém, que ele crie somente quando for adicionado um 2 valor na mesma placa, assim prova ser real a existencia dela. Espero ter deixado claro...rss Obrigado
  2. Boa tarde pessoal! Eu trabalho com distribuição de jornais e precisei criar um pequeno arquivo em Excel VBA para repartir os jornais que recebo do Globo, Dia, Extra, Lance, Expresso, Povo, Voz da serra(Jornal da minha cidade) Meia hora, Valor e por aew vai... Eu fiz esse arquivo Excel e incrementei pesquisando no google e vendo como incluir alguns comandos em fóruns inclusive através deste forum. Eu não sou muito conhecedor de VBA Excel e por isso gostaria de saber se alguém pode ma ajudar. A planilha REPARTE é assim: Nesta planilha acima, cada ponto recebe uma quantidade. Até aí beleza. Criei a planilha outra IMPRIMIR para que tudo que eu distribuir na Planilha REPARTE seja inserido ou modificado na planilha IMPRIMIR dinamicamente. Cheguei num ponto onde preciso imprimir então os romaneios ou comandas que vão junto com os jornais para cada ponto que distribuo e acabo tendo um problema que é o seguinte. Existem pontos que não recebem certos jornais em determinados dias, e essa informação eu não tenho como ficar alterando todo vez que preciso retirar no reparte algum jornal para determinado ponto e acabo ao ter que imprimir deixar que seja impresso em determinado ponto que certo jornal não vai por exemplo: Gostaria de saber se existe a possibilidade de criar uma macro para que a impressão desses romaneios ou comandas seja feitas (Não sei se posso dizer) "dinamicamente" onde esse comando reconheça automaticamente que se certo ponto esta com reparte 00 para algum jornal e não seja impresso no romaneio e pule para o próximo jornal que esteja lançado para aquele ponto. E automaticamente pule para o ponto 002, faça a mesma coisa imprima, passe para o 003 depois 004 e assim sucessivamente ate acabar de imprimir o ultimo ponto. Quem puder ajudar me ajudaria muito. O arquivo que criei esta aqui nesse link --> Baixar a planilha Desde já muito Obrigado!
  3. Galera preciso de um código que some todos os valores dentro de 3 colunas (Destacadas de amarelo) na Plan1 e após feito isso o código irá para uma segunda aba ( Plan 2) e somara os valores de uma coluna (destacada de amarelo). Após a soma dos valores de ambas abas o código deve verificar se O VALOR TOTAL da soma dos valores das 3 colunas (plan1) é igual o valor total da soma da coluna (Plan1). Segue print das colunas das duas Planilhas. Se alguém puder ajudar!! c
  4. Boa tarde galera. Estou precisando de uma macro em C que converta string para símbolos, para chamar métodos dinamicamente através de textos passados por parâmetros. Ou algum meio de fazer com que o assembly em C possa suportar variáveis literais como parâmetro.
  5. Boa tarde Estou tentando criar uma macro para buscar um texto em uma planilha já exportada de outro software (com células mescladas, colunas e linhas vazias) e que retorne o valor desse texto... Obrigado
  6. Bom dia :) Estou com uma dúvida com a macro que estou fazendo eu quero mudar de texbox usando as setas. Por exemplo, se eu estiver no campo A.R e apertar a seta para cima, tem que ir para N.R. Eu sei que é usando o evento Change, mas não sei como fazer :P
  7. Olá pessoal, sou novo por aqui e também novo em VBA. Preciso da ajuda de vocês.É o seguinte:Preciso de uma macro que concatene em uma caixa de texto o conteúdo da célula H7 até H89. Na caixa de texto, cada linha deve conter o conteúdo de uma célula apenas, lembrando que na caixa de texto não deve aparecer linhas em branco, ou seja, só deve aparecer linhas preenchidas por conteúdos das células não vazias.Podem me ajudar?
  8. Olá, pessoal, bom dia. Tudo bem? Estou com dificuldades para linkar automaticamente as abas de uma planilha ao índice. Alguém pode me ajudar? Tenho um índice com 100 tópicos e 100 abas tituladas de 01 à 100. Gostaria de criar algo que fizesse esse hyperlink automático para a célula A1 de cada aba. Muito obrigado.
  9. Kyle Felipe

    Ajuda com MACRO

    Boa noite pessoal! Preciso de uma ajuda de vocês. Tenho uma planilha no EXCEL com os seguintes campos N_DA, Arquivo_Contrato, Arquivo_DA, Arquivo_Imovel Nas colundas Arquivo_Contrato, Arquivo_DA, Arquivo_Imovel preciso que esteja o hiperlink de 3 arquivos (um em cada coluna) A célula do Arquivo_Contrato é referente ao Contrato (em PDF, JPG, DOC ou DOCX) o nome desse arquivo sempre começa com CT_<N_DA> A célula do Arquivo_DA é Referente ao Documento Autorizativo apresentado (em PDF, JPG) o nome desse arquivo sempre começa com DCC_<N_DA> A célula do Arquivo_Imovel é Referente ao documento de registro do imóvel apresentado (em PDF, JPG) o nome desse arquivo sempre começa com REGISTRO Esses arquivos estão dentro de uma pasta do meu computador: R:\PSS\SIDERÚRGICA tal SA\SIDERÚRGICA tal- 0006108515612014\Demais Arquivos\FONTES DE SUPRIMENTO\CT_DCC003216-B Sendo que o nome da ultima pasta varia conforme o campo N_DA Alguém poderia me ajudar a fazer a planilha já fazer esse link automaticamente? e sempre que eu precisar de ver um desses arquivos é só clicar em uma das celulas e ele já abrir o documento. são muitos arquivos e não consigo fazer na mão.
  10. Preciso de uma macro que retire informações de 5 sites e guarde em um só lugar de fácil acesso. Alguém de CONFIANÇA do fórum faz tal serviço?
  11. Olá Caros Amigos(as), Estou desenvolvendo um sistema VBA Excel 2007, de Vendas, onde eu tenho 8 planilhas que servem de base de dados, alguns UserForms de cadastro e um UserForm de Vendas. A questão é a seguinte: Estou tendo problemas em auto numerar via macro, duas colunas, a A e a B da seguinte forma... Coluna A = ID (ID sequencial para identificação de cada produto vendido) Coluna B = COD VENDA (Numeração dada a cada conjunto de vendas independente da quantidade de produtos vendidos, listados no ListBox lstCompras) Segue imagem. O que eu preciso fazer, é auto numerar estas duas colunas com numerações diferentes, sendo uma sequencial e a outra não, começando com um código 100, por exemplo. Mas não é o que está acontecendo, como visto na imagem acima. Onde é ID, deve constar numeração 1, 2, 3... Em COD VENDA, 100, 100, 100... e numa próxima venda, 101, 101, 101... Entenderam!?!?!?! O código que estou usando na macro responsável, é este: Sub CodVenda() If IsNumeric(ActiveCell.Offset(-1, 1)) Then ActiveCell = ActiveCell.Offset(-1, 1) + 1 Else ActiveCell = 100 End If End Sub Public Sub NumAuto() If IsNumeric(ActiveCell.Offset(-1, 0)) Then ActiveCell = ActiveCell.Offset(-1, 0) + 1 Else ActiveCell = 1 End If End Sub Sub KitPagto() Dim cDesc As Currency Dim ListaItems As Integer If txtDinheiro.Text = "" And txtDesconto.Text = "" And txtProduto.Text = "" And txtPreco.Text = "" Then MsgBox "Não é possível Gravar informações vazias. Por favor, preencha o form!", vbCritical txtCod.SetFocus Else Plan6.Range("A2").Select ListaItems = lstCompras.ListCount - 1 For i = 0 To ListaItems NumAuto CodVenda If txtDesconto.Text = "" Then cDesc = "0,00" Else cDesc = txtDesconto.Text End If 'ActiveCell.Offset(i, 0).Value = ActiveCell.Offset(-i, 0).Value + 1 ActiveCell.Offset(i, 1).Value = lblCodVenda.Caption ActiveCell.Offset(i, 2).Value = Date & " - " & Time ActiveCell.Offset(i, 3).Value = lstCompras.List(i, 0) 'Código PROBLEMAS NESTE ITEM ActiveCell.Offset(i, 4).Value = lstCompras.List(i, 1) 'Produto ActiveCell.Offset(i, 5).Value = CCur(lstCompras.List(i, 3)) 'Valor ActiveCell.Offset(i, 6).Value = cboClientes.Text 'Cliente ActiveCell.Offset(i, 7).Value = lstCompras.List(i, 2) 'Quantidade ActiveCell.Offset(i, 8).Value = CCur(lstCompras.List(i, 4)) 'Sub-Total ActiveCell.Offset(i, 9).Value = CCur(lblTotal.Caption) 'Total ActiveCell.Offset(i, 10).Value = CCur(txtDinheiro.Text) 'Valor para pagamento ActiveCell.Offset(i, 11).Value = CCur(lblTroco.Caption) 'Troco calculado automaticamente ActiveCell.Offset(i, 12).Value = CCur(cDesc) 'Desconto dado ao cliente ActiveCell.Offset(i, 13).Value = cboVendedor.Text 'Nome do Vendedor Next i i = i + 1 MsgBox "Venda realizada com Sucesso!", vbInformation, "VP BAZAR SHOW" Limpar ActiveWorkbook.Save End If End Sub Não consigo chegar a uma finalização. Esta é a imagem do UserForm. Serei muito grato a quem, com uma ótica diferente, puder me dizer onde errei e dar uma luz para um caminho melhor. [ ],s
  12. Estou precisando incluir um evento numa planilha, porém através de uma macro. Alguém sabe se é possível? Tenho uma planilha que é gerada diariamente, e que é usada por alguns usuário. Aplico uma macro para inserir várias formulas e regras, já está funcionando corretamente. Porém preciso agora que tenha duas linhas no evento Worksheet_Change, mas gostaria de fazer isso através da macro. Seriam as linhas abaixo: Private Sub Worksheet_Change(ByVal Target As Range) Cells(Target.Row, 1).Font.Color = -16776961 Cells(Target.Row, 1).Font.Bold = True End Sub
  13. 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á.
  14. 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á!
  15. Preciso de ajuda nisso... Pra quem não entendeu eu quero que se a Plan3 esteja selecionada a Macro que esta abaixo dela seja executada, e assim por diante entederam ? OBS : Isso e a função dentro de um botão como se pode ver na imagem
  16. Olá, pessoal. Boa noite. Estou tentando montar um banco de dados para inscrição de atletas em um campeonato realizado anualmente. Tenho 3 tabelas: - uma contém os dados pessoais do atleta; - outra é destinada a registrar as equipes por ano de competição (ano da competição, nome do clube, categoria, responsável, etc); - e uma terceira tabela que foi feita para que eu pudesse criar um subformulário para escolher os atletas relacionados com aquela equipe - e que tem chave primária dupla: cód atleta e cód da equipe, evitando que eu tenha o mesmo atleta inscrito na mesma equipe 2 vezes num mesmo ano. Mas, gostaria que o banco de dados me alertasse também quando eu tentasse selecionar um atleta já estive inscrito em outra equipe no mesmo ano da competição. Ex: Atletas: joão, pedro, tomás, paulo equipes: 2013 - verde, azul, amarelo; 2014 - verde, amarelo, azul O joão pode estar inscrito em 2013 como equipe verde e em 2014 como equipe amarela. Mas não poderá ser inscrito novamente em 2014 como equipe verde. Pensei em criar uma consulta com os atletas já inscritos em 2014 e, ao selecionar o nome do atleta (tabela atleta) no meu subformulário, ele comparasse com os nomes da consulta. Se fosse repetido, ele poderia gerar uma mensagem de alerta. Mas o problema é que não sei construir uma macro. Alguém pode me ajudar com essa ou outra solução?
  17. 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!
×
×
  • Create New...