Ir ao conteúdo
  • Cadastre-se

Lindomar Marques

Membros Juniores
  • Total de itens

    8
  • Registro em

  • Última visita

  • Qualificações

    N/D
  1. pessoal! tudo joia? eu montei um codigo usando referencias de outros que coloca a senha no projeto toda vez que abro o workbook porém todavia noentanto entretanto quando quebro a senha do projeto e abro o workbook novamente o codigo falha e nao funciona. então precisava descobrir atraves de uma consulta aos magos do vba se existe uma forma de excluir todos os codigos do projeto neste caso. segue o codigo que estou usando Option Explicit Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.Interactive = False Application.DisplayAlerts = False Application.ScreenUpdating = False On Error GoTo 0 ' Envia o comando para abrir o VBA SendKeys "%{F11}", True On Error GoTo 0 ' Abre a janela de proteção do projeto VBA VBProject.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute On Error GoTo 0 SendKeys "^({TAB})" SendKeys " " SendKeys "{+}" ' Envia os comandos para digitar a senha e confirmar SendKeys "{TAB}" & 2997925 & "{TAB}" & 2997925 & "~", True On Error GoTo 0 SendKeys "%q" Application.ScreenUpdating = True Application.DisplayAlerts = True Application.Interactive = True End Sub Private Sub Workbook_Open() Application.Interactive = False Application.DisplayAlerts = False Application.ScreenUpdating = False On Error GoTo 0 ' Envia o comando para abrir o VBA SendKeys "%{F11}", True On Error GoTo 0 ' Abre a janela de proteção do projeto VBA VBProject.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute On Error GoTo 0 SendKeys "^({TAB})" SendKeys " " SendKeys "{+}" ' Envia os comandos para digitar a senha e confirmar SendKeys "{TAB}" & 2997925 & "{TAB}" & 2997925 & "~", True On Error GoTo 0 SendKeys "%q" Application.ScreenUpdating = True Application.DisplayAlerts = True Application.Interactive = True End Sub esse codigo funciona maravilhas...
  2. eu estou tentando fazer uma aplicaçao que possa ser usada tanto em maquinas com teclado quanto em maquinas touchscreen. eu mesmo ja penei quando precisei digitar e meu teclado deu pau. meus meninos eram viciados em jogar joguinhos online, então meu teclado estava sempre ferrado.
  3. ola feras do excel. venho novamente até vós pedir uma ajuda. essa ao meu ver é do nivel hard. tenho dois formularios o primeiro tem cinco textbox o segundo é um numpad com os botões do zero a nove, a virgula , o enter e um textbox que serve de visor onde posso ver os valores enquanto vou digitando. se no primeiro formulario eu clico no textbox1 ele vai ativar o formulario numpad. onde vou digitar o valor. ao dar enter ou fechar o numpad preciso que o valor seja inserido no textbox1. se no primeiro formulario eu clico no textbox2 ele vai ativar o formulario numpad. onde vou digitar o valor. ao dar enter ou fechar o numpad preciso que o valor seja inserido no textbox2. resumindo preciso encontrar uma maneira do formulario 2 saber qual textbox eu cliquei para inserir o valor ai. qualquer ajuda é bem vinda... gracias
  4. pode deixar , parceiro essa eu ja consegui resolver fiz com o codigo abaixo Sub atualailiza() Application.ScreenUpdating = False Application.CutCopyMode = False Dim ws As Worksheet, wr As Worksheet Dim i As Integer, j As Integer Set wr = Sheets("Planilha1") Set ws = Sheets("mega") i = 0 j = 0 Do While wr.Range("A2").Offset(i + 1, 0).Value <> "" If wr.Range("A2").Offset(i, 0).Value = "" Then Exit Do End If If wr.Range("A2").Offset(i, 0).Value = ws.Range("A17").Value Then ws.Range("A17").ListObject.ListRows.Add (1) ws.Range("A17").Value = wr.Range("A2").Offset(i + 1, 0).Value ws.Range(ws.Range("A17").Offset(0, 1), ws.Range("A17").Offset(0, 6)).Value = _ wr.Range(wr.Range("A2").Offset(i + 1, 2), wr.Range("A2").Offset(i + 1, 7)).Value End If i = i + 1 Loop preencher_form End Sub o bom é que assim nao precisa ficar trocando de planilha para a copia dos dados. então nao usa nem select nem activate. somente .value
  5. eu resolvi assim Sub classificar_colun() Application.ScreenUpdating = False Application.CutCopyMode = False Dim wr As Worksheet Dim i As Integer, j As Integer, k As Integer, r, ra Set wr = Sheets("mega") i = 0 Do While wr.Range("R1").Offset(0, i).Value <> "" wr.Range(wr.Range("R1").Offset(0, i), wr.Range("R1").Offset(6, i)).Sort _ wr.Range("R1").Offset(0, i), xlDescending i = i + 1 Loop End Sub ele classifica cada uma das colunas preenchidas a direita da celula inicial ate chegar a uma celula vazia ou seja ate que nao haja mais colunas a direita com valores.
  6. boa noite feras do vba estou procurando uma macro que faça a comparaçao entre valores de duas colunas. se os valores forem iguais devera fazer um offset para copiar a linha toda excluindo a celula onde esta o valor comparado. esta linha deve ser copiada para a outra planilha onde esta a coluna comparada e colar na linha com o valor mas nao em seguida (umas quinze celulas para a direita). se alguem tiver uma ideia de como fazer isso usando somente do while, loop, if e else if(nao me perguntem porque) eu agradeço.
  7. patropi eu tentei acessar o seu link da ultima postagem e nao consegui. estou com a mesma dificuldade e gostaria de ver o topico que voce mencionou porém ele nao existe mais no blog, sabe de algum que eu possa dar uma olhada. tenho um formulario e gostaria de adicionar um teclado alfanumerico apenas com os numeros de 0 a 9 o alfabeto em maiusculo a virgula em um formulario que eu criei e colocar o texto em uma combobox e em textbox alternativamente. grato...
  8. ola meus amigos eu preciso de ajudar para resolver o seguinte problema, se alguem puder me ajudar eu agradeço de coraçao, passei os quatro dias do feriadao prolongado do 1º maio procurando na net e nao achei solução kkk. então vamos por parte bom eu tenho tres planilhas a primeira nomeada C_V possui duas tabelas, a segunda planilha chamada carteira possui outra tabela e a terceira planilha chamada vendat possui uma tabela tambem. bom primeiramente eu precisava de uma macro que ao comparar as duas tabelas na primeira planilha("C_V") colocasse na tabela da segunda planilha("carteira") as linhas da primeira tabela cujo criterio nao se repete na segunda tabela. ou seja pegar a primeira tabela e excluir as linhas cujos criterios que estão na segunda tabela e copiar o resultado pra tabela da planilha ("carteira"). Pasta1.rar o criterio para filtragem que aparece em todas as tabelas esta na coluna ("titulo/ativo") quem souber como resolver esta questao eu agradeço muito. atenciosamente Lindomar

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×