Save data on sperate woksheet
Thanks Thanks:  0
Likes Likes:  0
Results 1 to 3 of 3

Thread: Save data on sperate woksheet

  1. #1
    Board Regular
    Join Date
    Apr 2002
    Location
    Manchester UK
    Posts
    133
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

     
    ive written this macro to save a quote on a woksheet and name it after the reference number, i want the macro to add a hyperlink to the customer database next to the reference number and link it to the file it just created.Sub Quote_Save()
    ' Macro recorded 3/8/2002 by Jamie Wood
    Range("B6:I26").Select
    Selection.Copy
    Workbooks.Add
    Range("B6").Select
    ActiveSheet.Paste
    Columns("B:B").ColumnWidth = 8.57
    Columns("B:B").EntireColumn.AutoFit
    Columns("C:C").ColumnWidth = 8.29
    Columns("C:C").EntireColumn.AutoFit
    Columns("D:D").EntireColumn.AutoFit
    Columns("E:E").EntireColumn.AutoFit
    Columns("F:F").EntireColumn.AutoFit
    Columns("F:F").ColumnWidth = 31.43
    Columns("G:G").EntireColumn.AutoFit
    Columns("H:H").ColumnWidth = 12.43
    Rows("20:20").RowHeight = 15
    Rows("20:20").RowHeight = 15.75
    Rows("24:24").RowHeight = 19.5
    Range("C2:F2").Select
    With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlBottom
    .WrapText = False
    .Orientation = 0
    .AddIndent = False
    .ShrinkToFit = False
    .MergeCells = False
    End With
    Selection.Merge
    Selection.Font.Bold = True
    Selection.Font.Underline = xlUnderlineStyleSingle
    ActiveCell.FormulaR1C1 = "Customer Quote"
    Range("C3").Select
    ActiveWindow.DisplayGridlines = False
    Sheets("Sheet1").Select
    Sheets("Sheet1").Name = "Quote"
    Range("B6:I26").Select
    Selection.Interior.ColorIndex = xlNone
    Range("G26:I26").Select
    Selection.Font.ColorIndex = 2
    ThisFile2002 = Range("B7").Value
    ActiveWorkbook.SaveAs Filename:=ThisFile2002
    ActiveWorkbook.Close
    Application.Run "Quote_Print"
    End Sub



  2. #2
    Board Regular
    Join Date
    Feb 2002
    Location
    Houston, TX
    Posts
    357
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

    Try looking at this post and changing it to meet your needs. Although, you'll need to know some VBA (or is it VB?). I'm a newbie to this...

    http://www.mrexcel.com/board/viewtop...c=4725&forum=2

  3. #3
    Board Regular
    Join Date
    Apr 2002
    Location
    Manchester UK
    Posts
    133
    Post Thanks / Like
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)

    Default

      
    On 2002-04-15 13:02, Cosmos75 wrote:
    Try looking at this post and changing it to meet your needs. Although, you'll need to know some VBA (or is it VB?). I'm a newbie to this...

    http://www.mrexcel.com/board/viewtop...c=4725&forum=2
    VB, VBA, VBE, All the same,
    Cheers i'll try that, that script is a bit messy but it works for me it just means that once a file is saved you have to find the customers reference number then go looking for the file it'd be much easier if the link was there, but ill try

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
  •  

 

 
DMCA.com