microsoft.public.excel.programming Google Group

Re: Problem with code used in other countries

joel.41d...@thecodecage.com (joel) — Mon, 09 Nov 2009 12:45:50 UT

I looks like you are adding a template that has only one sheet called
"Sheet1". I would refere to the sheet by the position in the workbook
being the 1st tab and use sheets(1) instead of Sheets("Sheet1").

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

joel.41d...@thecodecage.com (joel) — Mon, 09 Nov 2009 12:40:41 UT

I have a small typo
from
bl.Close savechanges:=False
to
bk.Close savechanges:=False
I didn't test this line. the rest of the code was tested.

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

vimalbarl...@gmail.com (vicky) — Mon, 09 Nov 2009 12:21:03 UT

thanks a lot joel...

Problem with code used in other countries

winnie...@discussions.microsoft.com (winnie123) — Mon, 09 Nov 2009 11:56:01 UT

Hi I created a file which basically acts as a price builder.
This has now been distrubted through out our European offices and the USA.
One of the modules alllows the user to select a couple of categories and
then you hit a button and it will create a new workbook with the relevant
pricing information.

RE: Changing the background color of a cell

jacobska...@discussions.microsoft.com (Jacob Skaria) — Mon, 09 Nov 2009 11:48:01 UT

Hi Steve
The below code will highlight each row if 'Cappuchino Data' column G data
match with the list in Subs Safety Net").Range("C1:C10")..Try and feedback
Sub Macro()
Dim rng1 As Range, rng2 As Range, cell As Range
Set rng1 = Worksheets("Cappuchino Data").Range("G1:G10")
Set rng2 = Worksheets("Subs Safety Net").Range("C1:C10")

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

joel.41d...@thecodecage.com (joel) — Mon, 09 Nov 2009 11:43:10 UT

Try the code below. Change the FOLDER name as required. Make sure you
have a backslash at the end of the folder name. The Macro will give you
an error if the data in cell A1 is not a valid name for a worksheet.
worksheet names can't be nothing and can't contain certain characters.
Sub copybooks()

Re: Copy if code

joel.41d...@thecodecage.com (joel) — Mon, 09 Nov 2009 11:33:42 UT

The XLUP and XLDown don't always work the way you would expect them to
work if cells were cleared of data. XLUP and XLDOWN still thinks there
is data in a cell that has been cleared, or there may be a Conditional
Formating in the cell which these two functions then condsiders the
cells having data.

Re: Code inconsistent

joel.41d...@thecodecage.com (joel) — Mon, 09 Nov 2009 11:27:01 UT

What are your sheet names? Do you have a sheet with the tab as "1", if
not you will get an error.
Usually Sheets(1) referes to the 1st tab in the workbook. Sheets("1")
refers to a sheet name with the Tab being the number one. Make sure
thtere arren't any spaces in the tab on the worksheet. If the sheet

Re: 2002: Worksheet_Change and Validation error

joel.41d...@thecodecage.com (joel) — Mon, 09 Nov 2009 11:20:09 UT

The worksheet change function can only change cells on the worksheet
were the changge was made. If you are changing a cel in a different
sheet it won't work in 2002 but would work in earlier versions of excel.

Re: Obtaining a certain date from columns

joel.41d...@thecodecage.com (joel) — Mon, 09 Nov 2009 11:16:52 UT

The latest data would be the Max value in the column. If you were using
a formula it would be
=max(A:A)
The equivalent VBA code would be
Dim MaxDate As Date
MaxDate = WorksheetFunction.Max(Columns( "A"))

Re: Changing the background color of a cell

bli...@gazeta.pl (Jarek Kujawa) — Mon, 09 Nov 2009 11:12:22 UT

if Excel 2003 then change
Color
to
ColorIndex

Obtaining a certain date from columns

suk...@mail1.stofanet.dk (Suknit) — Mon, 09 Nov 2009 10:54:13 UT

Goddag, how do I make a macro that can get the latest date in a column.
Like I have many dates in that column and I want to get the newest date.
Thank in advance

Changing the background color of a cell

st...@discussions.microsoft.com (Steve) — Mon, 09 Nov 2009 10:49:01 UT

Hi
I'm comparing two lists and if a contract number equals that on another list
I want to highlight the line in the original list. I have looked for ages on
the web but everywhere that uses the range command seems to assume you know
the row but I'm trying to use two variables as below.
If Trim(Worksheets("Cappuchino Data").Cells(iCappuchinoRow,

RE: Row deletion event: identifying deleted row ID

faffo1...@discussions.microsoft.com (faffo1980) — Mon, 09 Nov 2009 10:30:01 UT

It works...
Thanks a lot!
faffo1980

RE: Row deletion event: identifying deleted row ID

jacobska...@discussions.microsoft.com (Jacob Skaria) — Mon, 09 Nov 2009 10:10:01 UT

Try the below to track row deletions from the used range...Select the sheet
tab which you want to work with. Right click the sheet tab and click on 'View
Code'. This will launch VBE. Paste the below code to the right blank portion.
Get back to to workbook and try out.
Private Sub Worksheet_Change(ByVal Target As Range)