Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: copy formula

  1. #1
    Board Regular
    Join Date
    Feb 2002
    Location
    Jefferson City, Missouri
    Posts
    382
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    My workbook was finished or so I thought. Anyway, I'm wanting to add some code to do some sheet copying. I have 11 sheets, two sheets a week, plus the main sheet. What I'm wanting to do is copy these sheets to another workbook based on a cell value. I just tried to do the following:

    Sheet1.select (this sheet will always be copied)
    Sheet2.Activate
    If Range("B9") <> " " then
    Sheet2.Select
    Sheet7.select
    end if
    Sheet3.Activate
    If Range("B9") <> " " Then
    Sheet3.Select
    Sheet8.Select
    end if
    Sheet4.Activate
    If Range("B9") <> " " Then
    Sheet4.Select
    Sheet9.Select
    end if
    Sheet5.Activate
    If Range("B9") <> " " Then
    Sheet5.Select
    Sheet10.Select
    End if
    Selection.Copy
    ActiveWorkbook.SaveAs "FileName"

    I get an error with the above code. What am I doing wrong.
    I appreciate the help from everyone at Mr. Excel.

    viper

  2. #2
    Board Regular
    Join Date
    Feb 2002
    Location
    Ahmedabad Gujarat
    Posts
    303
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    PLEASE NOTE:

    TAKE BACKUP OF YOUR ORIGINAL WORKBOOK BEFORE
    YOU TRY THIS.
    I HAVE NOT check the code so if it solves your problem..atleast inform me.

    Sub modifiedworkbookbackup()
    Dim sht As Worksheet
    For Each sht In Workbooks("allexperts").Worksheets
    If sht.[b9] <> "" Then
    '
    sht.Delete
    End If
    Next sht
    Application.GetSaveAsFilename "Your file Name"
    ' You can save your file in number of formats.
    'ThisWorkbook.SaveAs "d:myback" & Worksheets("sheet4").Range("a1").Text, xlNormal
    End Sub


    Please study below code also

    Sub workbooksave()
    ' to make a save in current working folder
    ' use below code
    'ThisWorkbook.SaveAs Worksheets("sheet4").Range("a1").Text
    ' -------------------------------
    ' If you want to saveas in different folder then give the
    ' complete path and dont forget to put back slash
    ' at the end of the folder where you want to change
    ' the folder otherwise file will be save with the
    ' last word and the filename suggested
    ThisWorkbook.SaveAs "d:myback" & Worksheets("sheet4").Range("a1").Text
    End Sub


    Sub workbookopennetwork()

    Application.ScreenUpdating = False

    ' if we want to open work book in network machine and directory in the network then
    Workbooks.Open "\AbhishekcMy DocumentsVadnagar.xls"

    Application.ScreenUpdating = True


    End Sub

    I hope this will help you.

    ni****h desai
    http://www.pexcel.com


    [ This Message was edited by: nisht on 2002-03-31 00:18 ]

  3. #3
    Rest in Peace
    Join Date
    Feb 2002
    Posts
    1,582
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Hi Viper

    Following along the same lines a nisht's code, try approaching these type of problems from the other angle. Instead of copying all sheets which have a value in B9, copy all sheets then delete the ones not needed.


    Sub DoIt()
    Dim wsSheet As Worksheet

    Sheets.Copy
    Application.DisplayAlerts = False

    For Each wsSheet In ActiveWorkbook.Worksheets
    If wsSheet.Range("B9") = "" Then wsSheet.Delete
    Next wsSheet

    Application.DisplayAlerts = True
    ActiveWorkbook.SaveAs "FileName"
    End Sub

Some videos you may like

User Tag List

Like this thread? Share it with others

Like this thread? Share it with others

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •