Posts by rabsofty

rabsofty · Mar 29th 2017

Re: UserForm Input to a Specific Row

attach your workbook so it can be looked at! (rabsofty)

rabsofty · Sep 22nd 2015

Re: VBA to lookup values based on 2 combo-box values in user form.

this is one way to do what you asked. There are a few other ways.

I have attached a spread sheet (dept.xlsm) for you to look at

rabsofty · Sep 11th 2015

Re: VBA Set Focus error with Data Validation

can u attach a copy of the workbook!

rabsofty · Sep 11th 2015

Re: VBA Set Focus error with Data Validation

Code

Private Sub TB_DateWeek_BeforeUpdate (ByVal Cancel As MSForms.ReturnBoolean)


 Dim dDate as Date


 If Mid (TB_DateWeekCommence.Value, 4, 2) > 12 Then
            MsgBox “Invalid Date, please re-enter”, vbCritical
            TB_DateWeekCommence.Value = vbNullString
            TB_DateWeekCommence.Value.SetFocus
            Cancel = True
            Exit Sub
 End If

Display More

in your code above you have
TB_DateWeekCommence.Value.SetFocus

should be
TB_DateWeekCommence.SetFocus

rabsofty · Aug 6th 2015

Re: Enabling and Disabling Command Buttons in Excel Userforms

here is a sample I have with button OkBT

Code

Private Sub OkBT_Click()
  rbix = rbact(Frame1): If rbix = -1 Then x = MsgBox("A Selection Is Required!" & crlf1 & "Or Click Cancel To Quit.", 48, "Selection Not Made Error..."): Frame1.SetFocus: Exit Sub
  If rbix = 2 And drvsLB.ListIndex = -1 Then x = MsgBox("A Drive Was Not Selected." & crlf1 & "Please Select The External USB Drive" & crlf1 & "Where License And User Data Are Located.", 48, "Drive Not Selected Error..."): drvsLB.SetFocus: Exit Sub
  If rbix = 0 Then
    response = MsgBox("***WARNING***" & crlf1 & "A Trial License Is For First Time Use Only." & crlf2 & "If You Had A Previous License," & crlf1 & "ALL Exisitng Data WILL Be Destroyed." & crlf2 & "Do You Wish To Continue?", 308, "Trial Select Warning Message...")
    If response = vbNo Then Label6 = "Trial Install Aborted": LtRB1 = False: Frame1.SetFocus: beep: Exit Sub
    spad.Cells(5, 11) = trn
  End If
  [COLOR=#0000FF]okBT.Enabled = False[/COLOR]: Call addlog2lst("syslog", "First Time", "Install", 0, 0, "", "licfl " & licflok & " usrfl " & usrflok, "S51")
  If rbix = 2 Then
    exdrv = drvsLB.text & "\": mrt = exdrv & parmval("rabdir") & parmval("findir"): If isfldr(mrt, bakdir & bindir) = False Then x = MsgBox("Unable To Find A Backup On Drive Selected.", 48, "External Backup Not Found Error..."): okBT.Enabled = True: drvsLB.SetFocus: Exit Sub
    Call c4licfl(mrt, bakdir): Call ustat("Backup (" & exdrv & ") License", licflok): Call ldusers(mrt, bakdir): Call ustat("Backup (" & exdrv & ") User Database", usrflok)
    gb = parmval("globalfile"): gbl = "Copied": Call flcpydel(mrt, maindir, bakdir & bindir, bindir, gb, gb, 0): If errnum <> 0 Then gbl = "Not Copied"
    Call addlog2lst("syslog", "First Time", "Install", 0, 0, "", "External (" & exdrv & ") licfl " & licflok & " usrfl " & usrflok & " gblfl " & gbl, "S52")
    If licflok <> 0 Or usrflok <> 0 Then
      Call lted(False, False, True): Label6 = "Not Found Or Error Detected." & crlf1 & "Select A New External USB Drive Or" & crlf1 & "Click Cancel Or " & crlf1 & "Contact Your Support."
      Call refreshBT_Click:  [COLOR=#0000FF]okBT.Enabled = True[/COLOR]: beep: Frame1.SetFocus: Exit Sub
    End If
  End If
  ok = True
  Unload Nwkbkdlg
End Sub

Display More

rabsofty

rabsofty · Aug 6th 2015

Re: Enabling and Disabling Command Buttons in Excel Userforms

for enabling/disabling buttons:
EnterCmd.enabled=true or false

any control in a userform can be enabled/disabled this way

for a list of all commands available to lets say your button (EnterCmd)
type: EnterCmd.

this will give you a list of all available commands for this control

rabsofty · Jul 24th 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

pike I have attached a file (Budget2015.txt)

put it in c:\Rabsoftware\Financial_Statement\budget\

rename it to Budget2015.dta (forum does not allow ext .dta)

then simply load that budget year.

For the other sheets,
Creditcard Sheet: Create yourself a credit card.

Vehicle Sheet: gets its data from Budget data (load sheet for 2015)

Annual Sheet: load annual data for 2015 - then configure some entries.
(Don't forget to click SAVE CHANGES when done)

Banking Sheet: Add your own banking data. (see examples on sheet)
Reports sheet: Create a system stats report for 2015
Reports sheet: Create a Totals report for 2015

Note: you are licensed from 2015 - 2019 (click Info? on Globals Sheet)

Rabsofty

rabsofty · Jul 23rd 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

Due to unforeseen technical problems I closed the post.

the post is reopened and I have a NEW link to DropBox.

Here is NEW dropbox link to the Financial Statement Workbook.

https://www.dropbox.com/s/b89gm992p619z19/Beta.zip?dl=0

Here are the instructions for installing the Financial_Statement.xlsm workbook.

Do the following:
-----------------

*** On your P.C. ***

Create the following Folders:
c:\Rabsoftware\
c:\Rabsoftware\Financial_Statement\

download the beta.zip file (link above)

right mouse on the beta.zip folder and click Extract All
(make sure the folder it will extract to is: c:\Rabsoftware\Financial_Statement\

After extraction, you will have the following:

in c:\Rabsoftware\Financial_Statement\
Bin - Folder
Financial_Statement.xlsm - Excel Workbook.
finstmt.hlp - compiled help file
finstmt.cnt - compiled contents file

in c:\Rabsoftware\Financial_Statement\bin\
about.dtv - about program
buglst.dtv - bug list
verinf.dtv - version info

Note: Note: Note: Note: Note: Note:
-----------------------------------
Normally i have an Installer program to do all this for you.
My current Installer program is not compatable with windows7 and up.
I will be upgrading the installer program soon.

Operation:
----------
When you run the workbook,

select my first time using this workbook and click continue.

Enter the following license: NJUFTJHJWGGLUSPRSETJ

After that follow the instructions in the workbook.

************************************************************
If You Have Any Questions,
send me a private message in the forum and i will respond.
************************************************************

Enjoy and Thanks In Advance: Rabsofty

VBA DEVELOPERS:
---------------
If anyone wants to look at the vba code,
the password is: betauser

The worksheets and workbook are also password protected with the same password.
DO NOT change the worksheet and workbook password without also changing it
in the vba code.

Help File Note:
---------------
The help is in the old windows format (XP), if windows asks
you to get an addon (win32hlp.exe) do so and install it.
I am currently rewriting the help utility in the
new windows format and will be out soon.

Thanks Again

Rabsofty [INDENT]

Excel Video Tutorials /

[/INDENT]

rabsofty · Jul 22nd 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

post closed (2015/07/22) - NLU

rabsofty · Jul 17th 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

link to financial workbook now in place
(since I could not upload on forum)

rabsofty · Jul 17th 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

Here is dropbox link to the Financial Statement Workbook.

https://www.dropbox.com/s/8e04d803609piw3/beta.zip?dl=0

Here are the instructions for installing the Financial_Statement.xlsm workbook.

Do the following:
-----------------

*** On your P.C. ***

Create the following Folders:
c:\Rabsoftware\
c:\Rabsoftware\Financial_Statement\

download the beta.zip file (link above)

right mouse on the beta.zip folder and click Extract All
(make sure the folder it will extract to is: c:\Rabsoftware\Financial_Statement\

After extraction, you will have the following:

in c:\Rabsoftware\Financial_Statement\
Bin - Folder
Financial_Statement.xlsm - Excel Workbook.
finstmt.hlp - compiled help file
finstmt.cnt - compiled contents file

in c:\Rabsoftware\Financial_Statement\bin\
about.dtv - about program
buglst.dtv - bug list
verinf.dtv - version info

Note: Note: Note: Note: Note: Note:
-----------------------------------
Normally i have an Installer program to do all this for you.
My current Installer program is not compatable with windows7 and up.
I will be upgrading the installer program soon.

Operation:
----------
When you run the workbook,

select my first time using this workbook and click continue.

Enter the following license: NJUFTJHJWGGLUSPRSETJ

After that follow the instructions in the workbook.

************************************************************
If You Have Any Questions,
send me a private message in the forum and i will respond.
************************************************************

Enjoy and Thanks In Advance: Rabsofty

VBA DEVELOPERS:
---------------
If anyone wants to look at the vba code,
the password is: betauser

The worksheets and workbook are also password protected with the same password.
DO NOT change the worksheet and workbook password without also changing it
in the vba code.

Help File Note:
---------------
The help is in the old windows format (XP), if windows asks
you to get an addon (win32hlp.exe) do so and install it.
I am currently rewriting the help utility in the
new windows format and will be out soon.

Thanks Again

Rabsofty

rabsofty · Jul 14th 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

the forum upload does not allow me to upload certain files, even if they are zipped.

even when I just upload the .xlsm file I get an error (#2038)

I tried and .xls file and it uploads ok.

rabsofty · Jul 14th 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

anyone wishing the workbook can send me an email with your email address.

rabsofty · Jul 14th 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

sorry again, my brain does not function in the A.M. without my coffee.
yes pike I can zip the file

rabsofty · Jul 14th 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

sorry, yes kay.ogunbo I can zip the file

rabsofty · Jul 14th 2015

Re: Financial Workbook (Beta Testers) & (VBA Code Lovers)

yes!

rabsofty · Jul 13th 2015

I have a Financial workbook that I built for which I am
looking for a few beta testers to critique, expose my bugs, offer comments.

You Can Also Look At My VBA Code (Maybe To Give You Some Ideas)

Thanks: Rabsofty

*** If you are interested, ***

Since the forum does not allow me to upload some of the files listed below,
send me a private message if you are interested Or reply to this post.
I will them email them to you.

Thanks Rabsofty

Financial_Statement.xlsm - Excel Workbook.
finstmt.hlp - compiled help file
finstmt.cnt - compiled contents file
about.dtv - about program
buglst.dtv - bug list
verinf.dtv - version info

rabsofty · Jul 7th 2015

Re: building an object in vba in a userform

thanks cytop. after 27 years I was bound to forget something.

when setting nobj, I forgot to assign as a control

Thanks again
Rick

my solution:

Code

Dim nobj As Object


  For j = 1 To parmval("numopts")
    Set nobj = Me.Controls("pmCM" & j)
    a2 = Parms.Cells(b, j + 2):nobj=a2
  next j

rabsofty · Jul 6th 2015

I did this a very long time ago and cannot remember how

I have 3 checkboxes in a user form (labelled - pmCM1,pmCM2,pmCM3)

normally u can access them directly (eg: pmCM2.caption)

I want to chain the name together as an object.
as follows

code start
j=2
nobj= "pmCM" & j

nobj now = pmCM2 (but not as an object)

what am I missing???