Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Entering A1 Versus R1C1 in VBA

Sub A1Style()     FinalRow = cells(Rows.count, 2).End(xlUp).row     range("D4").Formula = "=B4*C4"     range("F4").Formula = "=IF(E4,ROUND(D4*$B$1,2),0)"     range("G4").Formula = "=F4+D4"     range("D4").copy Destination:=range("D5:D" & FinalRow)     range("F4:G4").copy Destination:=range("F5:G" & FinalRow)     cells(FinalRow + 1, 1).value = "Total"     cells(FinalRow + 1, 6).Formula = "=SUM(G4:G" & FinalRow & ")" End Sub