microsoft.public.excel.programming Google Group

Copy if code

2009-11-09T08:35:02Z

Hi,
I have the following code which based upon the values in col K of sheet
Données is supposed to take the data from rows B to K and copy them into the
relevant sheet.
The code is only copying certain lines at the moment. There are no
differences in terms of format etc between the lines which it does/does not

Impossible? Dynamic copy/paste

2009-11-09T08:33:02Z

Hi,
I have a list of data contained in a series of files stored on a network.
There is one file for every month, ( file name Jan, Feb etc). Each file has
31 sheets (sheet names 1,2,3 etc) to record certain events every day of the
month. Some days may be empty and have nothing written.
There is then a Summary file which I would like to fill automatically from

Impossible - dynamic copy/paste

2009-11-09T08:07:02Z

Impossible - dynamic copy/paste

2009-11-09T08:02:01Z

copy and paste it in a new sheet with sheet name as a1 value

2009-11-09T07:54:50Z

I have many work books in one folder . want to copy data from every
workbook to
the resultworkbook and the sheet names should be of a1 value .

Compare two Sheets

2009-11-09T06:44:33Z

I have data in two sheets, say names in column A
I want to compare them and generate a report in sheet 3 seperately
identifying that are not in other sheet.
something like
Column A name
Column B "Not in sheet2:
Column A name
Column B "Not in sheet1
Thanks

Re: Automating a web link

2009-11-09T06:05:59Z

You want to do this from excel ?
Tim

Automating a web link

2009-11-09T04:24:01Z

I wish to insert a command button in a Word document which opens a website.
I tried recording a macro but it wouldn't let me.
Any ideas.
Many thanks.
Kind regards
PaddyMac

Re: XL7 bug in inserting pictures

2009-11-09T04:31:30Z

I have a routine that pastes picture files into a spreadsheet, which
works in 2007.
The bit that does the work is:
For i = Start To Last
Set Target = Range("a1").Offset(TopRow + PicRows * (j), 0)
PicFile = FileList(i, 1)
If PicFile <> "" Then
Set pic = ActiveSheet.Shapes.AddPicture( PicFile, False, True, 20,

Re: XL7 bug in inserting pictures

2009-11-09T03:14:38Z

According to Ron deBruin, this snippet should work in xl07.
Dim myPict As Picture
With ActiveCell
Set myPict = .Parent.Pictures.Insert(filena me)
myPict.Top = .Top
myPict.Left = .Left
myPict.Placement = xlMoveAndSize
End With

RE: Please Help, Excel to Website and web data back to Excel

2009-11-09T03:11:02Z

Joel,
For some reason I can't figure out why the current 'itm' is writing over the
previous 'itm'. Could you please enlighten me?
Thanks,
Brice

RE: Clear a range

2009-11-09T03:11:01Z

Sheets("Sheet1").Range("B1:G7" ).ClearContents
'Other Clear options
'.ClearFormats 'Clears formats only
'.Clear 'Clears all

Re: XL7 bug in inserting pictures

2009-11-09T02:16:35Z

The manual method is not the problem. My problem is achieving the same goal
using VBA.
John
"

RE: Please Help, Excel to Website and web data back to Excel

2009-11-09T01:36:03Z

Joel,
Works well still needs some revision, but I greatly appreciate your
assitance. The current Set cn, etc... writes over the previous Set cn, etc...
I'll post the revisions as soon as complete.
On another note, do you do programming on the side/job? If so, I'd like to
run a few jobs past you.

RE: Please Help, Excel to Website and web data back to Excel

2009-11-09T01:21:02Z

You assume correctly, I am extracting so much more than required.
I'll give your revision a shot and let you know how it turns out.