jcgmcs

Tentei assim mas ainda num deu.. Desculpe a minha iguinorância rsrs

Eu removi sim por 'comentário As atribuições você ker dizer pra eu substituir onde tem Frutas e Conta é isso..?

Midori já fiz isso e o erro continua....

Aqui...

Dá esse erro em qualquer posição q eu coloque esse código... Nessas linhas com Fruta e Conta até o momento não tinha havido necessidade de alterá-las porisso nem mexi nelas...

Código: Me.MultiPage2.Pages(1).Controls.Add("Forms.Label.1", , True) Ta dando Erro de compilação: Era esperado: =

Bom dia!! Sim pensei em ordenar dessa maneira mas minhas colunas vae até Gy5000 e há muitas em que os dados não podem ser mudados de lugar (Linha) tdeu...

Midori boa noite... Solução qual é..??

Midori socorro vei! Fiz todos ajustes no código pra colocar dentro da MultiPage2 no "Initialize" e de maneira alguma consegui fazer exibir Dados na Page2. O código até tá funcionando quando abro o Form mas os dados só aparecem no Form principal e não na Page2. Vejae q arrastei um pouco a margem esquerda e os daods estão lá mas atrás da Page2 tdeu! Essas colunas com JAN/24 não esquenta, isso é uma outra coisa que terei q fazer manualmente mesmo no decorrer do tempo beleza!

Midori boa noite! Só mais uma.. Rss Queria que a listagem ficasse em Ordem Alfabética... Tem como deixar assim??

beleza meu querido... você é o Cara!! Ficou Show de bola mesmo... rss Depois vou adaptar no meu projeto e vamos ver se tudo funcionará bunitinho.. obrigado Midori.. Deus te abençoe ae e Sucesso neste 2024 pra VCs todos... Abç!

tá ficando bacana hein! rsrs Só não consegui diminuir espaçamento entre as linhas.. Onde é q ajusto isso?

Meu Form será desse jeito no anexo... Não entendi como fazer a margem, multiplicação... não existem dados dentro do Form...

Midori.. ficou Show de bola!! Favor, agora preciso fazer uns ajustes.. Meu Form vae ter Largura 1032x600 Altura Preciso de uma Margem superior para os Dados à partir da décima linha, tomando como referência os pontilhados do próprio Form tdeu! Ajustar tbém para 3 colunas de produtos, ou seja, cada coluna deve ter 43 linhas tdeu! É possível fazer tbém somente as contagens ficarem em Vermelho?

tá... e como coloco isso dentro do Form pra funcionar!? Dá uma luz ae né..!!

Tndi.. nesse caso você tem razão mesmo.. a cada novo item tenho mesmo q mexer no código.. e no momento já tenho 85 itens. Mas então, outra coisa éq meu projeto já todo feito em ListView e nem gosto muito de ListBox rsrs Bem enfim, você pode me dar esse Help ae com o código nas Labels mesmo..?! Prefiro dessa maneira...

Midori eu prefiro q a Label faça isso automático até porque não quero adicionar uma coluna extra de qntdes.. Ao abrir o Form, quero busque na coluna cada um dos itens e me retorne com as quantidades em cada Label conforme o produto tdeu...

Bom dia! Ajuda pra fazer código que retorna nas Labels as qntdes de cada Item da coluna. Anexo planilha modelo de como deve ficar... obrigado! VBA Plnanilha Modelo - Label Contar Itens Coluna.7z

Olá! Alguém poderia ao menos dizer se isso é possível de se fazer..? Queria que, em vez de ficar arrastando a tela do formulário pra poder digitar na planilha, usar as teclas Alt e Tab...

Boa tde! Seria possível alternar Formulario e Planilha com Alt + Tab ?? Como seria o código?

Boa tde! Tenho as Textbox "Cód" com C0001 e Textbox "Nome" com Carlos Como fazer automático, a junção dos dois conteúdos na "TextBox3" como o exemplo abaixo: C0001 - Carlos E também dessa maneira: Textbox "Cód" com C0001 e Textbox "Nome" com Carlos e Textbox "Whats" com xx xxxxx-xxxx C0001 - Carlos xx xxxxx-xxxx

Olá! Como fazer código abaixo carregar combo "cb_Procurar" em ordem alfabética..? Private Sub ComboBox1_Change() Dim Campo As Range Dim Coluna As Integer Dim Linha As Long Static Inicia As Boolean If Inicia = True Then Set Campo = [3:3] With WorksheetFunction If .CountIf(Campo, ComboBox1.Value) Then Coluna = .Match(ComboBox1.Value, Campo, 0) Call cb_Procurar.Clear For Linha = 5 To ThisWorkbook.ActiveSheet.UsedRange.Rows.Count If Cells(Linha, Coluna) <> "" Then 'If .CountIf(Cells(2, Coluna).Resize(Linha - 1), _ Cells(Linha, Coluna)) <= 1 Then If .CountIf(Cells(5, Coluna).Resize(Linha - 4), Cells(Linha, Coluna)) <= 1 Then Call cb_Procurar.AddItem(Cells(Linha, Coluna)) End If End If Next Linha End If End With End If Inicia = True End Sub

Boa tde...!! Será q mais alguém com uma solução..?!

beleza Wendel... Deu certo e ficou joiaa!! obrigado e Abç ae..

Boa tde! Ajuda com adaptação desse código abaixo do nosso amigo Wendell... Private Sub Worksheet_Change(ByVal Target As Range) 'Por Wendell Dim Cell As Range For Each Cell In Target With Cell If .Column >= 50 And .Column <= 50 Then 'Coluna "AX" Range("AY" & .Row).NumberFormat = "@" 'AY é Coluna VBA Range("AY" & .Row) = Range("AX" & .Row) 'AX é Coluna Fórmulas End If End With Next End Sub Preciso q ao digitar e dar "Enter" na celula a partir de "L5" seja adicionado em "Y5" a alteração da "AX5" em modo texto, mantendo a formulação de "AX" Tentei alterando essa linha: If .Column >= 50 And .Column <= 50 Then 'Coluna "AX" que até funciona mas só com "Enter" manual na própria "AX" Quero automático, sempre que alterar em "L" Anexo, modelo da Plan...