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.

Hi Everyone... I have an access report that is launched from a form via vba and the NUMBER pages that are "auto printed" are based on a variable (labelsx) created by running a Mod function on the number of records in the report source. (THE PURPOSE IS TO MINIMIZE WASTE OF LABEL STOCK). i.e...