Ir para conteúdo
Fórum Script Brasil

Michelle Alves

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    154

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Michelle Alves

  5. Relatorio de mais vendidos

    em VBA

    Postado

    Oi José, obrigada pela ajuda.

    Seu exemplo não é exatamente a minha necessidade, mas ajudou muito. Nele os mais vendidos vão sendo acumulados, e o que necessito é que seja pesquisado os mais vendidos em determinada data. Sei que você colocou uma pesquisa Inter Data, mas ela não está filtrando a quantidade por dia corretamente, percebeu isso ? De qualquer forma, acho que consigo adapta-lo, afinal consegui agora compreender qual a linha de raciocínio devo seguir.

    Esclarecendo sua duvida, aqui na empresa tem 2 Guilherme, e ambos somos do mesmo depto.

  8. Relatorio de mais vendidos

    em VBA

    Postado

    Então, eu vou gerar o relatório dos mais vendidos, mas geralmente será de algum período. Ou seja, da forma como você disse no penúltimo POST.

    Seria pesquisa DtaInicial à DtaFinal, somaValores e classifica?

    é exatamente isso que preciso.

    Obrigada

  9. Relatorio de mais vendidos

    em VBA

    Postado · Editado por Michelle Alves

    Ta legal. Estou postando uma planilha com o exemplo.

    Relatorio

    Seria pesquisada a data e a quantidade, então o relatorio deveria voltar mostrando a soma de cada item vendido, ordenado pelos mais vendidos. não estou sabendo como armazenar cada item vendido, para que ele seja somado e depois faca essa classificacao.

    Todos que puderem ajudar eu agradeco.

  10. Relatorio de mais vendidos

    em VBA

    Postado

    Oi Gente,

    Não se se me fiz entender, mas realmente estou precisando de uma ajuda, vou tentar explicar melhor. O que preciso é que o código some cada produto que foi vendido e depois ordene os produtos pelo número de vendas. Só que estou no limbo absoluto, sem saber por onde começar....

    Obrigada

  12. Proximo registro

    em VBA

    Postado

    Oi Nelson Boa noite,

    Primeiramente obrigada por sua presteza.

    Veja só, colocando a estrutura como colunas eu poderia cadastrar no máximo 2560 clientes, uma vez que esse é o limite de colunas, já colocando como linhas, meu limite será mais de 65 mil clientes. Por isso escolhi trabalhar dessa forma. Sobre o Access eu não tenho muito conhecimento, até porque se tivesse eu iria realmente construir o projeto por lá. De qualquer forma, caso tenha alguma sugestão de como realizar a rotina que necessito pelo Excel irá me ajudar e muito.

    Obrigada,

    Michelle

  14. carregar textbox

    em VBA

    Postado

    Nossa o José tem razão, não existe tal propriedade no TEXT, desculpe mas quando li o intervalo que você queria já pensei no Listbox na hora. Até porque não tem como carregar um TEXT com este intervalo, uma vez que ele só poderá carregar um dado de cada de vez. Não seria melhor usar o Listbox ?

  15. Proximo registro

    em VBA

    Postado · Editado por Michelle Alves

    Boa noite,

    Estou terminando meu projeto, mas ficou faltando uma rotina para fazer com que ao clicar no Button PROXIMO os dados exibidos nos TEXTBOXES sejam avançados para 5 células a frente cada um, ate o fim. E a mesma coisa para o ANTERIOR, porém 5 células anteriores até o início.

    Deixo abaixo um link com um exemplo da minha necessidade. O form em questão sera iniciado ao abrir o arquivo.

    Obrigada

  19. Pesquisar Valor em todas colunas

    em VBA

    Postado

    Kuroi boa noite e obrigada,

    Funcionou corretamente, só tem um detalhe. Sobre as outras colunas do ListBox; Tenho no total 3 colunas, que são referentes ao TEXTBOX no formulario. Porém, ele buscaria não na próxima coluna, mas na próxima linha da planilha. Tentei fazer da seguinte forma, mas acabou faltando definir WITH, é preciso colocar WITH ? Veja como ficou:

    Private Sub CommandButton3_Click()
Dim r As Range
Dim j As Range
Dim m As Range

ListBox1.Clear
If OptionButton1.Value Then
    Set r = Worksheets("CRM").Range("C2")
    j = r
    m = r
    Do While r.Value <> ""
        If r.Value = TextBox13.Text Then
            ListBox1.AddItem r.Value
            ListBox1.AddItem j.Value
            ListBox1.AddItem m.Value
            Exit Do
        End If
        Set r = r.Offset(, 1)
        Set r = r.Offset(, 2)
        Set r = r.Offset(, 12)
    Loop
Else

    ......................

    Ate mesmo no Duplo click para transferir os valores do List para os TEXT ficariam diferentes, pois geralmente eu usaria o .BoundColumn, mas nesse caso seria a Linha, ai desconheço qual propriedade usar nesse caso também.

  21. Pesquisar Valor em todas colunas

    em VBA

    Postado

    sim, Kuroi o LIst vai ter sempre uma linha pra ser exibida, mas no duplo clique deverão passar todos os dados para os respectivos TEXT ao lado. já na pesquisa, se a pesquisa for por código ele encontrará apenas um, mas se for por nome, corre o risco de achar mais de um, por exemplo, se digitar José, pode ser que haja mais de um.

    Obrigada.

  24. Inserir dados na primeira coluna que estiver vazia

    em VBA

    Postado

    Boa noite,

    Preciso mais uma vez da ajuda de vocês.

    Tenho uma planilha onde preciso que caso o TEXTBOX1 seja igual a algum dado já existente na linha 2 de alguma Coluna que os dados sejam adicionados nessa mesma coluna, mas na próxima linha vazia. Senão os dados serao incluidos na linha 2 da primeira coluna que estiver vazia.

    Obrigada

  25. Alteração de registros substituindo linha errada

    em VBA

    Postado

    Realmente Kuroi,

    Já até consegui, mas sua forma ficou mais simples. Só não vai atualizar o item deletado, né.... Veja só:

    If Not x Is Nothing Then

    Sheets("CREC").Activate

    Set rgOrigem = Sheets("CREC").Range("B" & i & ":N" & i)

    Lastrow = Sheets("BAIXA").Cells(Rows.Count, 2).End(xlUp).Row

    If Lastrow < 3 Then Lastrow = 3

    rgOrigem.Copy Sheets("BAIXA").Range("B" & Lastrow + 1)

    rgOrigem.EntireRow.Delete

    End If

    MSGBOX "Registro baixado com sucesso"

    ListBox1.Object.Clear

×
×
  • Criar Novo...