Copying Source Formats using Intersect ranges

Hello pdalal,

This should work...

Sub frmlaIntrsct(Optional colRanges As String, Optional rowRanges, Optional frmlaNm As String, Optional frmlaString As String, Optional pasteAsValuesT As Boolean)
Dim rng As Range
Dim colRngArr As Variant

If Len(frmlaString) < 1 Then
    frmlaString = frmlaByNm(frmlaNm)
End If

Intersect(Range(colRanges), Range(rowRanges)).Select
Selection.FormulaR1C1 = frmlaString
If pasteAsValuesT = True Then
   colRngArr = Split(colRanges, ",")
   For x = 0 To UBound(colRngArr)
   Intersect(Range(colRngArr(x)), Range(rowRanges)).Select
   Selection.Calculate
   Selection.Copy
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
   Selection.PasteSpecial Paste:=xlPasteFormats
   Next x
End If
End Sub

Originally Posted by pdalal

Hi,
I am using this subroutine to call for some data using formulas from a different sheet.

You can't copy formats from just the Formulas. Formulas don't return formats. You would have to resolve the source cell address's from the formulas and copy from those cells. I can't be more specific than that from the limited information provided.