R1C1 Formula

[Sherifa]

RUN-TIME ERROR '91'
Object variable or With block variable not set

[COLOR=#333333]Sub SummaryRow()Dim Wkb As Excel.Workbook[/COLOR]Dim ws As Worksheets
Dim ws_count As Integer
Dim i As Integer
Dim LastRow As Long




    Sheet4.Range("a183:M183").Copy
    
        Set Wkb = ThisWorkbook
        ws_count = Wkb.Worksheets.Count
                
                     
        'Begin loop
        For i = 4 To ws_count
              
       
       Set TargetRow = Wkb.Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
        
        LastRow = Wkb.Worksheets(i).Cells(Rows.Count, 1).End(xlUp).Row


         'Paste Formulas
        TargetRow.PasteSpecial xlPasteFormulas
        [B]ws(i).Cells(LastRow + 1, 7).FormulaR1C1 = "=SUM(R4C7:R" & LastRow & "C7)"
        ws(i).Cells(LastRow + 1, 8).FormulaR1C1 = "=COUNT(R4C8:R" & LastRow & "C8)"
        ws(i).Cells(LastRow + 1, 9).FormulaR1C1 = "=SUM(R4C9:R" & LastRow & "C9)"[/B]
        TargetRow.PasteSpecial xlPasteFormats
        
        Next i
         [COLOR=#333333]End Sub[/COLOR]

 

[Sherifa]

I want to be able to copy and paste an Excel Chart using vba to set number of worksheets, but to adjust the range for the charts to that particular spreadsheet, but I'm not sure where to start

 

[Sherifa]

Sub CopyCharts()
Dim Wkb As Excel.Workbook
Dim ws As Worksheet
Dim ws_count As Integer
Dim i As Integer


Worksheets(4).ChartObject(4).Activate
Charts(4).Activate


Sheet4.Charts("ALLDeals").Copy


Set Wkb = ThisWorkbook
ws_count = Wkb.Worksheets.Count


'Begin loop
For i = 4 To ws_count

Set TargetSheet = Wkb.Worksheets(i)


TargetSheet.PasteSpecial xlPasteFormulas


Sheet4.Charts("ALLVolume").Copy


For i = 4 To ws_count

Set TargetSheet = Wkb.Worksheets(i)

TargetSheet.PasteSpecial xlPasteFormulas


Next

End Sub

 

[Sherifa]

Sub CopyCharts()Dim Wkb As Excel.Workbook
Dim ws As Worksheet
Dim ws_count As Integer
Dim i As Integer




Sheet4.ChartObjects("ALLDeals").Copy


        Set Wkb = ThisWorkbook
        ws_count = Wkb.Worksheets.Count
                
                     
        'Begin loop
        For i = 4 To ws_count
        
        Set TargetSheet = Wkb.Worksheets(i)
                        
        TargetSheet.ChartObjects("ALLDeals").Paste
        
        
Sheet4.ChartObjects("ALLVolume").Copy
                           
         TargetSheet.TargetSheet.ChartObjects("ALLVolume").Paste


      Next
      
End Sub

 

[Sherifa]

Sub CopyCharts()Dim Wkb As Excel.Workbook
Dim ws As Worksheet
Dim ws_count As Integer
Dim i As Integer








        Set Wkb = ThisWorkbook
        ws_count = Wkb.Worksheets.Count
                
                     
        'Begin loop
        For i = 4 To ws_count
        
        Set TargetSheet = Wkb.Worksheets(i)
        Sheet4.ChartObjects("ALLDeals").Copy
                        
        TargetSheet.Charts("ALLDeals").Paste
        
        
        Sheet4.ChartObjects("ALLVolume").Copy
                           
        TargetSheet.Charts("ALLVolume").Paste


      Next
      
End Sub