Ir ao conteúdo
  • Cadastre-se

Arthur Dias

Membro Júnior
  • Posts

    19
  • Cadastrado em

  • Última visita

posts postados por Arthur Dias

  1. @CasaDoHardware é que tem uma outra planilha que utilizo, ta na aba verificaçao que depende da planilha da aba calculo e vice versa,  eu vi uma aula aqui no youtube e fiz o que dei conta , mas nao esta dando certo:

      Olha o jeito que fiz: Pode me dizer onde estou errando?, o problema é: as formulas que estão na celula A15:AE15 não sao copiadas por exemplo para A16:AE16. N1= numero de copias que quero que seja feito.
    Private Sub btNTrechos_Click()

    Dim W As Worksheet 'Manipula Planilha
    Dim Ln As Long 'Controla a linha de gravação
    Dim Col As Integer 'Controla a coluna onde
    'vou inserir os dados
    Dim Trechos As String 'Armazena os trechos
    Dim qntd As Long 'Armazena o número de elementos
    Dim A As Long 'loop

    Set W = Sheets("CÁLCULO")
    W.Select
    W.Range("A15:AE15").Select

    Ln = 15 + 1
    Col = 1

    Do While ActiveCell.Row = N1


    Trechos = ActiveCell.Value
    qtd = ActiveCell.Offset(1, 0).Value

    For A = 1 To qntd

    W.Cells(Ln, Col).Value = 1
    W.Cells(Ln + 1, Col).Value = Trechos

    Ln = Ln + 1



    Next A

    Loop

    Set W = Nothing


    End Sub

  2. 1 - Estou precisando de uma macro onde, na aba CÁLCULO, celula N1 eu insira a quantidade de linhas a serem copiadas, para este caso, a linha a ser copiada é A15:AE15, nelas tenho as formulas que preciso, então preciso por exemplo se eu indicar 3 em N1, será gerado automaticamente: A16:AE16, A16:AE16  com a formatação que esta A15:AE15. 

    2 - E também se possível (SE FICAR MUITO COMPLICADO NÃO PRECISA FAZER), se eu inserir um novo valor em N1 que seja exibido uma mensagem perguntando se tem certeza que deseja alterar, daí os botões de cancela e ok...

    Se der pra fazer pelo menos primeira parte ja ficaria muito bom..

    macro.xls

  3. @DJunqueiraseguinte: na celula N19 por exemplo, tem que ter essa formula =SE($B19="c";$M19-$K19; mas se não, quero que seja feito uma procura na coluna "O" o trecho ou pontos coluna A ou BC que seriam o trecho anterior a N19, e que N19 fosse igual ao menor valor encontrado na coluna O.   é como se fosse na coluna G onde usei o somase, mas nesse caso nao é para somar...Na aba Calculo

    PLANILHA ESGOTO.xls

  4. 13 horas atrás, Arthur Dias disse:

    @DJunqueira @CasaDoHardwareNas celulas n15 a n44 eu preciso de alguma formula onde: na linha montante da coluna N tenha a codição de se B15  por exemplo for igual a "c" que ela faça m15-k15 assim como nessa formula: =SE($B15="c";$M15-$K15), mas se nao, quero que ela pegue a menor jusante correspondente ao trecho correspondente, tem como ajuda nisso?, coloquei agora essa foto pra ver se da pra entender, quero por exemplo que a cota da montante do trecho 10 seja igual a menor cota entre as jusantes 1, 4 e 6

     

    PLANILHA ESGOTO

  5. @DJunqueira Nas celulas n15 a n44 eu preciso de alguma formula onde: na linha montante da coluna N tenha a codição de se B15  por exemplo for igual a "c" que ela faça m15-k15 assim como nessa formula: =SE($B15="c";$M15-$K15), mas se nao, quero que ela pegue a menor jusante correspondente ao trecho correspondente, tem como ajuda nisso?, coloquei agora essa foto pra ver se da pra entender, quero por exemplo que a cota da montante do trecho 10 seja igual a menor cota entre as jusantes 1, 4 e 6

     

    PLANILHA ESGOTO.xls

    Sem explicação.jpg

  6. @DJunqueira como eu poderia fazer?

    @CasaDoHardware o valor procurado está na coluna T "Q/Raiz I", quero achar o valor mais próximo na aba verificação onde está colorido, por exemplo na celula t15  da aba cálculo o valor é 15,22, o valor mais próximo esta na celula AC18 da aba verificação, o diâmetro correspondente é 0,9 da célula B18 e o y/d é 0,7 da célula AC2, queria que esses valores fossem substituídos respectivamente nas celulas J15 e O15.

    PLANILHA ESGOTO1.xls

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...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!