Prev: Wht can't I open Excel files from Sharepoint any more?
Next: how to print a master sheet together with another sheet
From: liem on 16 Jan 2010 22:14
Thank you very much for your help and quick responsed. It work base on the
month change .
--
thanks

Liem Pho


"Don Guillett" wrote:

> Option Explicit
>
> Sub CopyColHtoEstimatesSAS()
> Dim ms As String
> Dim dc As Long
>
> 'line below ONLY needed if firing from another sheet
> 'Sheets("Merchandise Store Plan").Select
>
> ms = Format(Range("sourcemonth"), "mmm")
> 'MsgBox ms
> With Sheets("Estimates")
> 'finds appropriate column
> dc = .Rows(5).Find(What:=ms, LookIn:=xlValues, LookAt _
> :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
> MatchCase:=False, SearchFormat:=False).Column
> 'MsgBox dc
> Range("h13:h70").Copy
> Sheets("Estimates").Cells(6, dc).PasteSpecial Paste:=xlPasteValues, _
> Operation:=xlNone, SkipBlanks:=False, Transpose:=False
> End With
>
> Application.CutCopyMode = False
> MsgBox "You just copied " & ms & " to " & ms & " of the Estimates Page"
> End Sub
>
> --
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> dguillett(a)gmail.com
> "liem" <liem(a)discussions.microsoft.com> wrote in message
> news:49F9034A-7976-4D27-9DB4-EBBF8C23C27A(a)microsoft.com...
> > How can I copy a column B10:B70 a spread sheet have 60 rows of calculation
> > and I want to I click save button it will copy and paste just a value to
> > separate tab name Estimate for each month . It need to check on cell B6 if
> > it
> > a month 1 or 2 or 3....to 12 so it will copy and paste data to a correct
> > column for each month.
> >
> > thanks
> > Liem Pho
>
> .
>
 | 
Pages: 1
Prev: Wht can't I open Excel files from Sharepoint any more?
Next: how to print a master sheet together with another sheet