@scottalanmiller said in Wayward Pines - Anyone Watch It? (May Contain Spoilers):
I've literally never heard that name before!
It was a summer fill in based upon the "Wayward Pines" book series by Blake Crouch. If you know nothing about it, Season 1, at least for the first half, is so very mysterious and intriguing. Season 2 is going beyond the books and at least in my opinion, is messy.
I was a late comer to Wayward Pines and watched it in April and was quite impressed and glued to it. After it's big "reveal", I was a little less intrigued but I still liked now it played out. I had to spread the word how good of a show it was.
Now that Season 2 is here, I am very worried for the direction of the show...any one have the same feeling?
@dafyre said in VBA Hint Needed - Change Way An Existing Project Grabs Data:
@garak0410 said in VBA Hint Needed - Change Way An Existing Project Grabs Data:
@garak0410 said in VBA Hint Needed - Change Way An Existing Project Grabs Data:
Maybe I am just thinking a little simplistic, but was thinking that this could be all I need, after commenting out the code that goes to the other sheet:
sJob = Report.Range("W2:W50").Select(CStr(l))
But alas, it doesn't work...
I am going to play around with variations of this but each time I change something, new errors (mostly syntax) pop up...it is maddening.
Welcome to the world of software devleopment, lol.
@thwr is right. I'd take a little while to clean up the code and make it more readable (see his code post)... and then go back to make your changes.
Are all of these jobs separated out into their own Excel files (or are they some other type of file that we don't care about?)
The "jobs" are metal building jobs that are in folders on a network share. The folders the "job numbers." When searching for these jobs, it goes out to these job folders, finds a file called o PltSum.out and then takes that data and calculates the needed materials to order for the week. That calculation isn't my focus as that should still work if I get this to work differently.
@garak0410 said in VBA Hint Needed - Change Way An Existing Project Grabs Data:
Maybe I am just thinking a little simplistic, but was thinking that this could be all I need, after commenting out the code that goes to the other sheet:
sJob = Report.Range("W2:W50").Select(CStr(l))
But alas, it doesn't work...
I am going to play around with variations of this but each time I change something, new errors (mostly syntax) pop up...it is maddening.
Maybe I am just thinking a little simplistic, but was thinking that this could be all I need, after commenting out the code that goes to the other sheet:
sJob = Report.Range("W2:W50").Select(CStr(l))
But alas, it doesn't work...
Here's the original Subroutine and Function it originally ran...as stated, want to rid the method of going to another sheet to pull job numbers by date and rather get them from column W and then it will continue to do the same arrays and calculations as it did before...
Sub IMPORT_ALL_INFORMATION()
'Set variables
Dim file_in As Long
Dim strInput As Variant
Dim i As Integer
Dim j As Integer
Dim l As Integer
Dim sTmp As String
Dim sJob As String
Dim sSchedPath As String
'end setting variables
Sheets("REPORT").Select
Range("C2").Select
sSchedPath = "C:\Temp"
Call apiCopyFile("\servername\Applications\Schedule\schedule-s\schedule, S.xls", "C:\Temp\schedule, S.xls", 0)
dteStart = Application.Sheets("Report").Range("$G$27").Value
dteEnd = Application.Sheets("Report").Range("$J$27").Value
l = 4 ' First data row of schedule, S.xls
j = 2 ' First job row of Plate & Bar Spreadsheet
Do Until CDate(GetDate(GetValue(sSchedPath, "schedule, S.xls", "LOG (2)", "N" & CStr(l)))) >= dteStart
l = l + 1
' Changed from 754 to 854...may be total jobs for year...went close to 800 jobs this year . BAW
If l = 854 Then
MsgBox ("Hello")
End If
sTmp = Trim$(GetValue(sSchedPath, "schedule, S.xls", "LOG (2)", "N" & CStr(l)))
If sTmp = "0" Or Len(sTmp) = 0 Or sTmp = "HOLIDAY" Then
l = l + 1
End If
Loop
Do
sJob = ParseJob(GetValue(sSchedPath, "schedule, S.xls", "LOG (2)", "B" & CStr(l)))
' Debug.Print sJob
vJobFolders = Split(FindJobDir(strpathtofile & sJob), ",")
For i = 0 To UBound(vJobFolders)
On Error GoTo ErrorExit
Application.Sheets("report").Range("C" & CStr(j)).Value = vJobFolders(i)
j = j + 1
file_in = FreeFile 'file number
strFileToOpen = strpathtofile & vJobFolders(i) & strFilename
If Dir(strFileToOpen) <> "" Then
Open strFileToOpen For Input As #file_in
Put_Data_In_Array (file_in)
Organize_Array_For_Print
Close #file_in ' close the file
End If
ErrorExit:
Next i
l = l + 1
sTmp = Trim$(GetValue(sSchedPath, "schedule, S.xls", "LOG (2)", "N" & CStr(l)))
If sTmp = "0" Or Len(sTmp) = 0 Or sTmp = "HOLIDAY" Then
l = l + 1
End If
Loop Until CDate(GetDate(sTmp)) >= dteEnd
Sheets("REPORT").Select
End Sub
Function GetValue(path, file, sheet, ref) As String
' Retrieves a value from a closed workbook
Dim arg As String
Dim pos As Integer
' Make sure the file exists
If Right(path, 1) <> "" Then path = path & ""
If Dir(path & file) = "" Then
GetValue = "File Not Found"
Exit Function
End If
' Create the argument
arg = "'" & path & "[" & file & "]" & sheet & "'!" & _
Range(ref).Range("A1").Address(, , xlR1C1)
' Execute an XLM macro
GetValue = ExecuteExcel4Macro(arg)
' Strip Any time from beginning of Date string
pos = InStr(GetValue, ":")
If pos <> 0 Then GetValue = Mid$(GetValue, pos + 3)
End Function
I know it is difficult to seek development help but perhaps a little boost in the right direction could help.
We have a spreadsheet that looks like this:
I added the column W when I started to work on this project and will explain below...
Basically this sheet grabs data (job numbers) from another sheet according to a date range and calculates them with other subroutines and places those job numbers in the cells starting at C2. For the sake of this post, no need to worry about all those other cells because if I can just get this started, the rest will fall into place.
We want to eliminate the need to look at that other sheet based upon date range to get the job numbers and just have the macro (RUN REPORT, top left) grab the "jobs" listed in column W that the user will manually enter.
Just don't know how to tell it, with VBA, to take each job number in column W and do what it normally did the other way and then put a warning up if it doesn't match exactly and to STOP when it teaches a null cell.
Any suggestions on where to find some examples of this? If I can just get this part going, I am fairly confident I can do the rest. I can post the existing subroutines code if needed.
Thanks so much!
@thwr said in Survey Monkey - Reporting Options and Ideas?:
@garak0410 oh dear, I know that
We're using sharepoint a lot, but I have to keep telling my colleagues over and over again that it is a quite impossible to be the only embedded, networking and backend dev, the only admin guy and on top a sharepoint guru at the same time
Anyway, if you know some HTML, JS and CSS, you could build something on the client side. C# on the server side is another option. Like I said, it's not impossible.
Partly my own fault for a lack of motivation and discipline to study and learn but as @scottalanmiller has mentioned a few times, it is quite tough to do both. And that wasn't dogging what I do know because they love me here...But had another VBA project come up that they want done by Wednesday and if I can be "Superman" on that one, there might be hope for me...
@thwr said in Survey Monkey - Reporting Options and Ideas?:
Don't know about SPO but a simple webpart (plug-in) may do what you want.
There are loads of free charting libraries available, both for server and client side rendering. I do understand that you are not a dev, but this shouldn't be too hard.
So yes, would do this in SP.
I will check it out...and believe me, as I've posted a few times on here and SW, they want me to develop more, especially VBA focused but the interruptions and day to day of being SOLO IT Director doesn't allow for quality dev time.
We set up a Survey Money account and this project is finally starting to take off.
Their reporting options are, well, less than robust, as it looks like I'll be manually building reports in Excel.
I'd rather not have "yet another spreadsheet" but as stated ion other posts, development isn't my strong suit but I can learn. We also have SharePoint Online but still haven't fully utilized it but not sure if that will be a good option for dumping and using this data.
Anyone have any common practices, suggestions or ideas on how to making reporting better?
@dafyre said in What Are You Doing Right Now:
@garak0410 said in What Are You Doing Right Now:
@thwr said in What Are You Doing Right Now:
But no more fleas, I guess?
Honestly yes...and cats were OK today too...not really sure who to call to help clean it up...just to make sure it is all gone.
If you went heavy with it, vaccuum the house a few times a week for a week or so.
Did it twice last night...going to do it again tonight wipe down surfaces and such...
Didn't get mad at wife but I sort of panicked...
@thwr said in What Are You Doing Right Now:
But no more fleas, I guess?
Honestly yes...and cats were OK today too...not really sure who to call to help clean it up...just to make sure it is all gone.
Trying to figure out how much danger we are in with my wife, taking a "suggestion" from someone at WalMart, of dusting our carpets with almost two canisters of Sevin 5 dust to combat fleas. Came home late from work last night (windows updates night) and she had it all over the living room and hallway carpets...covering my face, I ran the vac over it twice and today, need to dust and clean surfaces...windows are open today...fans going...
Google searches turn up articles from major scaremongering information on this stuff to others saying it is OK to just be careful. Didn't know if I should call a home cleaning expert or not...
We slept through the night OK... 
Well, I put this user in a rebuilt system, so no specific resolution was found.
@Dashrender said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@garak0410 said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@Dashrender said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
wooo.. yeah, upgrades are something I avoid like the plague! I'm going to be 'upgrading' everyone here over the next month, but there will be no upgrades.. it's all wipe and reload from image.
Well, I normally do as well but Windows 10 has been one of the better upgrades I've seen...MOSTLY.
Glad you've had luck with it, and while I can no longer say I've had zero luck, there has been no reason for me to use upgrades vs wipe and reloads personally.
True, especially, at least for now, you can use an existing Windows 7 or 8.1 key to upgrade with a clean install now.
I do have a machine I can put him that I had earmarked for someone else and then rebuild his for this other person. So much easier than having to spend after hours rebuilding an existing machine...
@Dashrender said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
wooo.. yeah, upgrades are something I avoid like the plague! I'm going to be 'upgrading' everyone here over the next month, but there will be no upgrades.. it's all wipe and reload from image.
Well, I normally do as well but Windows 10 has been one of the better upgrades I've seen...MOSTLY.
@garak0410 said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@thanksajdotcom said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@garak0410 said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@thanksajdotcom said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@garak0410 said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@thanksajdotcom said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
Open an elevated cmd window and try this:
net stop spooler
net start spoolerAlso, how are you connecting to these printers? Directly by IP? Over a share through a print server? More info please!
We are directly over IP...everyone is set up that way. Net Stop and Start resulted in the spooler starting and then immediately stopping:
The Print Spooler service terminated unexpectedly. It has done this 5 time(s).
Even his local printers like PDF printing or SEND TO ONENOTE are grayed out and not working due to spooler not running.
Yeah, everything runs through the spooler. Ok, so here's what I'd recommend to start.
Go to the following folder:
"C:\Windows\System32\spool\prtprocs\x64"
If there is an x86 folder, do the same in that folder. I have four files in mine (x64).
Whatever ones you have as well (I think the CNMPPDAN ones are for Canon), rename the extension to .bak. Copy those same files from a working computer, and put them in this/these folders. I've seen where the windows print processor DLL gets corrupted and replacing it fixes the spooling issues. Do that, and then try to start the spooler again, after you reboot.
Sadly, this didn't help...Print Spooler doesn't want to remain RUNNING.
Run a chkdsk /f /r and see what happens.
This is running now.
chkdsk /f /r didn't turn up anything.
@Brett said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
I have experienced a similar sounding issue with some workstations that were upgraded from Windows 7 to 10. There was a single file that was carried forward that caused the print spooler to fail. It was noted in the errors in either the Application or System log. All I had to do was delete that file, restart the PC, and it began working just fine. I believe it was from their tax software (CPA office). Might check into that.
This was one of the few Windows 7 to 10 upgrades in the office. He has been on 10 since last fall. Odd this happened now but can look into this theory too. Not sure where to look though...the ONLY change we had recently was adding an IP Plotter to his printers. And it worked fine for almost a week until this problem.
@thanksajdotcom said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@garak0410 said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@thanksajdotcom said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@garak0410 said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
@thanksajdotcom said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
Open an elevated cmd window and try this:
net stop spooler
net start spoolerAlso, how are you connecting to these printers? Directly by IP? Over a share through a print server? More info please!
We are directly over IP...everyone is set up that way. Net Stop and Start resulted in the spooler starting and then immediately stopping:
The Print Spooler service terminated unexpectedly. It has done this 5 time(s).
Even his local printers like PDF printing or SEND TO ONENOTE are grayed out and not working due to spooler not running.
Yeah, everything runs through the spooler. Ok, so here's what I'd recommend to start.
Go to the following folder:
"C:\Windows\System32\spool\prtprocs\x64"
If there is an x86 folder, do the same in that folder. I have four files in mine (x64).
Whatever ones you have as well (I think the CNMPPDAN ones are for Canon), rename the extension to .bak. Copy those same files from a working computer, and put them in this/these folders. I've seen where the windows print processor DLL gets corrupted and replacing it fixes the spooling issues. Do that, and then try to start the spooler again, after you reboot.
Sadly, this didn't help...Print Spooler doesn't want to remain RUNNING.
Run a chkdsk /f /r and see what happens.
This is running now.
@Kelly said in Print Spooler Keeps Stopping, Won't Stay Running (Windows 10):
Did you clean the files completely out of "%WINDIR%\system32\spool\printers"?
Yes...totally empty...
