lotto009
04-15-2013, 12:54 AM
Dear all expert
From my code by record VBA I would like change formula to VBA code
-from Sumif to VBA
Please help revise my code for correct and suggest to me because I have many data afyer used vba below my com slowly can see at module 3 and file att
Thank you for your help
lotto009 :think:
Sub Macro2()
'
' Macro2 Macro
' sumiff
'
'
Range("F7").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF('Datagetfromserver '!R[-5]C[-5]:R[138]C[-5],Sum!RC[-3]:R[5]C[-3],'Datagetfromserver '!R[-5]C[-3]:R[138]C[-3])"
Range("G7").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF('Datagetfromserver '!R[-5]C[-6]:R[138]C[-6],Sum!RC[-4]:R[5]C[-4],'Datagetfromserver '!R[-5]C[-3]:R[138]C[-3])"
Range("F7:G7").Select
Selection.AutoFill Destination:=Range("F7:G12")
Range("F7:G12").Select
Range("A1").Select
Selection.ClearContents
Range("A1").Select
End Sub
From my code by record VBA I would like change formula to VBA code
-from Sumif to VBA
Please help revise my code for correct and suggest to me because I have many data afyer used vba below my com slowly can see at module 3 and file att
Thank you for your help
lotto009 :think:
Sub Macro2()
'
' Macro2 Macro
' sumiff
'
'
Range("F7").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF('Datagetfromserver '!R[-5]C[-5]:R[138]C[-5],Sum!RC[-3]:R[5]C[-3],'Datagetfromserver '!R[-5]C[-3]:R[138]C[-3])"
Range("G7").Select
ActiveCell.FormulaR1C1 = _
"=SUMIF('Datagetfromserver '!R[-5]C[-6]:R[138]C[-6],Sum!RC[-4]:R[5]C[-4],'Datagetfromserver '!R[-5]C[-3]:R[138]C[-3])"
Range("F7:G7").Select
Selection.AutoFill Destination:=Range("F7:G12")
Range("F7:G12").Select
Range("A1").Select
Selection.ClearContents
Range("A1").Select
End Sub