Search results for query: *

Do the other users have the necessary DSN for the ODBC Coneection?

Any deletions or File Renaming would be done via Admin request. (it's a business process thing) The folder structure should not be able to be defined / redefined by the user.

Hi, Does anyone know what combination of switches (R,W,X)..etc That I would need to allow users in a group to add and read files to a netork folder (mapped as a windows drive),...but not delete any files?

dim criteria1 as string criteria1=activecell.value

Or this... Open "PRN" For Output As 1 Print #1, Chr$(12); Close 1

Old Excel (undocumented) was able to read and write to lpt1: using something like... open "lpt1:" for output as #1 print #1, chr$(12) close #1

' Ooops, missed the centering part of your request. sub Center_cells() Dim x As Integer Dim off_set As Integer Dim col_num As Integer x = 1 off_set = 12 col_num = 1 Range(Cells(x, col_num), Cells(x + off_set, col_num)).HorizontalAlignment = xlCenter End Sub

sub select_cells() Dim x As Integer Dim off_set As Integer Dim col_num As Integer x = 1 off_set = 12 col_num = 1 Range(Cells(x, col_num), Cells(x + off_set, col_num)).Select end sub

Could you use sperate columns for each value? the heading in cell F1 "% of Coin" the formula in cell F2 =mid(d2,2,4)*.36 the heading in cell G1 "% of Revenue" the formula in cell G2 =mid(d2,6,4)*.5 ...and so on

Look in the help under "convert" for the convert function... example: =CONVERT(A2,"in","cm"). There should be something like =CONVERT(A2,"sec","min") Although you may need verify the proper "from" and "to" phrases.

have you tried the onkey event?

Highlite all "Guess" colums...in this case "B:D" Then Under Format, use Conditional Formating to flag the duplicates. when you define the condition...switch to "formula is" in the left drop down and type this ... =if(countif($b1:$d1,b1)>1,true,false) Note: Change the $B1:$d1 range to match...

from the menu...have a look at the 'validation' tool.

This example formula pasted in cell b2 links cell b2 to a pdf file on an I:\drive of the same name as is in cell A2 =HYPERLINK("I:\"&A2&".pdf", "Go to "&A2&".pdf")

A VBA solution.... Sub Grid_to_Column() Dim C As Range, r As Integer, sheet_name As String Columns("A:A").Select Selection.Insert Shift:=xlToRight sheet_name = ActiveSheet.Name r = 1 For Each C In Sheets(sheet_name).UsedRange.Cells If C.Value <> "" Then Cells(r, 1) =...

Are both add-ins open at the same time? If so... dimension your variables in a non private module as public I.E. public x as integer public my_text as string etc...

maybe this? strOutput = strOutput & " " & cstr(strTemp)

Look in the pivot table toolbar for formula>calculated field. follow the wizard

Thanks to everyone... Remou, with a little editing the example you posted work just lovely. and to ProgramError...thanks for that bit of code, I will most likely be able to use it in this project as well.

...a seperate non vba macro runs an append query based on the source data of the report, to keep a log of the labels printed. The problem is the append query is logging all records from the report source...How do I tell the append query to write only the number of records equal to PAGE_COUNT * 30?