VBA Excel - Movendo-se para a célula - Move to Cell

Pense: Demonstrar como mover-se para uma determinada célula específica 

pode parecer simples para alguém que já programa com o VBA a muito 

tempo no MS Excel. Mas pode ser um verdadeiro desafio encontrar uma 

explicação simplificada de como fazê-lo.

Antes de continuar, um pequeno parênteses, deixe seus comentários para este post. 

Segue a minha tentativa de explanar sobre esse assunto o mais amplamente 

possível através de um código. Este algoritmo localiza e seleciona a célula. 

Sub MoveToCellExcelVBA()

    Dim MaxVal As Integer

    Dim theRow As Integer

    Dim theCol As Integer

    

    Range("A1").Select

    Let ActiveCell.FormulaR1C1 = "1"

    

    Range("B1").Select

    Let ActiveCell.FormulaR1C1 = "2"

    Range("A1:B1").Select

    Selection.AutoFill Destination:=Range("A1:H1"), Type:=xlFillDefault

    Range("A1:H1").Select

    Range("A2").Select

    Let ActiveCell.FormulaR1C1 = "3"

    Range("A1:A2").Select

    Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault

    Range("A1:A20").Select

    Range("B2").Select

    Let ActiveCell.FormulaR1C1 = "=R1C*RC1"

    Range("B2").Select

    Selection.AutoFill Destination:=Range("B2:H2"), Type:=xlFillDefault

    Range("B2:H2").Select

    Selection.AutoFill Destination:=Range("B2:H20"), Type:=xlFillDefault

    

    Range("B2:H20").Select

    Range("E11").Select

    Let ActiveCell.FormulaR1C1 = "1000"

    

    Range("A1").Select

    

    ' The code from here finds and selects the cell

    Range("A1:H20").Select

    Let MaxVal = -32768

    

    ActiveCell.SpecialCells(xlLastCell).Select

    

    For intRow = 1 To ActiveCell.Row

        For intCol = 1 To ActiveCell.Column

            If Cells(intRow, intCol).Value > MaxVal Then

                Let MaxVal = Cells(intRow, intCol).Value

                Let theRow = intRow

                Let theCol = intCol

            End If

        Next

    Next

    Cells(theRow, theCol).Select

End Sub

Tags:VVBA, Excel, code, cell, move

Inspiration: