Até onde sei o Excel/VBA não tem/monitora o evento mouse nessas condições ("..passando o ponteiro do mouse em cima deles.."); e considerado o posicionamento utilizando coordenadas x,y.
Talvez com maiores detalhes/exemplo possa obter uma resposta/proposta que lhe possa auxiliar
Esqueceu sua senha? Você pode usar o mecanismo de lembrete neste link: Recuperar senha
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Você receberá um link de reativação no email cadastrado.
Não recebeu o email? Lembre-se checar o Lixo Eletrônico.
Pesquisa resultou em 1331 ocorrências
- Ter Abr 07, 2020 9:59 am
- Fórum: VBA Básico
- Tópico: Detectar Itens do Listbox
- Respostas: 2
- Exibições: 558
- Ter Abr 07, 2020 9:53 am
- Fórum: VBA Básico
- Tópico: Executar Macro ao receber novos dados externos (conexão com GoogleForms)
- Respostas: 1
- Exibições: 75
Re: Executar Macro ao receber novos dados externos (conexão com GoogleForms)
Pelo descrito, se entendi corretamente, uma possibilidade: Em uma célula fora da sua range de dados (por exemplo AA1) insira o valor da ultima linha de dados (por exemplo 28) Private Sub Worksheet_Change(ByVal Target As Range) If Cells(1, 27).Value < ActiveSheet.Cells(Cells.Rows.Count, "B").End(xlUp...
- Seg Abr 06, 2020 5:28 pm
- Fórum: Geral
- Tópico: Formatação Condicional
- Respostas: 2
- Exibições: 79
Re: Formatação Condicional
Uma possibilidade (somente para bloco a5:D16); caso seja funcional, utilize a mesma lógica para as demais
- Qui Abr 02, 2020 2:20 pm
- Fórum: Geral
- Tópico: EXPORTAR TXT EXCEL SPED FISCAL
- Respostas: 19
- Exibições: 13780
Re: EXPORTAR TXT EXCEL SPED FISCAL
Demanda de AndersonDorneles dada como atendida em http://www.planilhando.com.br/forum/vie ... 10&t=32953
- Qui Abr 02, 2020 2:17 pm
- Fórum: VBA Básico
- Tópico: Cadastro em VBA - Colocar na ordem
- Respostas: 4
- Exibições: 352
Re: Cadastro em VBA - Colocar na ordem
Esse não e o código todo e também não auxilia nada. Toda a pinta de ordem de tabulação, veja se lhe auxilia: no editor vbe, no modulo do fornulario, vá no menu superiror "Exibir"; depois selecione "Ordem de tabulação" e acerte na tela que se abra a ordem que deseja para o deslocamento do cursor Se n...
- Qui Mar 26, 2020 3:21 pm
- Fórum: Geral
- Tópico: EXPORTAR TXT EXCEL SPED FISCAL
- Respostas: 19
- Exibições: 13780
Re: EXPORTAR TXT EXCEL SPED FISCAL
Se bem me lembro, e a estrutura for a mesma; acredito que um If resolva algo +/- assim Do While Not EOF(1) Line Input #1, strLinhaTexto vrTemp = Split(strLinhaTexto, "|") If vrTemp(1) = "C100" Then 'Verifica se o codigo corresponde ao esperado If ExisteSheet(vrTemp(1)) = True Then incluinaplan (vrTe...
- Sex Mar 13, 2020 10:03 am
- Fórum: VBA Básico
- Tópico: FUNÇÃO PARA OPTIONBUTTON **RESOLVIDO**
- Respostas: 2
- Exibições: 489
Re: FUNÇÃO PARA OPTIONBUTTON
Ao utilizar um "IF composto" deve-se levar em consideração que, a primeira ocorrência atendida e dada a expressão como "OK"; dos 3 "buttons" sempre terá 2 como false o que inviabiliza utilizar "OR" Varias são as formas que pode-se utilizar, dependento principalmente do escopo do projeto Talvez: If O...
- Qui Mar 12, 2020 10:37 am
- Fórum: VBA Básico
- Tópico: Renomear Arquivos conservando nomes
- Respostas: 5
- Exibições: 835
Re: Renomear Arquivos conservando nomes
"...em todas as pastas que encontrar dento do diretório determinado..." Talvez algo +/- Public Sub lsSelecionaArquivo() Dim MyFolder As String Dim Fso As Object Dim f As Folder, sf As Folder 'Defina/informe a pasta e hd a ser utilizado MyFolder = "c:\TEMP" 'Chama a função para renomear os arquivos d...
- Qua Mar 11, 2020 3:04 pm
- Fórum: VBA Básico
- Tópico: SOMAMASES NO COM CODIGO VBA
- Respostas: 2
- Exibições: 399
Re: SOMAMASES NO COM CODIGO VBA
Uma possibilidade Sub SomaNF() Dim x As Integer, y As Integer Dim uLinC190 As Integer, uLinC170 As Integer uLinC170 = Sheets("C170").Cells(Rows.Count, "C").End(xlUp).Row uLinC190 = Sheets("C190").Cells(Rows.Count, "C").End(xlUp).Row For x = 3 To uLinC170 For y = 3 To uLinC190 If Sheets("C190").Cells...
- Sáb Mar 07, 2020 5:21 pm
- Fórum: VBA Básico
- Tópico: [Resolvido] separar a Data com barras "/" no txtBox.Text
- Respostas: 3
- Exibições: 418
Re: separar a Data com barras "/" no txtBox.Text
Experimente algo +/- assim Para data inicial Private Sub txtData_Change() If Me.txtData.SelStart = 2 Then Me.txtData.SelText = "/" If Me.txtData.SelStart = 5 Then Me.txtData.SelText = "/" End Sub Data Final Private Sub txtAte_Change() If Me.txtAte.SelStart = 2 Then Me.txtAte.SelText = "/" If Me.txtA...
