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 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. Não entendi isto, mande um exemplo explicando. 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