Posts by bugs63

thank you so much

I am Sending the entire Program any and all help would be greatly appreciated. Thank YouHourly Counts.xlsm

I am Creating a Form to Track The Number Of Spaces in a Parking Lot. The End User would input whats ever was counted in the way of space then input that information in a TextBox. I have written the following code to handle the math portion of the program, the only problem is that I would have to write this code 265 times. the question is can this be done as a range of textboxes.

Private Sub TextBox49_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Total As Long
Total = Val(TextBox1.Value) - Val(TextBox25.Value)
TextBox49.Value = Total
End Sub
Private Sub TextBox50_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Total As Long
Total = Val(TextBox2.Value) - Val(TextBox26.Value)
TextBox50.Value = Total
End Sub
Private Sub TextBox51_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Total As Long
Total = Val(TextBox3.Value) - Val(TextBox27.Value)
TextBox51.Value = Total
End Sub
Private Sub TextBox52_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Total As Long
Total = Val(TextBox4.Value) - Val(TextBox28.Value)
TextBox52.Value = Total
End Sub
Private Sub TextBox53_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Total As Long
Total = Val(TextBox5.Value) - Val(TextBox29.Value)
TextBox53.Value = Total
End Sub
Private Sub TextBox54_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Total As Long
Total = Val(TextBox6.Value) - Val(TextBox30.Value)
TextBox54.Value = Total
End Sub

Thank you so much. Sorry about the code posting i have not quite figured it out yet.

I wrote a excel program to track a parking lots vehicle inventory every hour the program requires that the current date be inputted. The counts starts at midnight and ends at midnight the next day. The program then is Saved By Date "C:\SBD" folder. The problem is that when the folder that contains the data the SBD folder is selected for viewing or printing for whatever reason the date has to be enter again. The macro that contains the code is in this folder "C:\ Spaces". Apparently when the file is saved to the SBD folder the macro that has the codes for inputting the date is also being saved. My question is. Can the program be saved without the codes carrying over to the SBD folder?. Any help would be appreciate it Thank You.

Thank you so much I did not even see that. I guess I have been working on this too long.

I can not figure out why this code is not working i is there something wrong with the way the code is written? I am trying to save by dates instead of names SBD = Save By Date. the code looks right compiles ok but when I run it won't work the problem is where I underline it, K6 is the cell where the data is stored.

Sub Button2_Click()
Dim Path As String
Dim SBD As String
Path = "F:\SBD\"
SBD = "SBD"
SBD = Range("K6").Text
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=Path & SBD & Format(Now(), “DDDD / MMM / D / YYYY”) & “.xlsm
Application.DisplayAlerts = True
End Sub

Thank you again

1. Sub Button2_Click()
2. Dim Path As String
3. Dim Filename1 As String
4. Path = "i:\Saved By Dates\"
5. Filename1 = Range("k6").Text
6. Application.DisplayAlerts = False
7. ActiveWorkbook.SaveAs Filename:=Path & Filename1 & ".xlsx", FileFormat:=xlOpenXMLWorkbook
8. Application.DisplayAlerts = True
9. End Sub

I am trying to save a file to a folder by the date it was completed but i keep getting an error i wrote this code myself I'm still learning here is what i wrote

Thank You for all the info

Is there a way to create a MsgBox that disables a Sheet until a date is entered?

Thank you again

hello again, I'm having a problem I have this access form that needs to be updated so that column 1 or in this case Lot A and column 2 or Lot B need to be added together. Am I writing the wrong code I keep getting an error?Spaces Counts.zip

thank you for your help

Hello, I am looking for some help with access I need to create an access form or program that keeps track of the number of vehicles that park in a parking facility which has 7 location but within one facility all with different vehicle capacities. I don't know where to post the question.

Is There a Way To Create A Command Button, for example a Cancel Button that can take the programmer "in this case me" right to the code page even if the program is running. i am trying to create an administrator type password so that me or any one with a password can access the code.

Thanks. I gave up on that one i did posted another code that i cant figure it out

Why Is It Cutting Off The Top Of The UserForm it should show the minimize and Maximize as well as resize i am not sure what they are call but they are next to

the X to close the screen. Any Help would be appreciate it.

Private Declare Function DrawMenuBar Lib "USER32" (ByVal hwnd As Long) As Long
Private Declare Function FindWindow Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long) As Long
Private Declare Function GetWindowLong Lib "USER32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "USER32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, dwNewLong As Long) As Long
Private Declare Function GetGetSystemMenu Lib "USER32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function DeletMenu Lib "USER32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Const GWL_STYLE As Long = (-16)
Private Const WS_SYSMENU As Long = &H80000
Private Const WS_MINIMIZEBOX As LONG = &H20000
Private Const WS_MAXIMIZEBOX As LONG = &H10000
Private Const SC_CLOSE As LONG = &HF60
Private Sub UserForm_Resize()

If GetScreenResolution = "800x600" Then
    Me.Zoom = 100
Else
    Me.Zoom = 100
End If

'If Me.Height < 429Then
    'Me.Zoom = 100
'Else
    'Me.Zoom = 100
'End If

End Sub

Private Sub UserForm_Initialize()

Dim lngFrnMndl As Long, lngStyle As Long
    lngFrnMndl = FindWindow (vbnullString, Me.Caption)
    lngStyle = GetWindowLong (lngFrnMndl, GWL_STYLE
    lngStyle = lngStyle Or WS_SYSMENU Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    SetWindowLong lngFrnMndl, GWL_STYLE, lngStyle
    [attach=1226850][/attach]DrawMenuBar lngFrnMndl

End Sub

Thank You So Much For The Help i am Trying to Learn as i go along. Thank You Again.