Recent content by jackeroo75

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...