Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Pesquisa resultou em 1537 ocorrências
- Ter Out 25, 2022 5:05 pm
- Fórum: VBA Básico
- Tópico: Impressão via formulário - VBA
- Respostas: 5
- Exibições: 806
Re: Impressão via formulário - VBA
Talvez algo =/- assim Private Sub BotaoImprimir_Click() With Sheets("Impressão") .Cells(9, 2) = caixatexto_nome.Text .Cells(9, 4) = caixatexto_datanascimento.Text .Cells(10, 2) = combo_setores.Value .Cells(10, 4) = caixatexto_leito.Text ' .Cells(linha, 5) = caixatexto_dataalta.Text 'não te...
- Qui Out 20, 2022 11:34 am
- Fórum: Geral
- Tópico: [RESOLVIDO]: Como substituir a função SOMARPRODUTO ou otimizá-la neste caso ?
- Respostas: 6
- Exibições: 4649
Re: DESAFIO - Como substituir a função SOMARPRODUTO ou otimizá-la neste caso ?
"possui intervalos imensos" o que considera imenso? A Lentidão de processamento, está diretamente conectada a capacidade de processamento/memoria do pc/notebook Somarproduto por default, e uma função matricial, não sendo necessario inseri-la como tal {...} Já avaliou o uso de tabela dinami...
- Qui Out 20, 2022 11:23 am
- Fórum: VBA Básico
- Tópico: INTEGRAÇÃO C/ACCESS
- Respostas: 1
- Exibições: 514
Re: INTEGRAÇÃO C/ACCESS
Possivel é, se não me engano, o modelo cadastro disponivel aqui no forum tem o que procura
https://www.tomasvasquez.com.br/forum/viewforum.php?f=5
https://www.tomasvasquez.com.br/blog/mo ... oft-excel/
https://www.tomasvasquez.com.br/forum/viewforum.php?f=5
https://www.tomasvasquez.com.br/blog/mo ... oft-excel/
- Qui Out 20, 2022 11:19 am
- Fórum: VBA Básico
- Tópico: Retorno textboxs valores Listview[RESOLVIDO]
- Respostas: 13
- Exibições: 1760
Re: Retorno textboxs valores Listview
Nã tenho como testar, mas a sintaxe deve ser algo +/- With UserForm_Menu.ListView5 For i = 1 To .ListItems.Count If .ListItems.Item(i).Selected = True Then If Not IsNull(.ListItems.Item(i)) Then UserForm_Menu.ID_DT1.Text = .ListItems.Item(i) If Not IsNull(.ListItems.Item(i).ListSubItems(1)) Then Use...
- Qua Out 19, 2022 11:22 am
- Fórum: VBA Básico
- Tópico: Retorno textboxs valores Listview[RESOLVIDO]
- Respostas: 13
- Exibições: 1760
Re: Retorno textboxs valores Listview
Carregar os dados do listview para textbox, em teoria, não deveria gerar o erro relatado. Contudo já experimentou "validar" o campo antes de "inclui-lo" na textbox. seria algo similiar ao indicado no tópico https://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=8238&p...
- Seg Out 10, 2022 2:20 pm
- Fórum: VBA Básico
- Tópico: [RESOLVIDO] Como adaptar para incluir mais planilhas e variáveis?
- Respostas: 5
- Exibições: 936
Re: Como adaptar para incluir mais planilhas e variáveis?
Não fiz a rotina para uso direto, somente uma ideia geral de como pode ser. (por isso o uso de "Algo +/-").
Deve ser adaptada a sua relalidade, coisa que desconhecemos
Deve ser adaptada a sua relalidade, coisa que desconhecemos
- Dom Out 09, 2022 8:44 am
- Fórum: VBA Básico
- Tópico: [RESOLVIDO] Como adaptar para incluir mais planilhas e variáveis?
- Respostas: 5
- Exibições: 936
Re: Como adaptar para incluir mais planilhas e variáveis?
Algo +/- assim: Dim x As Long, ncell As Long, Z As Integer Dim Rng As Range, c As Range Dim ws As Worksheet 'Define matriz com planilhas e controles elegiveis Dim strSheet(2) As String, ctrl(2) As String strSheet(0) = "Plan1" strSheet(1) = "Plan2" strSheet(2) = "Plan3" ...
- Dom Out 09, 2022 8:15 am
- Fórum: VBA Básico
- Tópico: [RESOLVIDO] Ao marcar Sim na opção, Libera o Campo da Outra
- Respostas: 3
- Exibições: 741
Re: Ao marcar Sim na opção, Libera o Campo da Outra
Algo como
Na propriedade change de seu controle
If "seucontrole" =True then "seu_outro_controle" enable = True
Na propriedade change de seu controle
If "seucontrole" =True then "seu_outro_controle" enable = True
- Sex Out 07, 2022 1:49 pm
- Fórum: VBA Básico
- Tópico: Copiar uma célula com macro
- Respostas: 5
- Exibições: 4297
Re: Copiar uma célula com macro
Normalmente o copy/paste (ctrl+c/ctrl+v) "leva" inclusive o hiperlink.
Poste um modelo de sua planilha para que possamos tentar acompanhar a execução da rotina e (talvez) propor uma solução
Poste um modelo de sua planilha para que possamos tentar acompanhar a execução da rotina e (talvez) propor uma solução
- Ter Out 04, 2022 8:13 am
- Fórum: Excel + Access
- Tópico: Dados do código mais recente
- Respostas: 12
- Exibições: 7096
Re: Dados do código mais recente
"1º exemplo - Cadastrado.TxtOBS = Rs(8) 'Rs!OBS" Somente para "trazer;visualizar" no formulario o numero do codigo obtido; esqueci de retornar ao original "Last(Código) AS cod o que seria o "cod" " Renomeação do campo, altera a denominação de retorno, para um ...