Eu fostaria de usar a seguinte acionar a seguiente função PICompDat(tag,Data início,Dat Fim,8,"""",""inside"")" através de uma macro. Utilizei o gravador de macro e obtive
o seguinte código:
Sub PI_COMPDAT()
Sheets("PI").Select
Range("B2:B366").Select
Selection.FormulaArray = _
"=PICompDat(PI!R1C2,PI!R2C1,PI!R366C1,8,"""",""inside"")"
End Sub
Mas eu gostaria que o cálculo fosse feito para as outras colunas, além da coluna B. E tentei isso:
Sub PI_COMPDAT()
'
Dim colunafim As Integer
Dim i As Integer
Sheets("PI").Select
colunafim = Range("A1").End(xlToRight).Column
For i = 2 To colunafim
Range(Cells(2, i), Cells(366, i)).Select
'Erro está aqui
Selection.FormulaArray = _
"=PICompDat(PI!Cells(1,i),PI!Cells(2,1),PI!Cells(366,1),8,"""",""inside"")"
Next i