CarlinhosItaqua

ola, galerinha precisava de uma ajudinha no meu código

tenho esse código para carregar meu list direto , gostaria de adicionar uma caixa de texto para quando digitar carregar na list os dados digitados

Sheets("Clientes").Select
Columns("B:H").Select
' Selection.Sort Key1:=Range("B2"), Header:=xlGuess, _
'    OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'     DataOption1:=xlSortNormal
Dim I As Long, k As Long
With Sheets("Clientes")
   
    For I = 2 To .Cells(Rows.Count, 2).End(xlUp).Row
            For k = 1 To 8
                    Tabela(I - 2, k - 1) = .Cells(I, k + 1).Value
            Next k
            k = k + 1
    Next I

End With

'Preencher a ListBox com os dados 

ltb_usuario.List() = Tabela

obrigado 

olá galera,

Preciso de uma ajudinha tenho alguns formularios com cadastro de lote com relação aos meses.

de janeiro a dezembro

gostaria de uma forma para exemplo se entrar no cadastro de janeiro conferir se o Textbox somente deixar passar as datas de 01/01/2020 a 31/01/2020.

desde já agradeço pela atençâo

Em 08/01/2020 às 09:01, Flávia de Oliveira Batista disse:

Dim i, j, m, n As Integer Sheets("BASE").Select m = Cells(Rows.Count, 1).End(xlUp).Row Sheets("resultados").Select n = Cells(Rows.Count, 1).End(xlUp).Row i = 1 j = 1 Do Until i = m + 1 j = 1 Do Until j = n + 1 If Worksheets("BASE").Cells(i, 1) = Worksheets("resultados").Cells(j, 1) And Worksheets("BASE").Cells(i, 2) = Worksheets("resultados").Cells(j, 2) And Worksheets("BASE").Cells(i, 3) = Worksheets("resultados").Cells(j, 3) Then 'faz todas as verificações, comparando linha i da BASE com cada linha j de resultados: se houver linha igual, sai do loop e pula pra prox linha da base para começar as comparações novamente Exit Do Else j = j + 1 If j > n Then 'ou seja, comparou a linha i de BASE com todas as linhas j de resultados e não encontrou, assim copia e cola a linha i da base na última linha de resultados Sheets("BASE").Select Range(Cells(i, 1), Cells(i, 3)).Select Selection.Copy Sheets("resultados").Select n = Cells(Rows.Count, 1).End(xlUp).Row Cells(n + 1, 1).Select ActiveSheet.Paste Exit Do End If End If Loop i = i + 1 Loop

PRECISAVA DE ALGO PARECIDO

verificar na duas colunas na saida com com o banco de dados 

Olá, Guerreiros precisava de uma ajudinha no vba

na plan SAIDA na coluna ("C") possui o codigo do produto

na mesma plan na coluna ("R") possui o lote

na mesma plan na coluna ("D") possui a quantidade que saiu

na plan BD coluna ("D") possui o codigo do produto

na mesma plan na coluna ("C") possui o lote 

gostaria de uma ajuda pra poder fazer um loop na plan BD quando encontrado a linha que pode ser aleatória conforme a plan SAIDA ajustasse o estoque com o valor que saiu

Algum Guerreiro poderia dar uma ajudinha