none
Como montar uma formula para esta planilha RRS feed

  • Pergunta


  •  Essa localização deve ocorrer de forma simultânea, ou seja, (automática).

     Se o valor da célula for igual a A1, no caso 2, copiar o valor da terceira célula abaixo, de forma automática, ou seja, (simultânea) e Copiar para a coluna do lado.

     Se for idêntica a A1 selecionar Três linhas abaixo.

    A

    2

    31

    32

    68

    2

    97

    54

    79

    2

    45

    69

    75

    2

    57

    26

    2

    2

    15

    17

    18

    2

    2

    31

    32

    68

    2

    97

    54

    79

    2

    45

    69

    75


    santana

    domingo, 19 de janeiro de 2014 18:21

Respostas

  • Você pode transformar num evento o código do subprocedimento a seguir:

    Sub fMain()
      Dim lngRow As Long
      Dim wks As Excel.Worksheet
      
      Set wks = ActiveSheet
      With wks
        For lngRow = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
          If .Cells(lngRow, "A").Value = 2 Then
            .Cells(lngRow, "B").Value = .Cells(lngRow, "A").Offset(3).Value
          End If
        Next lngRow
      End With
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta mvaldesvelasque sexta-feira, 24 de janeiro de 2014 14:49
    segunda-feira, 20 de janeiro de 2014 21:16
    Moderador

Todas as Respostas

  • como montar uma formula com estes criterios.

    Se o valor da célula for igual a A1, no caso 2, copiar o valor da terceira célula abaixo, de forma automática, ou seja, (simultânea) e Copiar para a coluna do lado.

     Se for idêntica a A1 selecionar Três linhas abaixo.


    santana

    domingo, 19 de janeiro de 2014 18:31
  • Você pode transformar num evento o código do subprocedimento a seguir:

    Sub fMain()
      Dim lngRow As Long
      Dim wks As Excel.Worksheet
      
      Set wks = ActiveSheet
      With wks
        For lngRow = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
          If .Cells(lngRow, "A").Value = 2 Then
            .Cells(lngRow, "B").Value = .Cells(lngRow, "A").Offset(3).Value
          End If
        Next lngRow
      End With
    End Sub


    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    • Marcado como Resposta mvaldesvelasque sexta-feira, 24 de janeiro de 2014 14:49
    segunda-feira, 20 de janeiro de 2014 21:16
    Moderador
  • Olá!
    Preciso de que seja elaborado uma plnilha  que faça o seguinte,"Sempre que  for idêntica a A1 selecionar Três linhas abaixo" essa seleção deveria ocorrer  simultaneamente, ou seja, (automática)

     Se o valor da célula for igual a A1, no caso 2, copiar o valor da terceira célula abaixo, de forma automática, ou seja, (simultânea) e Copiar para a coluna do lado.

     Se for idêntica a A1 selecionar Três linhas abaixo.

     Se for idêntica a A1 selecionar a terceira célula abaixo.
    Obs.Essa localização deve ocorrer de forma simultânea, ou seja, (automática).

    A

    2

    31

    32

    68

    2

    97

    54

    79

    2

    45

    69

    75

    2

    57

    26

    2

    2

    15

    17

    18

    2

    2

    31

    32

    68

    2

    97

    54

    79

    2

    45

    69

    75

           

            O valor de A1 é 2.

    Sendo assim, eu quero 3 linhas abaixo de A1, o retorno seria 68
    A5 também é 2, sendo assim, o retorno seria 79.
    A9 = 2, então retorno = 75.
    1) Preciso que a Planilha ou Fórmula fosse flexível para escolher outra sequência pois nem sempre seria três linhas abaixoObs. Pois poderia ser.  Uma linha abaixo, Duas linha abaixo , Três linha abaixo , Quatro linhas abaixo, Cinco linhas abaixo, Seis linha abaixo, Sete linhas abaixo, Oito linhas abaixo, Nove linhas abaixo e assim sucessivamente. 
    Tabém nem a procura seria feita através  da celula A1, A2, A3 , A4, A5, A6, A7 e assim sucessivamente. 


    ME ENVIAR ORÇAMENTO PREVIO e telefone para que eu possa entra em contato se possível. 

    Desde já agradeço pela atenção dada aguardo resposta.

      MVelasque

     

    santana

    quinta-feira, 23 de janeiro de 2014 15:28