Copying from one spreadsheet to another

[Kurdt]

I'm creating an Access database that takes a large Excel spreadsheet and breaks it up in to many spreadsheets based on the values in one of the columns. When I cut and paste from the master into one of the smaller versions I end up with JPGs pasted instead of the data. Note that my code is in Access, but the source and destination of the data are in Excel. This is my first post, so it could be the wrong forum for this. Here is the relevant code:

xlMonthlyMaster.Worksheets("InitialAssessments").Range("A" & intRowStart & ":X" & intRowEnd).Copy
xlClientReport.Worksheets("InitialAssessments").Cells(intPasteRow, "A").PasteSpecial (xlPasteValues)

Any help is appreciated.

Thank you,

Curtis

 

[HaHoBe]

Hi, Curtis,

maybe use an automation based on

Sub CopyCurtis()
  Dim wks As Worksheet
  Dim iRow As Integer
  Dim iStart As Integer
  
  Application.ScreenUpdating = False
  Set wks = ActiveSheet
  iRow = 2
  iStart = iRow
  Do Until IsEmpty(wks.Cells(iRow, 1))
     If wks.Cells(iRow, 1) <> wks.Cells(iRow + 1, 1) Then
        Worksheets.Add after:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = wks.Cells(iRow, 1)
        wks.Rows(iStart & ":" & iRow).Copy Range("A1")
        iStart = iRow + 1
     End If
     iRow = iRow + 1
  Loop
  Worksheets(1).Select
  Set wks = Nothing
  Application.ScreenUpdating = True
End Sub

I really wouldn´t use the Paste&Copy but instead prefer to get the values directly form one sheet to another by just copying the values (using Resize for the ranges).

Ciao,
Holger