none
posicionamento respectivo por tabela RRS feed

  • Pergunta

  • 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

  • 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