Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Pesquisa resultou em 161 ocorrências

por Fabio Trindade
Sex Nov 11, 2016 8:29 pm
Fórum: VBA Básico
Tópico: Quantidade caracteres Textbox
Respostas: 2
Exibições: 3008

Re: Quantidade caracteres Textbox

Boa noite, marcio.

Já criei Textbox para descrição de problemas limitado a 5.000 caracteres e funcionou, mas dê uma olhada no link sobre Propriedades TextBox

Testa inserir os 255 caracteres no Textbox e salvar com o recordset se não der certo posta um exemplo para podermos analisar.
por Fabio Trindade
Sex Nov 11, 2016 8:17 pm
Fórum: VBA Básico
Tópico: Excel altera data quanto atualiza forulario
Respostas: 4
Exibições: 3545

Re: Excel altera data quanto atualiza forulario

Boa noite, RafaelRC. Poste um exemplo simples do seu arquivo com dados fictícios para podermos analisar a sua dificuldade. Pode ser questão de formatação no momento de inserir em banco de dados. Teste assim VBA.Format(TextBox1, "DD/MM/YYYY") Se continuar a inserir invertida a data troque o...
por Fabio Trindade
Sex Nov 11, 2016 8:10 pm
Fórum: VBA Básico
Tópico: Fechar planilha aberta em segundo plano
Respostas: 2
Exibições: 13067

Re: Fechar planilha aberta em segundo plano

Boa noite, kleber.

Tente assim

Código: Selecionar todos

Private Sub UserForm_Terminate()

    Windows("Pasta2.xlsm").Activate
    ActiveWindow.Close

End Sub
por Fabio Trindade
Qui Nov 10, 2016 11:23 pm
Fórum: VBA Básico
Tópico: Criar Ramificação de Pastas
Respostas: 2
Exibições: 2465

Re: Criar Ramificação de Pastas

Boa noite, jamesricb Não sei se é isso que gostaria de fazer .... Em um módulo coloque o código abaixo e depois associe a um botão e pronto! Sub CriarRamificacaoPasta() Dim Unidade As String Dim NomeRelatorio As String Dim Ano As String Dim Mes As String Dim NomeMedico As String Dim Caminho As Strin...
por Fabio Trindade
Qui Nov 10, 2016 10:39 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO]declarar variável
Respostas: 5
Exibições: 4959

Re: [RESOLVIDO]declarar variável

Boa noite, Wagner.cwb

Que bom que deu certo.

Código: Selecionar todos

.Value, "HH:MM"
O código acima faz parte da função VBA.Format(Valor, "HH:MM")
Aqui tem mais explicação a respeito da Função Format
por Fabio Trindade
Qua Nov 09, 2016 10:31 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO]declarar variável
Respostas: 5
Exibições: 4959

Re: declarar variável

Boa noite, Wagner.cwb Tentou declarar assim: Dim periodo as range Testei com a declaração acima e não deu certo .... Testa o código abaixo se te ajuda, coloquei para exibir em uma MsgBox Sub lll() 'selecionar a classificacao do ultimo período Worksheets("Diario").Range("A1048576"...
por Fabio Trindade
Qua Nov 09, 2016 10:16 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] Selecionar toda a linha de um intervalo pré-selecionado
Respostas: 4
Exibições: 4494

Re: Selecionar toda a linha de um intervalo pré-selecionado

Boa noite, lima27. Testa esse código e vê se atende a sua necessidade. Sub SelecionarIntervalo() Dim L1 As Long Dim L2 As Long L1 = ActiveCell.Row L2 = Selection.Rows.Count If (L1 > 0) Then Range(Cells(L1, 1), Cells((L1 + (L2 - 1)), 17)).Select End If End Sub
por Fabio Trindade
Qua Nov 09, 2016 8:30 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO]declarar variável
Respostas: 5
Exibições: 4959

Re: declarar variável

Boa noite, Wagner.cwb

Tentou declarar assim:

Código: Selecionar todos

Dim periodo as range
por Fabio Trindade
Qua Nov 09, 2016 1:04 pm
Fórum: VBA Básico
Tópico: Contador com código que reinicia todo mês [RESOLVIDO]
Respostas: 3
Exibições: 3152

Re: Contador com código que reinicia todo mês

Duvida respondida http://www.planilhando.com.br/forum/vie ... 53310a1b60

Por gentileza inserir o texto [RESOLVIDO] em sua duvida para poder manter a organização do fórum.
por Fabio Trindade
Qua Nov 09, 2016 1:02 pm
Fórum: VBA Básico
Tópico: [RESOLVIDO] Selecionar toda a linha de um intervalo pré-selecionado
Respostas: 4
Exibições: 4494

Re: Selecionar toda a linha de um intervalo pré-selecionado

Boa tarde, Lima27. Para expandir a seleção deve mudar a variável LINHA do segundo intervalo, conforme destacado. If (LINHA > 0) Then Range(Cells(LINHA, 1), Cells(LINHA + 4 , 17)).Select End If Nesse caso esta fixo no valor atual +4. Vale lembrar que o argumento ActiveCell.Row pega o valor da primeir...