Posts by max_lux

Re: Saving over VPN

Why dont you have the book remain open and retry the server at timed intervals with ontime?

or, use sheduling agent to open the book at intervals to retry if required, and close if not? You could set a tag so it would retry if required and close if not

Re: Combobox repeating options

and what happened to?

White European
White North American
White South American
White Central American
White South American
White African
White Pakistani
White Indian
White Asian

Black European
Black North American
Black South American
Black Central American
Black South American
Black African
Black Pakistani
Black Indian
Black Asian

Asian European
Asian North American
Asian South American
Asian Central American
Asian South American
Asian African
Asian Pakistani
Asian Indian

Pakistani European
Pakistani North American
Pakistani South American
Pakistani Central American
Pakistani South American
Pakistani African
Pakistani Indian
Pakistani Asian

Indian European
Indian North American
Indian South American
Indian Central American
Indian South American
Indian African
Indian Pakistani
Indian Indian
Indian Asian

Native European
Native North American
Native South American
Native Central American
Native South American
Native African
Native Pakistani
Native Indian
Native Asian

Not Stated

Re: Combobox repeating options

Three ethnicities of caucasion? Looks skewed to me...

British
Irish
Other

Why not?
Good
Bad
Ugly

Re: Saving over VPN

Something like?

Sub TransmitInfo()


Sheets("Pick Ticket").Select


ActiveSheet.Unprotect


Rows("4:234").Select
Selection.Sort Key1:=Range("B4"), Order1:=xlAscending, Key2:=Range("A4") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal


Range("A3:J235").Select
Selection.AutoFilter
Selection.AutoFilter Field:=5, Criteria1:="<>"


Sheets("Pick Tick Routing").Select


Dim sStr As String
Const sDateCell As String = "K10"
Const sPath1 As String = "C:\Documents and Settings\All Users\Documents\e-Order\Transmitted Orders\"
Const sPath2 As String = "\\Fileserver\satallite orders\Bel Orders\"
sStr = Format(Range(sDateCell), "yyyymmdd")
ThisWorkbook.SaveAs Filename:=sPath1 & sStr & " " & "BEL" & ".xls", _
FileFormat:=xlWorkbook, CreateBackup:=False
If ThisWorkbook.Saved = False Then ThisWorkbook.Save
Application.DisplayAlerts = True
'*************
If Error Then
on error goto 0
Run "SendAsEmail"
Else
ThisWorkbook.SaveAs Filename:=sPath2 & sStr & " " & "BEL" & ".xls", _
FileFormat:=xlWorkbook, CreateBackup:=False
End If


'*************
If ThisWorkbook.Saved = False Then ThisWorkbook.Save
Application.DisplayAlerts = True
MsgBox "Your order has been saved and transmitted, you may now close MS Excel."
ActiveWorkbook.Close
End Sub


Sub SendAsEmail()


'email code here


If ThisWorkbook.Saved = False Then ThisWorkbook.Save
Application.DisplayAlerts = True
MsgBox "Your order has been saved and transmitted, you may now close MS Excel."
ActiveWorkbook.Close
End Sub

Re: Saving over VPN

You could have it go to email client as an attachment easy enough, but setting up the email to not open is difficult to do, as email proggies are set up to alert if being used.

I set up something similiar, so a report is saved to the hardrive and sent to default mail program as an attachment. I then (only works if email is not pass-protected for default user at startup) run the email prog and have it send receive automatically.

Re: work into a sreensaver??

You can place a screensaver in Excel, but I don't think it is possible to do it the other way around.

Re: Custom BB Code Tests

test

Welcome to OzGrid Forums!

EDIT -- jiuk

Please take more care in future, and good luck with your post!

Re: Saving over VPN

Welcome to OzGrid Forums!

[bp]*[/bp]

Please take more care in future, and good luck with your post!

Re: save as conflict

make sure and use

Application.DisplayAlerts = False

to turn this feature off, and then

Application.DisplayAlerts = True

to turn it back on again

Re: Text Balloon

right click, add comment, then add the number.
Comments are worksheet cells context "popups"

Re: Time mask problems

Can you post your original formula? Then I could possibly help

Re: Time mask problems

something like?

=If (original formula, answer,(LEFT(A1,LEN(A1)-4)+(MID(A1,LEN(A1)-3,2)+RIGHT(A1,2)/100)/60)/1440)

use your original formula because it worked under 1 minute, and Derks if it goes over the 1 minute?

Re: Blank Cell

Norie isn't too clever. He is just the right amount of clever! :grin:

Re: Blank Cell

What about?

=If (H5=0,"",H5 & " / ")

or

=If (H5="","",H5 & " / ")

Re: VBA: Signatures

How would one "sign" a macro?

Re: Enabled/Disable Button

You have to reference properly, in two different places.
Check the vb editor for the actual sheet name. Each sheet should show as something like:
Sheet1(WEEK)
Sheet2(MONTH)
etc. ---> use the actual sheet name, not the one on the tab.

... so therefore should be something like:

If Sheets("WEEK").Range("C62").Value = "Admin" Then 
    Sheet1.CommandButton6.Enable = True 
Else 
    Sheet1.CommandButton6.Enable = False 
End If

Re: Create Printer listbox VBA - Excel98

I am interested in your results, as I would also like to allow the user to select a printer (though not network), and print to it, yet not be able to select printer setup.

Re: Code to automatically indent VB Code

I use OzGrid!

I copy my code.
I make a false post, add code tags, and then preview.
I copy the preview and paste it back into my module/sheet/form

Perfect every time :grin:

Re: Overwrite sheet name?

in the VB editor is the sheet called?

Sheet3(Sheet3)

Re: tab textbox to textbox on worksheet

already done - that's how i found out it was return :grin:

Thanks again Andy