Tomás Vásquez Fórum

Reinaldo

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...

Reinaldo

"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...

Reinaldo

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/

Reinaldo

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...

Reinaldo

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...

Reinaldo

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

Reinaldo

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" ...

Reinaldo

Algo como
Na propriedade change de seu controle
If "seucontrole" =True then "seu_outro_controle" enable = True

Reinaldo

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

Reinaldo

"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 ...

Pesquisa resultou em 1537 ocorrências

Re: Impressão via formulário - VBA

Re: DESAFIO - Como substituir a função SOMARPRODUTO ou otimizá-la neste caso ?

Re: INTEGRAÇÃO C/ACCESS

Re: Retorno textboxs valores Listview

Re: Retorno textboxs valores Listview

Re: Como adaptar para incluir mais planilhas e variáveis?

Re: Como adaptar para incluir mais planilhas e variáveis?

Re: Ao marcar Sim na opção, Libera o Campo da Outra

Re: Copiar uma célula com macro

Re: Dados do código mais recente