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.

Pesquisa resultou em 1331 ocorrências

por Reinaldo
Ter Abr 07, 2020 9:59 am
Fórum: VBA Básico
Tópico: Detectar Itens do Listbox
Respostas: 2
Exibições: 558

Re: Detectar Itens do Listbox

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
por Reinaldo
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...
por Reinaldo
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
Switch.zip
(44.23 KiB) Baixado 2 vezes
por Reinaldo
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
por Reinaldo
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...
por Reinaldo
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...
por Reinaldo
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...
por Reinaldo
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...
por Reinaldo
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...
por Reinaldo
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...