none
posicionamento respectivo por tabela RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    eu possuo a seguinte macro, que posiciona o curso de acordo com o valor da celula:

         

    Private Sub Worksheet_Change(ByVal Target As Range)

      If Target.Address = "$AA$5" Then
        If Target.Value = "Regular" Then
          Range("AF5").Select
        End If
      End If

      If Target.Address = "$A$6" Then
        If Target.Value = "Regular" Then
          Range("AF6").Select
        End If
      End If

    a minha pergunta e: caso eu queria preencher toda minha coluna "A" com essa condição qual comando utilizar?

    exemplo: para qualquer valor da Coluna A = Regular , mover o cursor para coluna F mas sem alterar a Linha 

                 A200= Regular , move se para F200

    alguém poderia me ajudar?


        
    • Editado Weslley25 sexta-feira, 17 de abril de 2015 20:32
    sexta-feira, 17 de abril de 2015 20:31
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar 

    Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 1 Then
      
      If Target.Value = "Regular" Then
        Cells(Target.Row, 6).Select
      End If
      
    End If
    
End Sub

    Natan


    • Editado 'Natan Silva sexta-feira, 17 de abril de 2015 20:40
    • Marcado como Resposta Weslley25 sexta-feira, 17 de abril de 2015 20:47
    sexta-feira, 17 de abril de 2015 20:39
    |