RESOLVED...not sure why this was one of the last places to look but the actual ROUTING AND REMOTE ACCESS service was not running. Since it was set to Automatic, didn't think to check there yet as the actual SERVICE did show green. But can't trust that Automatic setting sometimes...

@DustinB3403 said in VPN Down Since Server Reboot:

Are those ports blocked by your new ISP?

Ar you sure the system reboot didn't make any changes to the settings on the server?

Those ports were configured and working 100% until the reboot last night. I've never had a Windows Update make changes serious enough to disrupt VPN. Everything looks good but not sure what else to look for. Still combing both the firewall and our Windows Server that handles remote access. I have involved our new ISP but not sure when they will call.

I updated and rebooted all of our servers last night. I come in today and someone who just started working from home for a few days said that VPN was down. Sure enough, it is. We get the ATTEMPTED VPN TUNNELS FAILED. I can only attribute this to the rebooting of the servers last night but never have we lost VPN on a reboot, so my guess it was the Vigor Firewall. So I rebooted it and still no VPN.

One thing of note, we went to a new ISP about a month ago and this was the first time we've ran windows updates and rebooted the servers. As far as I can see, the VPN/Remote services are running on the server.

Any suggestions???

This may be be digressing some but I've spent some time this afternoon debugging and stepping through code...

The code never goes back to this block once done:

For Each rCell In Worksheets("REPORT").Range("W2:W50")
Debug.Print rCell.Value:
sJob = rCell.Value

When it is done with Function FindJobDir

It returns to this line: vJobFolders = Split(FindJobDir(strpathtofile & sJob), ",")
and it takes the next job listed in column W and then fires off Function FindJobDir

So, where exactly do we want to put this Do Until or the If ActiveCell.Value = vbNullString????

@thwr 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:

@thwr 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:

@thwr 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:

I am going to examine the code on the existing project that grabs this same data by date range and a list from another spreadsheet. Will see how it stops its data collection to complete the macro.

It has a "Do Until" statement that keeps getting those job numbers until the date range is exceeded...wondering if I can DO UNTIL "null"?

You mean like when the cell is empty?

Yes...Do Until cell is empty...unless I am just thinking too hard on this...

If ActiveCell.Value = vbNullString
http://stackoverflow.com/questions/13360651/excel-how-to-check-if-a-cell-is-empty-with-vba

Great...will see what happens...

Don't blame me in case of a nuclear meltdown

Never...just jump into a lead lined Fridge before I begin...

@thwr 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:

@thwr 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:

I am going to examine the code on the existing project that grabs this same data by date range and a list from another spreadsheet. Will see how it stops its data collection to complete the macro.

It has a "Do Until" statement that keeps getting those job numbers until the date range is exceeded...wondering if I can DO UNTIL "null"?

You mean like when the cell is empty?

Yes...Do Until cell is empty...unless I am just thinking too hard on this...

If ActiveCell.Value = vbNullString
http://stackoverflow.com/questions/13360651/excel-how-to-check-if-a-cell-is-empty-with-vba

Great...will see what happens...

@thwr 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:

I am going to examine the code on the existing project that grabs this same data by date range and a list from another spreadsheet. Will see how it stops its data collection to complete the macro.

It has a "Do Until" statement that keeps getting those job numbers until the date range is exceeded...wondering if I can DO UNTIL "null"?

You mean like when the cell is empty?

Yes...Do Until cell is empty...unless I am just thinking too hard on this...

@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:

I am going to examine the code on the existing project that grabs this same data by date range and a list from another spreadsheet. Will see how it stops its data collection to complete the macro.

It has a "Do Until" statement that keeps getting those job numbers until the date range is exceeded...wondering if I can DO UNTIL "null"?

It looks like it needs a loop to do a "Do Until"...this sheet is full of loops...LOL

@garak0410 said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

I am going to examine the code on the existing project that grabs this same data by date range and a list from another spreadsheet. Will see how it stops its data collection to complete the macro.

It has a "Do Until" statement that keeps getting those job numbers until the date range is exceeded...wondering if I can DO UNTIL "null"?

I am going to examine the code on the existing project that grabs this same data by date range and a list from another spreadsheet. Will see how it stops its data collection to complete the macro.

@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:

@dafyre said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

if rCell.value = "" or rCell.value is null then end ?

Let me give it a shot...

Interesting...I now get a NEXT without a FOR error...on this line:
Next rCell
Sheets("REPORT").Select

Make sure that if statement is all on one line? ... or change it from :

then end

to

then exit

Man, I feel I'm close here but funny how it leads to other errors...if I change to EXIT (rather then END), I get:

@garak0410 said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

@dafyre said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

if rCell.value = "" or rCell.value is null then end ?

Let me give it a shot...

Interesting...I now get a NEXT without a FOR error...on this line:
Next rCell
Sheets("REPORT").Select

@dafyre said in VBA Hint Needed - Change Way An Existing Project Grabs Data:

if rCell.value = "" or rCell.value is null then end ?

Let me give it a shot...

I've dusted off this project because, well, the time has truly come where they want the bulk of my time in development.

So, through some suggestions and research, I have created this part of the code:

For Each rCell In Worksheets("REPORT").Range("W2:W50")
Debug.Print rCell.Value:
sJob = rCell.Value

It grabs the data I want it to grab in column W.

Shortly after that, it kicks off a function that is in this block of code:

vJobFolders = Split(FindJobDir(strpathtofile & sJob), ",")
For i = 0 To UBound(vJobFolders)

And that function, called FindJobDir, looks like this:

Function FindJobDir(ByVal strPath As String) As String
Dim sResult As String

sResult = Dir(strPath & "*", vbDirectory)
FindJobDir = UCase$(sResult)
Do While sResult <> ""
sResult = Dir
If Len(sResult) > 0 Then FindJobDir = FindJobDir & "," & UCase$(sResult)
Loop
End Function

Now, this works fine as long as there is data in Column W but once it is null or empty, it proceed to pull ALL jobs from the path/directory.

What I need it to do, is somewhere, tell it to stop once there is no more data (null/empty cell) in the Column W range...any suggestions?

@DustinB3403 said in Crystal Reports Learning - Where Can I Find Resources?:

I honestly am not certain of any "good sources", I use CR here for our asset system so I can generate reports (even our phone system has CR reports)

I'll try this "Dummies" book for CR 10...I don't think the interface has changed much...

@scottalanmiller said in Crystal Reports Learning - Where Can I Find Resources?:

I've not seen CR resources since the 1990s, I'm afraid.

Glad my searching skills aren't bad then. I've looked all over and no one is writing about it anymore. I guess I don't have to use CR but considering my current (but growing) skill level, I figured out it would be easier to go Crystal Reports, especially since we already have many CR reports in place.

I've been asked to look into Crystal Reports for Microsoft Dynamics reporting. It has been years since I've used it from scratch. We went ahead and upgraded to Crystal Reports 2016 and I've been searching for a good, beginner book and I cant seem to find anything. There is a Dummies book for version 10. Do you think that would suffice? It doesn't look like there have been many revolutionary changes lately. Any other resources to recommend?

Thanks...

I'm looking for some sound advice on a headset for the VoIP system. We recently retired our 21 year old phone system and are on a VoIP system provided by a local and growing provider. The phones are Aastra 6739i. They have Bluetooth built in.

Our switchboard operator would like a headset so she can answer a call when at the copier. She does know she still needs to go back to switch board to transfer but would love to answer calls away from the desk.

So far I've tried the Jabra PRO 920 and Plantronics CS530.

The Jabra had no option to answer phone calls and the Plantronics CS530 did but only if you go take the handset off the base first and then you can talk.

So, 0-2 so far.

Basically, the office clerk wants the option answer a call when she is over at the copier. She does know she has to go back to switch board to transfer the call but to be able to answer when across the room his huge.

Am I just thinking too big here? Or is there a good device and perhaps a Bluetooth only solution?

@coliver said in Independence Day: Resurgence - Atrocious Script But Admittingly Fun:

@garak0410 said in Independence Day: Resurgence - Atrocious Script But Admittingly Fun:

@coliver said in Independence Day: Resurgence - Atrocious Script But Admittingly Fun:

I think I'm going to wait till it is available to stream. The original Independence Day was a little cheesy, but ridiculously enjoyable.

This one was ridiculously cheesy and a little enjoyable.

Fair enough, definitely on my wait till it streams list.

Normally, if a movie has a script that is this bad, I usually just hate it but it was hard to hate this movie. A "popcorn" movie for sure.

@coliver said in Independence Day: Resurgence - Atrocious Script But Admittingly Fun:

I think I'm going to wait till it is available to stream. The original Independence Day was a little cheesy, but ridiculously enjoyable.

This one was ridiculously cheesy and a little enjoyable.