hiii,
What I want is below code... But GetColumnletter Not Working
Sub setformu() Dim Lastcol As Long Dim colletr As String Dim Lastrow As Long Lastcol = Range("A5").SpecialCells(xlCellTypeLastCell).Column clletr = Getcolumnletter(Lastcol) Lastrow = .Range("A1").SpecialCells(xlCellTypeLastCell).Row With Range("E5:" & cellert & Lastcol) .Formula = "=INDEX(Standard!$1:$1048576,MATCH($A6,Standard!$A:$A,0),MATCH(E$5,Standard!$2:$2,0))*$D6/VLOOKUP($A6,Standard!$A:$D,4,FALSE)" End With End Sub
Bookmarks