Posts by dcraker

Re: Happy Birthday Dave Hawley

:gift: :gift: :gift:
Happy Birthday Dave

This is you -> :spank: <- this is everyone else
must wait until 46 of them have passed

Re: Nookie Green

too funny

Re: 2009 Daytona 500 Pics

Very nice pictures you have, thanks for sharing it with us. I hope to be able to go to one of these races before my kids get "too old". Nice submission:thumbcoo:

I thought it was funny. But I think Dave Hawley is trying to be a comedian. When I saw that in his profile, he has it set that he is a spammer. Of course, we all know the truth.:spin:

Have a great day

Re: Cough It Up!

:lol:

Re: Guido

:lol:
:lol:
:lol:

Re: Time Format In Textbox - Not Preserved

I made a small thing for you, have a look at the codes. I am sure there is a much easier way to do this. But this is the basics that I have learned in the past, I use it for dates instead of times.

HTH

The codes that are in the attachment is as follows:

Private Sub cmdEntry_Click()
   With Me
  Range("A1").Value = .TxForTime.Value
   End With
End Sub
Private Sub cmdGet_Click()
With Me
    .TxForTime2.Value = Format(Range("a1").Value, "hh:mm")
End With
End Sub
Private Sub TxForTime_AfterUpdate()
   TxForTime.Value = Format(TxForTime.Value, "hh:mm")
End Sub

I'm sure you can see what you need from here.

Re: Listing of Files and Worksheets

Wow it works good. Even shows the names of the sheets not visible also.

Simply amazing Kris :drum:

Re: Adjust Column Width In Pixels (2007)

Could it be because of the individual settings on a separate computer? For example the Display settings could have some effect on what you get on the individual computers, not to mention the monitor's capabilities and cpu.

Here is my settings, and I am getting the 1.57 as well for 16 pixels, mine is set on 1024 by 768

edit: Apologies, I don't know how to make it a thumbnail for easy viewing, so it would probably open in the paint program

Re: Old Lady On Trial For Murder

:grin: Good one

My company is trying to go greener and find ways to minimize everyday spendings. One of these things was being able to printout a workbook and print duplex pages. I have looked and found that all the threads I could see, was there was no real solution.
Most said that it was a printer setting and would have to "add" a second instance of the same printer.
After much searching, I found this page from microsoft :http://support.microsoft.com/kb/214383 I do remember some people saying that they are leary about clicking a link that leaves ozgrid, so this is the gist of it.

Quote from support.microsoft

WORKAROUND
To apply the duplex option to all worksheets in your workbook, follow these steps:
1. Open your workbook.
2. In Microsoft Excel 2000, in Microsoft Excel 2002, and in Microsoft Office Excel 2003

On the File menu, point to Print, and then click Properties.

In Microsoft Office Excel 2007

Click the Microsoft Office Button, point to Print, click Print, and then click Properties.
3. On the Layout tab, select the one of the duplex options, and then click OK.
4. Click OK in the Print dialog box.
5. Repeat these steps for every sheet in the workbook.
When you print your workbook, all worksheets are printed with the duplex option.

Display More

The only thing about this that they didn't say is after you save and close. If you happen to had changed the printer from a file, then open the same file, all your settings are lost, and you would have to redo them. But for most people, changing printers is not a common thing in the office.

Hope this helps anyone that is looking for this.

Re: Bowl Of Chili

Not to worry, I am not trying to take it away from you.

Just take care of things at home, we are all here (i'm sure of it) for you. And wish a speedy recovery for your wife.

All the best to your family

A guy sits down in a Cafe and asks for the hot chilli.

The waitress says, "The guy next to you got the last bowl."

He looks over and sees that the guy's finished his meal, but the chili bowl is still full.

He says, "Are you going to eat that?"

The other guy says, "No. Help yourself."

He takes it and starts to eat it. When he gets about half way down, his fork hits something. He looks down sees a dead mouse in it, and he pukes the chili back into the bowl.

The other guy says, "That's about as far as I got, too."

Re: The Dudes Run From Huricane Ike

According to his profile, he had visited yesterday.
So I would say that TheDude is safe and sound

So it must have worked for him

Re: Determine Last Modified Date

FSO is FileSystemObject

The code I am using that I have modified to fit my needs reports the particular file in cell A1, I did test using a msgbox, which is commented out, but I left it in there in case of a future need.

Sub LastModCQA() 'http://www.ozgrid.com/forum/archive/index.php/t-27740.html
'msgbox commented out but left here for reference
'change to fit your desired path
    'MsgBox FileLastModified("C:\My Documents\abook.xls")


'change to fit your desired path
Range("A1").Value = FileLastModified("C:\My Documents\abook.xls")
End Sub


Function FileLastModified(strFullFileName As String) 'http://www.ozgrid.com/forum/archive/index.php/t-27740.html
Dim fs As Object, f As Object, s As String


Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(strFullFileName)


's = UCase(strFullFileName) & vbCrLf'used with msgbox
's = s & "Last Modified: " & f.DateLastModified'used with msgbox
s = s & f.DateLastModified
FileLastModified = s


Set fs = Nothing: Set f = Nothing


End Function

Re: Timestamp On Pivot Refresh

My source that I used provided by Richie(UK)--> Click me!

I had the same basic question that you had, except I used it to find the last modified date of an Excel spreadsheet. This was the way to find when it was last modified via another program. I did some modifications to it to fit my needs of being able to make it report to a specific cell in the spreadsheet that I use.
Otherwise, it was almost an exact duplicate of the codes.
Hope this helps you.

Re: The Bestest Practice

That's a good one for sure to read and comprehend

[COLOR="Red"]on a personal note:[/COLOR] I may not have that many lines of codes on my Main macro project.

But I could almost tell you that you would either laugh or something if you saw mine.
But I do have several copies of my original to my final copy. Showing me the various stages and improvements I have made over the course of a year and a half, since really digging deep and trying to learn.

But I am sure most of the good folks here would still look at it now and go "What the heck was he trying to do and what does it do?"

Re: Noah

This was worthy of reading twice in a row for me:silverha:

this a test post only for codes, everything inside the code area is intentional, no mistakes were made.

[noparse]Sub GetFile() 
     ' GetFile Macro
    Dim ws As  Worksheet 
    Sheets("Menu").Select 
     ' Set Path and Filename and Import
    PathName =  Range("E4").Value 
    Filename = Range("E5").Value 
    ControlFile =  ActiveWorkbook.Name 
End Sub[/noparse]

Re: E-mail Attachment Stays Read-only

I believe that the original copy that was sent has the properties set as "Read Only". Therefore when the customer gets it, it is in Read Only.
When they try to do a Save As..., to remove the Read Only, they should change the name of the file in some way. Even if it is to add one character. It will not be able to save as the same name.
It's either that, or right click the orginal file and untick the Read Only and then Resend.

That's what I think could help you. So depending on how you set it up as Read Only, you may have to undo that before send.

Oh yeah, I don't know if this would really belong in the Excel and/or Email forum.