Views

Histats

Vitrine

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

Inline image 1
Blog Office VBA | Blog Excel | Blog Access |


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: VBA, Excel, code, cell, move

Inspiration: 

✔ VBA Brazil®

✔ VBA Brazil®
brazilsalesforceeffectiveness@gmail.com
Related Posts Plugin for WordPress, Blogger...
diHITT - Notícias