Planilha com icones de alerta de estoque de Produtos no Excel

Se você está procurando uma maneira eficaz de gerenciar o estoque de seus produtos no Excel, este vídeo é exatamente o que você precisa!
Aprenda a criar uma planilha incrivelmente útil que utiliza ícones de alerta para monitorar o status do estoque. Com este tutorial passo a passo, você vai descobrir como configurar ícones que indicam quando o estoque está baixo, adequado ou excessivo.
Mantenha-se no controle de seus produtos e tome decisões informadas sobre reabastecimento com esta solução inteligente no Excel.
👉 Inscreva-se em nosso canal: @DevNascimento
👉 Ative as notificações (só clicar no sininho🔔)!
👉 Deixe seu like! ❤️
👉LikedIn: / donascimento
#excel

[@lucianogandolfo]

O melhor nos vídeos do Marcelo é ele fazer parecer muito simples, não importa o tema. Não é atoa que seu curso de VBA, na minha opinião, é o melhor que tem. Parabéns pelos conteúdos que disponibiliza gratuitamente!!

[@WilGomes]

Parabéns pelo vídeo, show

[@alexalvessantos8456]

Top como sempre. Sucesso.

[@carlos6116cs]

Vídeo top das quebradas.

[@LUIZ-VBA]

Ótimo gostei e é muito simples

[@lucascavalcante8411]

Ótimo 👍🏻 gostei da função escolher, usava sempre a Se, top

[@robertoliveira5852]

Não pare de fazer conteúdo

[@felipebarros7166]

Muito bom eu gostria de saber se tem como Salvar dados de formulário VBA para planilha, só que eu queria que o textbox1 e textbox2 fosse gravado para a planilha em formato de número e não geral como normalmente fica. Se puder ficar assim neste formato: R$ 1.000,00 na planilha como número eu fico grato. Se alguém aqui puder me ajudar eu agradeço.

[@DevNascimento]

Você quer que o valor já vá para a planilha no formato de moeda?

[@felipebarros7166]

@@DevNascimento Sim! Esta é a minha formula: Private Sub CMBCADASTRARVENDA_Click() Dim wsClientes As Worksheet Dim wsVendas As Worksheet Dim cpf As String Dim valor As Currency Dim numero As Double Set wsClientes = ThisWorkbook.Sheets("CLIENTES") Set wsVendas = ThisWorkbook.Sheets("VENDAS") cpf = Trim(Me.TXTCPF1.Value) If cpf = "" Then MsgBox "PREENCHA O CAMPO CPF!", vbInformation, "CAMPO VAZIO!" ElseIf WorksheetFunction.CountIf(wsClientes.Range("C:C"), cpf) = 0 Then MsgBox "CLIENTE NÃO CADASTRADO.", vbInformation, "CLIENTE NÃO CADASTRADO" ElseIf Trim(Me.TextBox9.Value) = "" Then MsgBox "PREENCHA TODOS OS CAMPOS.", vbInformation, "CAMPO VAZIO" Else Dim ws As Worksheet Dim lastRow As Long ' Definir a planilha de destino Set ws = ThisWorkbook.Sheets("VENDAS") ' Encontrar a última linha preenchida na coluna A da planilha "Clientes" lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1 ' Copiar os dados dos campos para a planilha "Clientes" ws.Cells(lastRow, 1).Value = TextBox10.Value ws.Cells(lastRow, 2).Value = TextBox9.Value ws.Cells(lastRow, 3).Value = TXTCPF1.Value ws.Cells(lastRow, 4).Value = NOMECADVENDA.Value ws.Cells(lastRow, 5).Value = TextBox2.Value ws.Cells(lastRow, 6).Value = TextBox3.Value ws.Cells(lastRow, 7).Value = ComboBox1.Value ws.Cells(lastRow, 8).Value = ComboBox2.Value ws.Cells(lastRow, 9).Value = ComboBox3.Value ws.Cells(lastRow, 10).Value = ComboBox4.Value ws.Cells(lastRow, 11).Value = ComboBox5.Value ws.Cells(lastRow, 12).Value = TextBox13.Value ws.Cells(lastRow, 13).Value = TextBox6.Value ws.Cells(lastRow, 14).Value = TextBox7.Value ws.Cells(lastRow, 15).Value = TextBox8.Value ' Quero que esta parte vá para a planilha como número desta forma( R$ 1.000,00) ws.Cells(lastRow, 16).Value = ORIGEMDOCLIENTE1.Value ws.Cells(lastRow, 17).Value = STATUSCLIENTE2.Value ws.Cells(lastRow, 18).Value = ComboBox6.Value ws.Cells(lastRow, 19).Value = ComboBox7.Value ws.Cells(lastRow, 20).Value = TextBox4.Value ws.Cells(lastRow, 21).Value = TextBox5.Value ws.Cells(lastRow, 22).Value = TextBox12.Value ws.Cells(lastRow, 23).Value = TextBox11.Value ws.Cells(lastRow, 24).Value = TextBox14.Value ws.Cells(lastRow, 25).Value = ComboBox8NOMEDOCONSULTOR.Value ws.Cells(lastRow, 31).Value = TextBox50.Value '''''''''''''''''''''''''''''' ' Limpar os campos do formulário LimparCampos1 ' Gravar informações na planilha de vendas ' Código para gravar as informações na planilha de vendas MsgBox "PROPOSTA GRAVADA COM SUCESSO.", vbInformation, "GRAVADA COM SUCESSO" End If End Sub

[@felipebarros7166]

@@DevNascimento é pq eu tenho que fazer algum calculos com eles e como ele fica como formato geral quando eu uso uma formula na planilha ela não aceita pois não esta no formato número.