Posts by rabsofty

attaching your spreadsheet would help.

attach your spreadsheet so we can see your code.

oops! - the formula's the formula's should all be the same.

I have modified the formula to get rid of the Value# error when date sent is blank and date rec is not, put this formula into your overdue column

=IF(A2<>"",IF(B2="",IF(TEXT(NOW(),"#")-TEXT(A2,"#")>3,"Yes","No"),IF(TEXT(B2,"#")-TEXT(A2,"#")>3,"Yes","No")),"")

This is what I came up with.

create a "cell value contains" rule (as text) for each cell in overdue column that = (Yes)
format all your overdue cells as (Green)

Attached is my spreadsheet.

[ATTACH]n1201048[/ATTACH]

as far as I know - No

jodi12, in your code for the OKButton_Click()
change the line shown with the replace with code.

'Transfer Info
'your old code - Cells(eRow, 1).Value = ListBox2.Value


'replace with
Range(Cells(eRow, 1), Cells(eRow + ListBox2.ListCount - 1, 1)).Value = ListBox2.List


End Sub

please provide the spreadsheet you have so far

please provide your spreadsheet

this line produces the error.

Addme.Offset(0, 47).Value = Me.Receipt_Collected

the Receipt_Collected combobox in the add new record form says (Combobox7)
but it exists somewhere else.

the space does get put in without adding it.

NBVC, your code shows surname,firstname,

for firstname,surname, try

=TRIM(MID(SUBSTITUTE(B2," ",REPT(" ",100)),100,100)&LEFT(SUBSTITUTE(B2," ",REPT(" ",100)),100))

to format as text

Range("A" & PstRw).Value = ProjID
Range("A" & PstRw).NumberFormat = "@"

providing your spreadsheet would help!

thanks Nilem. I thought so. but I asked anyway.

I already have what I need working as a single array. I wanted to split it into to arrays, (one for each userform) but did not want the extra redundant code.

Here's my code

Sub ldcls(me1)
'ld frm objs2 class
  Dim ctl As Control
  ufi = ufi + 1: If ufi = 0 Then tg = 0 Else tg = UBound(Fobj)
  For Each ctl In me1.Controls
    tn = TypeName(ctl): ReDim Preserve Fobj(0 To tg)
    If tn = "CommandButton" Or tn = "ListBox" Then
      Select Case ctl.Name
        Case "HelpBT", "CancelBT", "RefreshBT"
          Set Fobj(tg).BtnGrp = ctl: tg = tg + 1
        Case "drvsLB"
          Set Fobj(tg).LstGrp = ctl: tg = tg + 1
      End Select
   End If
   If tn = "OptionButton" Or tn = "CheckBox" Then
     Select Case Left(ctl.Name, 3)
       Case "Inf", "Rty", "Bop", "Rop", "Tfn"
         Set Fobj(tg).OptGrp = ctl: tg = tg + 1
       Case "EXR"
         Set Fobj(tg).ChkGrp = ctl: tg = tg + 1
     End Select
    End If
  Next ctl
End Sub

I have to arrays UF1() and UF2()

I have dim'ed them

dim UF1(), UF2()

I want to access them with a variable.

Eg:

x = 1
arrname = "UF" & x (arrname will = UF1 or UF2)

then use it below as such

redim preserve arrname( 1 to some number)

Is this possible?

I know you can do this with userform objects. Eg: set obj = me.controls("label" & x)

The Show sheet tabs checkbox does not remove the tabs, it actually removes the tabs toolbar.
In vba code it's
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayWorkbookTabs = True

If your intent is to prevent the user from showing the worksheets,

when your macro ends, hide your sheets. when macro starts, unhide them

sheets("sheetname").visible = false
sheets("sheetname").visible = true

Can you give me a little more detail as to what you wish to accomplish?

why dont' you password protect your workbook.
In the review tab, select protect workbook.

Kenneth,

In answer to your question, my program has parameters that I want to store such as version, license
I want to be able to add key(s) ,read and write values to it to hklm and if an uninstall is needed to delete the Key(s)

Eg:

Rabsoftware - Key
FinancialStatement - Sub Key
sysparm - SubKey
License abcdefgh - Parm
version 4.5 - Parm

JobTime - Key
sysparm - SubKey
License abcdxyz - Parm
version 2.3 - Parm

By putting it in hklm, I only have to modify it once. whereas in hkcu I have to modify it for each user.

I have looked at various websites and found all kinds of entries to add entries to HKLM none worked with success.

Using my spreadsheet and in VBA code I want to be able to add a key and put entries into HKLM (local machine)
(error says I do not have the permissions)

Rather than writing to HKCU for every user, I want to write the registry in HKLM so as the entries are global to the local machine.

Is there a way to programmatically allow my specific spreadsheet to have the permissions to access HKLM via Excel VBA code?
I am using Windows 7, Office 2010