Ir ao conteúdo
  • Cadastre-se

Erik Wesley

Membro Pleno
 Perfil  Explorar Conteúdo

  • Posts

    51

  • Cadastrado em

  • Última visita

 Tipo de conteúdo 

posts postados por Erik Wesley

    CONT.SE com dois critérios.

    em Microsoft Office e similares

    Postado

    Bom dia pessoal, estou com um problema deveras simples, mas que ainda não encontrei a solução.

     

    Tenho um tabela simples com duas colunas, uma com os setores e a outra com o STATUS.

    Eu preciso contar quantas células para cada setor estão como "Pendentes".

     

    Exemplo:

     

    SETOR   STATUS

    A             Pendente

    B             Concluída

    A             Concluída

    B             Pendente

     

    O resultado seria:

     

    Setor A:

    1 Pendente 

    1 Concluído

     

    Setor B:

    1 Pendente 

    1 Concluído

     

    Soma de ocorrências em uma célula

    em Microsoft Office e similares

    Postado

    Em 18/08/2018 às 16:04, Taiada disse:

    @deciog e @Erik Wesley

     

    Minhas sinceras desculpas pelo aborrecimento, sei que devo postar sempre uma planilha de exemplo, mas desta vez achei que o caso era mais simples, no que me enganei por completo. Desculpa de novo.

    As duas soluções ficaram muito boas, mas a macro do Erik não funciona se eu continuar acrescentando linhas na tabela. Ela entra em looping e acaba em erro... Se puder rever, seria bom ter essa solução tb.

    Agradeço a ambos pela solução.

    E não quero por pilha, mas o cediog foi grosso com razão. Não me ofendi porque entendo isso.

    Abraço

     

    Vou colocar uma condição no código para aumentar a quantidade de linhas e etc...

     

    Mas antes: Vai lhe servir?

    Se com 3 condições para veículo correto

    em Microsoft Office e similares

    Postado

    16 horas atrás, A.MarquesRibeiro disse:

    Amigos, boa tarde!

     

    Alguém poderia me orientar para a seguinte formula que estou tentando usar.

    O objetivo dessa condição é informar que cubagens < 35,000 M³ é toco, <= 50,000 M³ é truck,  >50 e >70,00 M³ Carreta.

     

    As duas primeiras condições, me informa qual transporte devo utilizar, mas a ultima apresenta falso.

     

    a formula q estou usando é essa:  =SE(I11<S6;"TOCO";SE(I11<=S7;"TRUCK";SE(I11>S8;"CARRETA")))

     

     

    Veículo.xlsx

     

     

    Basta colocar um =.

      

    =SE(A2<F2;"TOCO";SE(A2<=F3;"TRUCK";SE(A2>=F4;"CARRETA")))

     

    Controle vencimento excel retornando status

    em Microsoft Office e similares

    Postado

    agora, Francislei Oliveira disse:

    Boa tarde, está ao contrario, todas as datas anterior a hoje  ( 15/08/2018 ) deveria retornar "Vencida". Exemplo vencimento em 15/09/2018 status preciso que fique "Vence em 30 dias", Vencimento 15/10/2018 Status "Vence mais 30 dias",vencimento 20/08/2018 Status " Vence menos de 7 dias" . Vencimento 25/08/2018 "Vencimento menos de 15 dias".

     

    Obrigado pela ajuda.

     

     

    Nem reparei rsrs. Vou editar e postar em instantes o correto.

    adicionado 12 minutos depois

    Agora sim. 

     

    Use este código no lugar do último:

      

    =SE(B10=0;"Vence Hoje";SE(B10>0;"Vencido";SE(B10>-7;"Menos de 7 dias";SE(B10>-15;"Menos de 15 dias";SE(B10>-30;"Menos de 30 dias";SE(B10>-1000000;"Mais de 30 dias"))))))

     

    adicionado 12 minutos depois

    Apenas troque o B10 pela referencia correta.

    Procedimento grande e nomes iguais. Como fugir dos dois problemas?

    em Microsoft Office e similares

    Postado

    Em 13/08/2018 às 02:01, Rafael Delevidove disse:

    Pessoal. Eu vi tópicos distintos para dois problemas enfrentados. Porém nenhum explicando os dois na mesma situação.

     

    Então. Estou criando uma planilha com muitas imagens e conectores. Daí estava usando worksheet_change para criar um código que "mudasse as imagens de lugar" (na verdade é ocultar uma e aparecer outra em outro lugar) e trocasse os conectores de acordo com certos botões clicados. A planilha em si estava ficando incrível. Mas ...

    Apareceu uma mensagem "Procedimento muito grande". Daí eu vim aqui e vi um tópico em que a pessoa dava a solução de partir o procedimento em dois ou mais.

    Porém quando o fiz, apareceu dizendo que "não pode nomes iguais". Novamente vim aqui e li num tópico que a solução era juntar e fazer tudo em um procedimento. Me fazendo voltar no primeiro problema. Alguém me da uma luz aí? O que posso fazer para não acontecer nenhum dos dois problemas?

     

    Obrigado.

     

    Você pode upar sua planilha para podermos lhe ajudar.

    Abrir planilha específica com macro Excel VBA

    em Microsoft Office e similares

    Postado

    17 horas atrás, Charley Rocha disse:

    Olá,

     

    Eu estou com um problema relacionado a esse. Eu estou desenvolvendo um software em VB que lê dados de uma planilha do Excel e também alimenta essa planilha com outros dados. Ao iniciar um novo projeto, o usuário clica em um botão e o programa abre uma planilha "template" e salva com o nome que usuário digitou. Ao clicar no botão "Carregar", ao invés de iniciar um novo projeto o programa importa dados de uma planilha existente.

     

    Só que se o usuário digitar um nome de projeto que não existe e clicar em "Carregar" o programa dá erro e fecha. Eu gostaria de poder cercar essa situação e fazer aparecer uma MsgBox dizendo "Projeto não encontrado" e o programa continuasse aberto.

     

    Alguém pode me ajudar?

     

    Agradeço.

     

    Charley Rocha

     

     

    Você pode usar um sistema de busca nos nomes existentes e colocar alguns IF's para ajudar.

    adicionado 1 minuto depois
    Em 25/05/2009 às 10:21, rovisilva disse:

    Bom dia,

    Estou com um probleminha, não consigo resolvê-lo.

    Já pesquisei aqui no fórum e no google, acabei não achando nada. É algo simples, espero que alguém possa me ajudar.

    Tenho duas planilhas.

    Vamos chamá-las de A e B.

    A planilha A tem dois CommandButtons, o cmd1 e o cmd2.

    Quero que o cmd1 chame o arquivo planilha B, abrindo no sheet1 e o cmd2 chame o arquivo planilha B, abrindo no sheet2.

    Até agora eu fiz o seguinte:

    Dim Xls As Object

    Dim WkSheet As Object

    Dim WkBook As Object

    Private Sub CommandButton1_Click()

    Set Xls = CreateObject("Excel.Application")

    Set WkBook = Xls.Workbooks.Open("B.xls#Sheet1")

    Set WkSheet = WkBook.ActiveSheet

    Xls.Visible = True

    End Sub

    Private Sub CommandButton2_Click()

    Set Xls = CreateObject("Excel.Application")

    Set WkBook = Xls.Workbooks.Open("B.xls#Sheet2")

    Set WkSheet = WkBook.ActiveSheet

    Xls.Visible = True

    End Sub

    Dessa forma, ele abre o worksheet B, mas não encontra o Sheet1 ou Sheet2.

    Se eu não colocar o "#SheetX", ele abre a planilha normalmente, mas não no sheet que eu quero.

    Alguém pode me ajudar?:)

     

    Se puder colocar um exemplo seria mais simples...

    Copiar área de transferência para o VBA

    em Programação - outros

    Postado

    Em 12/08/2018 às 00:07, Maiko Deizepi disse:

    Boa noite, 

     

    Pessoal estou com um problema,  estou abrir uma calculadora no vba via shell("C:/...") ele abre a calculadora,  mas preciso fazer a conta nela e copiar automaticamente o resultado dela para área de transferência e colar nos códigos do vba. 

     

    Alguém pode me dar uma luz ? 

     

     

    você pode fazer o calculo direto no VBA e obter o mesmo resultado que a calculadora. 

    Macro que imprime somente até onde tem preenchimento

    em Microsoft Office e similares

    Postado

    @Luan Valle Mas iria gastar muita tinta. Vou ver o que posso fazer, aguenta um pouquinho só...

    adicionado 28 minutos depois

    @Luan Valle Veja só:

      

    Sub Imprimir()

MsgBox "Selecione o número de páginas que deseja imprimir na próxima janela", vbInformation, "Atenção!"

Dim uLin As Long
Dim Area As String
Dim Ref As Double

uLin = Application.WorksheetFunction.Count(ActiveSheet.Range("b4:b100"))

ActiveSheet.Select

Ref = 4 + uLin

If Ref < 28 Then
Area = "A1:N28"
Else
Area = "A1:N" & Ref
End If

ActiveSheet.PageSetup.PrintArea = Area
Application.Dialogs(xlDialogPrintPreview).Show
'ActiveWindow.SelectedSheets.Print copies:=1
MsgBox "Impresso!", vbInformation, "Sucesso"

End Sub

    Cole no lugar da Impressão.

     

    PS: Ele seleciona como base a data. Então, ele ira selecionar até a última data preenchida para impressão.

     

    PS2: Nos casos onde há poucos registros, como em agosto, ele iria selecionar até o último preenchimento, fazendo com que as assinaturas não saíssem na impressão, e como a planilha está bloqueada não consegui colocar uma condicional para sair as assinaturas e retirar o excesso de linhas (somente na impressão), nesses casos ele vai priorizar as assinaturas, então mesmo que você queira imprimir apenas 1 registro, ele ira selecionar toda a tabela correspondente até o fim das assinaturas e a data.

     

     

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!