-
Posts
9 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
Tudo que Lindomar Marques postou
-
VB.NET carregar listview a partir de um modulo
Lindomar Marques postou um tópico em Programação - outros
vb.net windows forms galera nao to achando solução pra isso , tenha uma sub no form que carrega uma listview normalmente porém se coloca essa sub em um modulo e fazendo as modificaçoes necessarias ainda assim ele nao carrega o listview.... alguem sabe explicar o problema -
Excel excluir codigos do vba se a senha do projeto for quebrada
Lindomar Marques postou um tópico em Microsoft Office e similares
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... -
Excel inserir valor de outro formulario automaticamente no textbox ativo
Lindomar Marques respondeu ao tópico de Lindomar Marques em Microsoft Office e similares
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. -
Excel inserir valor de outro formulario automaticamente no textbox ativo
Lindomar Marques postou um tópico em Microsoft Office e similares
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 -
Excel comparaçao de dados de duas colunas de tabelas diferentes usando do while e loop
Lindomar Marques respondeu ao tópico de Lindomar Marques em Microsoft Office e similares
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 -
Classificar um objeto Range no VBA
Lindomar Marques respondeu ao tópico de dapalma em Microsoft Office e similares
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. -
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.
-
Criar teclado virtual em caixa de texto (ActiveX)
Lindomar Marques respondeu ao tópico de flavia.carvalho em Microsoft Office e similares
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... -
Excel controle entrada e saida de itens
Lindomar Marques postou um tópico em Microsoft Office e similares
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 comunidades 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