Márcio Rodrigues

Olá ramon.ramon

Veja se é por aí!!!

saber se uma data está dentro de um período.rar

Olá Miguelriedel,

você pode usar algo assim:

Private Sub CommandButton1_Click()
    
    UserForm1.ListBox1.ColumnCount = 3
    
    For i = 0 To ListBox2.ListCount - 1
    
         With UserForm1.ListBox1
    
            .AddItem
            .List(.ListCount - 1, 0) = ListBox2.List(i, 0)
            .List(.ListCount - 1, 1) = ListBox2.List(i, 1)
            .List(.ListCount - 1, 2) = ListBox2.List(i, 2)
        
        End With
    
    Next i
    
    UserForm1.Show
    
End Sub

Veja se é por aí!!!!

transferir dados entre listbox v2.rar

Olá Miguelriedel,

Não consegui gerar a tela que você mencionou.

Dá erro porque não tem os UserForm5, UserForm4 e UserForm3 no arquivo.

Explique como faço para chegar no resultado que você comentou.

Té +

Olá Luis Techlhar Fontana

Manda aí o arquivo para analisarmos.

Té +

Olá Miguelriedel,

Mande o arquivo para que possamos analisar.

Té +

Olá Miguelriedel,

Veja se atende,

Té +,

transferir dados entre listbox.rar

Olá isabela queiroz

Tentando colaborar, veja se é por aí!!!

Exemplos.rar

Olá Luis Techlhar Fontana

Tente usar uma fórmula para filtrar os dados que devem aparecer no gráfico, ou use o eixo auto expansível conforme https://fabiovianna.com.br/criar-grafico-auto-expansivel/.
Segue exemplo.

Veja se é por aí!!!

Gráfico com eixo dinãmio.xlsx

Olá Caio Rodrigues Almeida

Altere seu código como abaixo e teste:

On Error GoTo 0   'a partir daqui 

  'fonte: https://funcaoexcel.com.br/remover-vinculos/

   Dim myLinks As Variant
   myLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

   For i = 1 To UBound(myLinks)
                ActiveWorkbook.BreakLink Name:=myLinks(i), Type:=xlLinkTypeExcelLinks
    Next i

'ate aqui

WB.SaveAs FileName:=ThisWorkbook.Path & "\" & FileName

veja se é por aí...

Olá Carlos Eduardo de Morais:

Não sei se você mandou o arquivo certo, porque após a tela de login dá erro neste objeto: CmbUsuario_Alt. Não localizei em frmCadastro.

Olá Jefferson TS

Altere esta parte do código e veja se resolve:

Dim PLAN As String
PLAN = UserForm1.ComboBox1.Text

'fonte https://docs.microsoft.com/pt-br/office/vba/api/excel.range.find

dia = CDate(UserForm1.TextBox8.Text) 'formatar para data
Worksheets(PLAN).Activate

'linha = Cells.Find(dia).Row
'
'ActiveSheet.Cells(linha, 7) = UserForm1.TextBox1.Text
'ActiveSheet.Cells(linha, 8) = UserForm1.TextBox2.Text
'ActiveSheet.Cells(linha, 9) = UserForm1.TextBox3.Text
'ActiveSheet.Cells(linha, 10) = UserForm1.TextBox4.Text
'ActiveSheet.Cells(linha, 11) = UserForm1.TextBox5.Text
'ActiveSheet.Cells(linha, 12) = UserForm1.TextBox6.Text

Dim rgn As Range
    
    With Worksheets(PLAN).Range("G:G")
        
        Set rgn = .Find(dia, LookIn:=xlValues)
        
        If Not rgn Is Nothing Then
            
            linha = rgn.Row
            
            Do
                
                ActiveSheet.Cells(linha, 7) = UserForm1.TextBox1.Text
                ActiveSheet.Cells(linha, 8) = UserForm1.TextBox2.Text
                ActiveSheet.Cells(linha, 9) = UserForm1.TextBox3.Text
                ActiveSheet.Cells(linha, 10) = UserForm1.TextBox4.Text
                ActiveSheet.Cells(linha, 11) = UserForm1.TextBox5.Text
                ActiveSheet.Cells(linha, 12) = UserForm1.TextBox6.Text
                
                Set rgn = .FindNext(rgn)
            
            Loop While Not rgn Is Nothing
        
        End If
    
    End With

If CheckBox1.Value = True Then
ActiveSheet.Cells(linha, 6) = "X"
End If

Veja se é por aí......

Olá josequali

Tente isto:

Textbox2.Text = Right(TextBox1.Text, Len(TextBox1.Text) - InStrRev(TextBox1.Text, ".") + 1)

Att,

Olá lucasjuliao

Dúvida 1: você quer montar um cadastro com os campos que estão no formulário ou com todos os campos que estão na plan cadastro?

Dúvida 2: A pesquisa é por um campo exclusivo ou vários?

Boa Páscoa!!!

Att,

Olá Ana Carolina Teixeira

Veja se é por aí...

Projeto_tcc_macro_teste v1.rar

Olá Ana Carolina Teixeira

Não consegui entender o q você precisa. O resultado está na plan calculo nas colunas T e V... qual outra informação q você que pegar e levar pra onde?

Olá marcinhovn

Fiz alterações nos formatos das datas, moedas e porcentagem.

Ao PESQUISAR a célula ativa passa a ser o registro localizado.

Veja se é por aí!!!

Márcio

Té +

Controle Facção v1.rar

Olá luis_uardo

Cara tive uns problemas computacionais. Só agora tô podendo rever os posts.

Manda aí a ultima versão e qual o problema... vamos ver se resolvemos isto.

abs...

Márcio

Olá AlanBC

Desculpa aí cara... meu computador quebrou e só agora consegui arrumar. Acho que você já resolveu seu problema.

Se não informe aí que tento te ajudar.

Abraços

Olá diego_janjao

Mas a busca pode ser só por lote?

Ou o lote esta associado a um produto que esta associado a um fornecedor?

Como defino se há estoque?

A formula grande está na AC... Qual o objetivo dela?

Té +

Márcio

Olá luis_uardo

Em 25/07/2018 às 14:43, luis_uardo disse:

A planilha classifica todos os dados por data, então se alimentá-la hoje(01) com os dados de dois dias a frente (03) e, calhar de, no dia seguinte (02), precisar preenchê-la com os dados de amanhã (03), a transferência irá duplicar os ultimos dados da planilha (exemplo do dia 7 anexado). Para isso, acredito que uma formatação condicional deva resolver (porém não tive muito êxito com meu teste). 

Isto não acontece aqui, quando lido o registro na planilha AGENDAMENTOS a macro insere na coluna L a palavra "transf.", assim este registro não é lido novamente.

Em 25/07/2018 às 14:43, luis_uardo disse:

A data da planilha "AGENDAMENTOS" poderia ser transferida para a célula "A2" de todas as planilhas e, junto a isso, que somente os dados da data atual sejam enviados para a planilha "1"? 

Pois dessa forma, só usaríamos uma única planilha para todos os dados, tendo em vista que esta é um formulário.

Não entendi isto, mande um exemplo explicando.

Em 25/07/2018 às 14:43, luis_uardo disse:

A última é, aparentemente, simples. Toda vez que abro a planilha e preencho o formulário no campo "Data" ou "Horário", o num lock é desativado

Vou verificar.

Té +

Márcio

Olá diego_janjao

Dúvida:

Para que serve na sua pesquisa o campo LOTE, DESDE e SÓ COM ESTOQUE.

FORN e CÓD eu entendi.

Té +

Márcio

Olá diego_janjao

Sugestão:

Os dados incluídos na plan Registro de Recebimento 2019 poderiam ser via formulário vba, assim você poderia excluir todas as fórmulas desta planilha.

Explique melhor as entradas e saídas do que você precisa para que possamos te ajudá-lo.

Té +

Márcio

Olá Layo Kaminski

Made o seu arquivo, pois aqui não dá erro.

Ao limpar a cboEmpresas (usei o delete) e dar tab o foco pula para TextBox1 (Data), sem apresentar erro.

Té +

Márcio

Olá Vinicius Passsos

Não entendi muito bem o seu problema.

Caso seja transformar cores em HEXADECIMAL para RGB tente isro:

'consultado Rodrigo Ferreira no site https://www.funcaoexcel.com.br/obter-codigo-rgb-de-uma-cor/

Sub CorRGB()
 
 yourColor = &H8000000F
 
 R = yourColor And 255
 
 G = yourColor \ 256 And 255
 
 B = yourColor \ 256 ^ 2 And 255

End Sub
 

Veja se é por aí...

Té +

Márcio

Olá

Cole logo abaixo do:

Private Sub cboEmpresas_Change()

  TextBox4 = ActiveCell.Formula = _
  "=VLOOKUP(Cadastro_Empresas[Empresa],C[-7]:C[-3],2,FALSE)"

    
End Sub

isto:

'consultado Pedro Martins em http://www.sigaonerd.com/2016/11/vba-artigo-022-efetuando-pesquisas-com.html

Private Sub cboEmpresas_Click()
                
    Dim rngRange As Range
    Dim searchCompany As String
    Dim rngRangeResult As Range
    Dim lRow As Long
    
    Set rngRange = Range("a1:a" & Rows.Count)
            
    searchCompany = cboEmpresas.List(cboEmpresas.ListIndex, 0)
    
    Set rngRangeResult = rngRange.Find(searchCompany, LookIn:=xlFormulas, LookAt:=xlWhole, _
        SearchOrder:=xlByColumns)
        
        If Not rngRangeResult Is Nothing Then
        
            lRow = rngRangeResult.Row
        
            TextBox4.Text = Cells(lRow, 3).Value
        
        End If
    
End Sub

Pode apagar o código Private Sub cboEmpresas_Click()

Veja se é por aí...

Té +

Márcio