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

Pesquisa resultou em 1537 ocorrências

por Reinaldo
Qua Mai 03, 2023 6:54 am
Fórum: VBA Básico
Tópico: abrir abas especificas com combobox
Respostas: 6
Exibições: 5423

Re: abrir abas especificas com combobox

"...ela só pesquisa na aba especifica..."

Não entendi a demanda.
por Reinaldo
Qua Mai 03, 2023 6:50 am
Fórum: VBA Básico
Tópico: abrir abas especificas com combobox
Respostas: 6
Exibições: 5423

Re: abrir abas especificas com combobox

"...aparecessem só as abas classe..." frmCadastro, uma possibilidade; altere as rotinas conforme abaixo Private Sub UserForm_Initialize() Dim I As Integer For I = 1 To Sheets.Count If Sheets(I).Name Like "CLASSE*" Then Me.ComboBox1.AddItem Sheets(I).Name End If Next I End Sub e ...
por Reinaldo
Qui Abr 20, 2023 1:52 pm
Fórum: VBA Básico
Tópico: Remover item de do listiview aoExportar para outro listiview
Respostas: 5
Exibições: 1285

Re: Remover item de do listiview aoExportar para outro listiview

"...o item e os subitens não..." Talvez assim: Private Sub btnTransCautelar_Click() 'Exporta linhas do ListDisponivel para listCautelar e exclui Linhha do ListDisponivel If listDisponivel.SelectedItem.Checked Then Dim x, y, z As Integer Dim Li As Object Dim sItem As Long Dim colunas As Int...
por Reinaldo
Qua Abr 19, 2023 4:00 pm
Fórum: VBA Básico
Tópico: Remover item de do listiview aoExportar para outro listiview
Respostas: 5
Exibições: 1285

Re: Remover item de do listiview aoExportar para outro listiview

Pergunta,
pode ser alterado status do item ao migrar de listview.
Caso negativo, pode ser utilizado uma nova coluna "provisoria"
por Reinaldo
Sex Abr 14, 2023 8:15 am
Fórum: VBA Básico
Tópico: Comparar valores entre duas colunas e listar
Respostas: 1
Exibições: 978

Re: Comparar valores entre duas colunas e listar

Experimente: Sub teste() 'Definir as planilhas Dim conferencia As Worksheet Dim observacoes As Worksheet Set conferencia = ThisWorkbook.Worksheets("Conferencia") Set observacoes = ThisWorkbook.Worksheets("OBSERVAÇÕES") 'Definir as variáveis Dim ultimaLinhaConferencia As Long Dim ...
por Reinaldo
Ter Abr 11, 2023 10:03 am
Fórum: VBA Básico
Tópico: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO [RESOLVIDO]
Respostas: 5
Exibições: 1409

Re: ATUALIZAR LISTVIEW AO CADASTRAR UM PRODUTO

experimente alterar no botão "CADASTRAR", como abaixo: Private Sub CommandButton1_Click() ' ATIVA A PLANILHA Sheets("Planilha1").Activate ' localiza o local para armazenar o nome Range("A1000000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select ' verifi...
por Reinaldo
Sáb Abr 08, 2023 9:27 am
Fórum: VBA Básico
Tópico: Dificuldade de Carragar dados de uma ListView
Respostas: 2
Exibições: 945

Re: Dificuldade de Carragar dados de uma ListView

Falta incluir referencia a biblioteca MSCOMCTL.ocx
por Reinaldo
Sáb Abr 01, 2023 10:05 am
Fórum: VBA Básico
Tópico: Fechando calendário
Respostas: 1
Exibições: 938

Re: Fechando calendário

O Formulário em questão possui o evento necessário para a sauda sen selecionar data; e um duplo click em qualquer area do mesmo sem numero. Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.Hide End Sub Caso deseje utilizar um botão especifico pode "chamar" o evento D...
por Reinaldo
Sex Mar 10, 2023 5:28 pm
Fórum: VBA Básico
Tópico: Ativar botão ALTERAR em userforms
Respostas: 2
Exibições: 950

Re: Ativar botão ALTERAR em userforms

Pela definição de variáveis, o PROCESSO e um numero inteiro (integer); porem mesmo estando visualmente como numero no excel, internamente pode ser considerado um texto. Então experimente utilizar a pesquisa com Processo como texto. Caso não consiga , disponha um modelo com poucos dados (ficticios) m...
por Reinaldo
Seg Fev 27, 2023 3:32 pm
Fórum: VBA Básico
Tópico: Pesquisa valor de combobox em uma só linha da planilha
Respostas: 11
Exibições: 2258

Re: Pesquisa valor de combobox em uma só linha da planilha

Talvez assim: Sub GuardarLitros() Dim Ctrl As Control Dim c As Integer, x As Integer Dim strText As String 'Determina a coluna a ser utilizada c = WorksheetFunction.Match(Me.ComboBoxMES.List(ComboBoxMES.ListIndex, 2), Sheets("GASOLEO").Range("A1:M1"), 0) 'Loop pelos controles do ...