Prev: Checking the Value of a Check Box in a Macro
Next: Reference a cell value in a formula
From: Larry Fitch on 11 Feb 2010 16:35
Please disregard my previous posting.. I explained it very badly !!!!

I have a macro that will let me search for the location of an Excel file and
import the data from that file-

Dim wb As Workbook
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Application.Dialogs(xlDialogOpen).Show ThisWorkbook.Path
Set wb = ActiveWorkbook
wb.ActiveSheet.Range("A4:E30").Copy _
ThisWorkbook.Sheets("Non Account Activity - Brokaw").Range("CA4")
wb.Close False
Application.DisplayAlerts = True
Application.ScreenUpdating = True


What I would like to do is modify this so that I can source 2 different
sheets in the same file and have the data from both of them
imported at the same time..

Is this possbile ?





--
Thanks

Larry
From: paul.robinson on 11 Feb 2010 16:57
Hi
You need 2 copies of this line

wb.ActiveSheet.Range("A4:E30").Copy _
ThisWorkbook.Sheets("Non Account Activity - Brokaw").Range("CA4")

replace Activesheet with Worksheets("TheSheetName") in each case and
the range info as required.
regards
Paul

On Feb 11, 9:35 pm, Larry Fitch <LarryFi...(a)discussions.microsoft.com>
wrote:
> Please disregard my previous posting.. I explained it very badly !!!!
>
> I have a macro that will let me search for the location of an Excel file and
> import the data from that file-
>
> Dim wb As Workbook
> Application.DisplayAlerts = False
> Application.ScreenUpdating = False
> Application.Dialogs(xlDialogOpen).Show ThisWorkbook.Path
> Set wb = ActiveWorkbook
> wb.ActiveSheet.Range("A4:E30").Copy _
> ThisWorkbook.Sheets("Non Account Activity - Brokaw").Range("CA4")
> wb.Close False
> Application.DisplayAlerts = True
> Application.ScreenUpdating = True
>
> What I would like to do is modify this so that I can source 2 different
> sheets in the same file and have the data from both of them
> imported at the same time..
>
> Is this possbile ?
>
> --
> Thanks
>
> Larry

From: Larry Fitch on 12 Feb 2010 08:54

Thanks Very much Paul !!!

That did the trick !!
--
Thanks

Larry


"paul.robinson(a)it-tallaght.ie" wrote:

> Hi
> You need 2 copies of this line
>
> wb.ActiveSheet.Range("A4:E30").Copy _
> ThisWorkbook.Sheets("Non Account Activity - Brokaw").Range("CA4")
>
> replace Activesheet with Worksheets("TheSheetName") in each case and
> the range info as required.
> regards
> Paul
>
> On Feb 11, 9:35 pm, Larry Fitch <LarryFi...(a)discussions.microsoft.com>
> wrote:
> > Please disregard my previous posting.. I explained it very badly !!!!
> >
> > I have a macro that will let me search for the location of an Excel file and
> > import the data from that file-
> >
> > Dim wb As Workbook
> > Application.DisplayAlerts = False
> > Application.ScreenUpdating = False
> > Application.Dialogs(xlDialogOpen).Show ThisWorkbook.Path
> > Set wb = ActiveWorkbook
> > wb.ActiveSheet.Range("A4:E30").Copy _
> > ThisWorkbook.Sheets("Non Account Activity - Brokaw").Range("CA4")
> > wb.Close False
> > Application.DisplayAlerts = True
> > Application.ScreenUpdating = True
> >
> > What I would like to do is modify this so that I can source 2 different
> > sheets in the same file and have the data from both of them
> > imported at the same time..
> >
> > Is this possbile ?
> >
> > --
> > Thanks
> >
> > Larry
>
> .
>
 | 
Pages: 1
Prev: Checking the Value of a Check Box in a Macro
Next: Reference a cell value in a formula