Posts by JohnDrew

The attached file works with 3 Drawers and 3 Doors but if I use 2 Drawers and 2 Doors the Borders do not line up. I think the Drawers are right the Doors appears to be the problem.
Same thing happens with 3 drawers and 4 Doors. It has and extra border on the right side. See Attachedforum.ozgrid.com/index.php?attachment/58515/ Also I would like for the Measurments to be in the cell to the right of the left hand border and center across each of the sections.

Change B3 and B4 to 2 then click draw. 3 and 3 work 3 and 4 don't but 4 and 4 does.???

Re: Change Print Range based on Cell Value

Thanks

I have a print range Named Inventory $B$2: $K$9

In Cell K1 I have the variable row I want to be the bottom right of the print range.

I would like to be able to insert, the last row in the print range, into Cell K1
It would then replace the last row($K$9) in the Inventory range

For Example:

If I put 30 into K1, it would change the print range to $B$2: $K$30
This being said, I can quickly and easily change the range I want to print.

I am trying to copy and paste data from a Word Doc to Excel 2007. I get the information but it paste all the data in column "A". How do I get the data to paste to columns?

Re: Macro to Format Border outlines to draw cabinet

Thanks Dan, That is real close to what I need for now.

I need a macro to format column borders to print a picture of the cabinet I am building. I have the cell width set at 2 and have 25 columns. What I would like to do is have the macro delete old borders and determine the cells which need formating based in the number of drawers and doors. It would be good it bordered the column centered the borders where they would look porportional.

Re: Copy Email messages to Excel..Macro will not work....Outlook 7 and Excel 7

It says error code 424....no object...I commented out the next statement and it says the samething.

Re: Copy Email messages to Excel..Macro will not work....Outlook 7 and Excel 7

forum.ozgrid.com/index.php?attachment/55283/ The macro does nothing. It's not that it has error messages. Attached is my spreadsheet. I select inbox in the email file.

I am using Ron de Bruin's macro but can't get it to work. Can someone help? Thanks, Here is the Code I copied from his posting.

Sub EMAILExtract()
 On Error Resume Next
 Set myOlApp = Outlook.Application
 Set mynamespace = myOlApp.GetNamespace("mapi")
 Set myfolder = myOlApp.ActiveExplorer.CurrentFolder
Set xlobj = CreateObject("excel.application.14")
 xlobj.Visible = True
 xlobj.Workbooks.Add
'Set Heading
 xlobj.Range("a" & 1).Value = "Body"
 xlobj.Range("b" & 1).Value = "Recieved time"
 xlobj.Range("c" & 1).Value = "Sender"
 xlobj.Range("d" & 1).Value = "Subject"
 xlobj.Range("e" & 1).Value = "Recieved Time"
For i = 1 To myfolder.Items.Count
  Set myitem = myfolder.Items(i)
  msgtext = myitem.Body
   
  xlobj.Range("a" & i + 1).Value = msgtext
  xlobj.Range("b" & i + 1).Value = myitem.ReceivedTime
  xlobj.Range("C" & i + 1).Value = myitem.To
  xlobj.Range("d" & i + 1).Value = myitem.Subject
  xlobj.Range("e" & i + 1).Value = myitem.Categories
   
  Next
 End Sub

I have the attached worksheet which only changes the image on the last two items.
I can make a selection on the first four and none change, but when I make a selection on 5 or 6 they all work correctly.
Also, how could post the image on sheet1 at A1..A6 instead of Picture database column C?

Re: Vertical Lookup Macro To fnd picture or Image

What I am wanting to do is to select a penalty from a control box and it put the image on the football field. So when we review penalaties from last week they will have visual picture of what happened.
My problem is how to have the input box select and insert the object(image) once the penalty is selected and put it in the location identified in x10. Like image of Punt in S10

Then accept another penalty and post at the new location identified in x10. Say Clip(from the control box) at G14

How do you use a vertical lookup and form control to locate pictures or images?
I found it by using Google, but got lost in trying to insert my images.

I am wanting to type in a word in cell A1 and run a macro to find it in a range of text and continue to locate more if they are more. The text is in sheet 2 from a1 to a4500. The range is named "Find".

I tried to record a macro but got nothing.

Re: Macro to Enter Shape or picture

Thanks for your expertiese.. That did it. Now when they click to see the results, it will post the star where the ball will be after the enforcement

I am making a spreadsheet file for our football offcials group to review rules.

I tried to record a macro to copy a shape and put it into the spreadsheet, but the shape does not copy.

How do I get the shape to copy into the spreadsheet?

What I want is for them to "think" what they would do and then click the macro and it will show them where the ball would be after the foul/fouls.

Re: Convert date number to date when Concatenating

Thanks, that fixed it

I have in:
A1 the date September 17,2012
B1 the Town.. Little Rock, AR

In C1, I did a concatenate, "+a1"&"at " &b1

and formated the cell for date with September, 17, 2012

but it gives me a date code(41165) plus the other concatenate data.
What I need is the date not the number.

Re: Find last Payroll Record and Total the columns

How do I get the macro to run?

When I added more employees, the data entry replaced my total line. What I need is to find:
1. Last Record in Column (F)
2. Then sum(columns, G,I, K, M,O,Q,S and T)
3. Return to B2

Re: Find last Record, Insert Row, Copy previous formula down.

I stand and applaud your expertiese, knowledge and time in writing the code to make my program work.