Search results for query: *

FInal code! Option Explicit Sub Test() Dim Sh As Object Dim ShFolder As Object Dim ShFile As Object Dim strPath As Variant Dim Folder As Scripting.Folder strPath = "C:\Users\JackMcDonald\Downloads" Set Sh = CreateObject("Shell.Application") Set ShFolder = Sh.Namespace(strPath) 'CHANGE FOLDER...

This code works but I want to also check all sub folders in C and get the owmer information from the file. Sub Test() Dim Sh As Object Dim ShFolder As Object Dim ShFile As Object Set Sh = CreateObject("Shell.Application") Set ShFolder = Sh.Namespace("C:\") 'CHANGE...

http://blue.kingcounty.gov/Courts/Detention/JILS/default.aspx <select name="tableResults_length" aria-controls="tableResults" class=""> <option value="10">10</option><option value="25">25</option><option value="50">50</option><option value="100">100</option></select> Above is the WEBPAGE...

I have a adobe PDFMAKER icon for office 2003. I open a excel document in EXCEL 2003 then I use the adobe PDF (an icon placed in excel or add-in) to covert the excel document and then send as attachment to outlook 2003. I can do this manually, but would like to automate using a macro in EXCEL...

My question: Does changing it to range is really saving time or resource? Another question, In order for my range to work I had to change my value from 1 to 5 why? Cells(k, 26).Value = Val(Range(Left((Cells(k, 1).Address), 5))) Cells(k, 27).Value = Range(Left((Cells(k, 1).Address)...

Use arrays and loops instead of the if else statement? Also, what is LOC?

Use arrays and loops instead of the if else statement?

I know I can do this better but I'm not sure how to optimize my code. Const sWorkRel1 As String = "1-*" Const sWorkRel2 As String = "3-*" Const sWorkRel3 As String = "4-*" Const sWorkRel4 As String = "49*" Const sFloora As String = "11*" Const sFloorb As String = "10*" Const sFloorc As String =...

Thanks PHV I knew, that didn't work with range. Also thanks MakeITso for your case statements.

Yes, it seems the problem lies with this statement Cells(k, 27) = Range(Cells(k, 1)).Text

I tried your code, but it's giving me a runtime error of 1004 with the message: 'Range' of objects _Global failed.

I query the data from our database and copied it to Excel. I compare the sheet and if it matches then copies it to another column. It takes forever to do this. Is there a better way of programming this? Should I store it an array?? help.. For k = (g_startRow + 1) To (endofRow - 1) 'Get...

Why not use this Application.ScreenUpdating = False ??? This speeds up the macro.

Oh yes..and your code works!!!

Skie- Thank you for giving me the support I needed to create this. You made my code MUCH, MUCH, cleaner and most of the repetitive code isn't there as before!! I'm new to programming and I don't know if I will ever be great but what you have taught me, I can incorporate in my future programs...

Here is my complete code..I can't seem to change the dialog dimension...it just gives me an error...Not sure how to fix this. Function dlgMyFunc(identifier$, action, suppvalue) dlgMyFunc = True Select Case action Case 1 'Dialogbox loaded setflag =1 dlgValue "CkFloor11"...

The sub PutStr works, but it takes about 4 sec to complete the task whereas the latter takes only 2 seconds. I had to put this identical code into my sub putstr...this code is also in my main sub Get the main system object Dim Sessions As Object Dim System As Object Set System =...

Logically, not working when I hit "OK" button because it would check everything when I hit ok. What I want is the user to be able to choose what they want. So if they choose 11 and 10 then hit ok. Only 2 would be check. But what's it is doing is checking everFunction dlgMyFunc(identifier$...

Sub PutStr(sString$, row%, col%) myScn.PutString sString$, row%, col% End Sub I added this sub after my main sub and it giving me a "Call Syntax Error"..why???

Thanks Skie!!! this ia valuable info for me. Jackeroo75