Ir ao conteúdo
  • Cadastre-se

Schiavinatto

Membro Pleno
  • Posts

    150
  • Cadastrado em

  • Última visita

posts postados por Schiavinatto

  1. A fórmula em E5 será:   

     =SE(ou(C5="";C5=0;D5="";D5=0);"";C5-D5)

    , e copiar para as demais abaixo.

     

     

    Explicando: Se ( C5=nada ou C5=0 ou D5=nada ou D5=0 ); o resultado é nada "" ; caso contrario fazer a conta C5-D5 )

     

    Desta maneira se não houver os dois valores acima de zero não mostrara o resultado.

     

    Se puder haver zero com valor, a formula é esta:

     

    =SE(ou(C5="";D5="");"";C5-D5)

     

    • Curtir 1
  2. Ops... oi  @cristiane borre de souza, erro descoberto, nos titulos das respostas D1 etc retire o D deixe só os números, este D na frente causa erro na digitação das resposta com D, descobri isto por ter refeito o arquivo e as fórlulas estavão certas e funcionando ao digitar respostas D, se autocolpletava D1, por exemplo, com  base no que já hahia digitado nesta coluna, ao tentar acertar, as vezes, ficada "D " com um es paço, esse é o erro.

     

    Obs.: Altere a terminação .zip para .ods

    1296543_GERED_refeito_gs.zip

  3. ola @cristiane borre de souza, segue as fórmulas de as10:

    =soma(se(d10=$d$8;1;0);se(e10=$e$8;1;0);se(f10=$f$8;1;0);se(g10=$g$8;1;0);se(h10=$h$8;1;0);se(i10=$i$8;1;0);se(j10=$j$8;1;0);se(k10=$k$8;1;0);se(l10=$l$8;1;0);se(m10=$microsoft8;1;0);se(n10=$n$8;1;0);se(o10=$o$8;1;0);se(p10=$p$8;1;0);se(q10=$q$8;1;0);se(r10=$r$8;1;0);se(s10=$s$8;1;0);se(t10=$t$8;1;0);se(u10=$u$8;1;0);se(v10=$v$8;1;0);se(w10=$w$8;1;0))

    e de at10:

     

    =soma(se(x10=$x$8;1;0);se(y10=$y$8;1;0);se(z10=$z$8;1;0);se(aa10=$aa$8;1;0);se(ab10=$ab$8;1;0);se(ac10=$ac$8;1;0);se(ad10=$ad$8;1;0);se(ae10=$ae$8;1;0);se(af10=$af$8;1;0);se(ag10=$ag$8;1;0);se(ah10=$ah$8;1;0);se(ai10=$ai$8;1;0);se(aj10=$aj$8;1;0);se(ak10=$ak$8;1;0);se(al10=$al$8;1;0);se(am10=$am$8;1;0);se(an10=$an$8;1;0);se(ao10=$ao$8;1;0);se(ap10=$ap$8;1;0);se(aq10=$aq$8;1;0))

    é só replicar para as celulas abaixo.

    • Curtir 1
  4. Em 04/12/2016 às 20:01, g.schiavinatto disse:

    @TianK sobre a "Sub MacroMaior" funcionou perfeitamente.

     

    E sobre seu comentário "Muito bacana a sua ideia de uso. Gostei bastante!", estou montando um arquivo com Sub-Macros (até agora +/- 40), estou montando com as básicas de uso ( selecionar, copiar, colar etc ) e algumas especiais, como esta sua, estou organizando o arquivo, assim que ficar utilizável te passarei para sua avaliação e comentário.

     

    Só um exemplo: Uma Macro que seleciona uma área, copia e cola em outro lugar, seria montada assim:


     

    
    sub Macro
    ' selecionar a área para copiar
    Selecionar "Planilha1.A1:C25"
    ' copiar a área selecionada
    Copiar
    ' Ir para o local de colagem
    Selecionar "Planilha5.A7"
    ' colar
    Colar
    end sub

    Assim a chamada é simples, como escrever uma "Receita de Bolo". hahahahaha.

     

    Ola @Tiank, o estudo acima estava parado, dei mais um empurrão e estou passando para ti dar uma olhada e comentar.

    TianK_amostra.zip

    • Curtir 1
  5. Alô, alô, alguém conhece algum colecionador de hardware, que falte um MSX. Necessito liberar espaço.

     

    Expert DD Plus (1989) - drive de disquete de 3 1/2" embutido, + monitor 40 colunas verde (lembra), + cartucho 80 colunas + diversas revistas + disquetes de jogos e programas.

     

    Em 2014, montei, liguei e funcionou.....

     

     

    • Curtir 1
  6. '====================================================================
    sub Extrair_Unicos ' vai pedri "Planilha1.A1:A8" "Planilha2.A7"
    '====================================================================
    'https://www.clubedohardware.com.br/profile/697345-tiank/ (parcial)
    rem ----------------------------------------------------------------------
    Dim mCamposFiltro(0) As New com.sun.star.sheet.TableFilterField
    Dim x as String
    Dim y as String
    Dim xi as String
    Dim yi as String
       x = inputbox("Área de extração")
       y = inputbox("Célula inicial para descarga") 
          msgbox "Area de extração: "& X &" , Célula inicial para descarga: "& y
       xi = Split( x,"." ) '<===Erro aqui.......
       yi = Split( y,"." )
       oPlan = ThisComponent.Sheets.getByName( xi(0) )
       oIntervalo = oPlan.getCellRangeByName( xi(1) )
       '=> esta parte permanece idêntica <=
       'Descritor do filtro
       oDescFiltro = oIntervalo.createFilterDescriptor( True )
        'Definir os campos
       mCamposFiltro(0).Field = 0
       mCamposFiltro(0).Operator = 1
       'Estabelecer o destino
       oPlan = ThisComponent.Sheets.getByName( yi(0) )
       oDestino = oPlan.getCellRangeByName( yi(1) ).getCellAddress()
       '=> Restante permanece igual <=
       'Propriedades do filtro padrão
       oDescFiltro.ContainsHeader = False
       oDescFiltro.SkipDuplicates = True
       oDescFiltro.CopyOutputData = True
       oDescFiltro.OutputPosition = oDestino
       oDescFiltro.FilterFields = mCamposFiltro
       oIntervalo.Filter( oDescFiltro )
    end Sub

    Oi @TianK, estou tentando colocar esta Macro acima em um Menu, que ao acionar, ela peça a fonte (área a extrair) e a célula inicial da resposta.

    porém esta dando erro na linha "xi = Split.........."

    Por gentileza, poderia dar uma analisada.

    Grato.

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

×
×
  • Criar novo...

 

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

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!