Este fórum está sendo desativado

Consegui.
Coloquei a função abaixo no Final da Sub PreencheListView

For N = 1 To ListView1.ListItems.Count
If ListView1.ListItems.Item(N).ListSubItems(1).Text = txtCod.Value Then
ListView1.ListItems(N).Selected = True
ListView1.ListItems(N).EnsureVisible
End If
Next N

Pessoal, Ao Incluir um registro (botão Compra) gostaria que ListView1 Selecionasse exatamente o registro Incluido, e automaticamente as TextBoxs mostrassem esse registro. Como se eu clicasse nesse registro. O mesmo quero ao Editar um registro (botão Edição). Resumindo: No ListView, Quero forçar um C...

Deyse, Na coluna "D" tem a data da compra. Observe que em Junho/2017 foram feitas 5 (cinco) compras. Na célula "BP14" o resultado do rateio é 3,00 (ou seja, R$ 15,00 da taxa dividido pelas 5 compras). O problema é que precisa "embutir/cobrar" a taxa mesmo quando não hou...

Clarificando: Na coluna BP (intervalo BP14:BP1012) é feito o rateio, onde a taxa (CB1) é dividida pela Quantidade de Compras no Mês. Em BP14 a fórmula $CB$1/CONT.SE($BU$14:$BU$134;MÊS(D14)&ANO(D14)) divide 15,00 (CB1) por 5 Compras (calculadas pelo CONT.SE) no Mês 06/2017, resultando em 3,00. Us...

No anexo, preciso fazer rateio de uma Taxa Mensal: Na coluna BP (intervalo BP14:BP1012) é feito o rateio, a taxa (CB1) é dividida pela Quantidade de Compras no Mês Na coluna CD (CD14:CD37) mostra a taxa (CB1) Mês a Mês. Mesmo se não houver compra, há a cobrança da TAXA Inclusive quando não houver co...

Solução do Professor Reinaldo (http://www.tomasvasquez.com.br/forum/viewtopic.php?f=20&t=6082) Sua rotina "BuscaPersonalizada", no controle ..>LookAt<.. consta como xlPart, assim e feita uma pesquisa caracter a caracter procurando uma combinação. Notivo de quando procura PN tambem rece...

No modelo anexo, selecione PN e observe e vem registros como Tipo PNA, PNB, etc....
Grato,
Pedro

Pessoal, Na ComboBox2.List = Array("ON", "PN", "PNA", "PNB", "PNC", "PND", "PNE", "PNF"), ao selecionar PN (por exemplo), são carregados também ítens do tipo PNA, PNB, etc. e, no caso, era para carregar somente ítens do ...

Show de bola!!!!!

Reinaldo,
Grato pela atenção!
Seria possível evitar a 'Msgbox sAdicionar' ao abrir o form Busca?

Não.
Eu tenho outro botão pra acessar o frmBusca, sem executar a macro btn_Adicionar_click.
O código ficar na função Sub ValidaDados(Endereço).

Segue anexo.

Grato pela colaboração,
Não pode ser como você sugeriu.
Ocorre que preciso abrir o 'frmBusca' e executar a macro 'Btn_Adicionar_click' dentro da Worksheet_Change de outra Planilha.

Pessoal, Preciso abrir o Form frmBusca já executando a Macro Btn_Adicionar_Click(). Fiz isso: Private Sub Worksheet_Change(ByVal target As Range) Dim result As VbMsgBoxResult Result = MsgBox("Ativo " & UCase(ActiveCell.Value) & " Não Localizado no Cadastro!" & Chr(13)...

Pessoal, Baixei o anexo na Internet, e estou com dificuldades em adaptar. Estou com 2 problemas no FrmBusca: 1) Ao carregar, o primeiro ítem da Listview aparece Selecionado (assim que eu quero). Mas ao usar qualquer Opção de Filtrar o primeiro ítem NÃO aparece Selecionado. Por que? 2) Os Textboxs de...

Parece fácil, mas não é.
Alguma sugestão em VBA?

Pessoal, Preciso Preencher EK14:EK1012, automaticamente, com as Datas de EA14:EA1012 e EC14:EC1012, e classificado da Menor Para a Maior Data, Com valores exclusivos, e sem Datas Vazias. Obs: Graças ao Deciog, tá funcionando por fórmula, MAS, talvez por ser Matriz, deixou a planilha demasiadamente l...