Search results for query: *

I've tried that and get a subscript out of range error at this line: Windows("G:\Common\Common\dwlee\Reports\TPS.xls").Activate

How would I finish this code if I were to copy this data onto a separate sheet that's stored on a network drive. Private Sub CopyRange() Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy ActiveCell.Offset(10, 0).Range("A1").Select End Sub

Works like a charm, thank you. How would I be able to copy data within a sheet on to a another workbook on a network drive instead of just moving the worksheet.

Run a Macro thats localy on my hardrive, it will then populate data into table I have on that sheet that the macro is stored in, then I would like to move that sheet on to another workbook thats stored on a network drive. Can this be done?

It's saved both Locally, and on the Network Drive.

Hi guys, I'm trying to move a worksheet to a network drive but I keep getting the subscript is out of range error. This is what I have so far: Sheets("Sheet1").Select Windows("My Version.xls").Activate Sheets("Sheet1").Select Application.WindowState = xlMinimized...

Hey guys, I'm running a macro for work where sql statements are ran and it than applies this data to a worksheet, it then saves the file on a Network drive. How would I be able to just save that information on to the file without the Macro. I dont want anyone to see the macro. Any help would...

Hey Guys, Thanks again for your help, I would like to know how I can insert this text on a different workbook and not on the active sheet. I tried entering this code: ExcelApp.Workbooks("C:\TPS Template2.xls").Worksheet(1).Range("A3").Value = " Week of " & Date - 7 Selection.Font.Bold =...

I get error: "Sub or function not defined" with Use Highlighted.

Yes Its VBA, I thought I posted in a VBA Forum didnt I? I searched the helpfile in Excel and found something like this: With Worksheets(1).Range("e5").AddComment .Visible = False .Text "reviewed on " & Date End With This just adds the comment and I was just wondering if there is some...

Hey guys, Just was wondering how I can insert text into a Cell. I'm trying to insert text into a cell with a date. Something like this "Text" & Date - 7. Just dont know what the keyword is for inserting the text or how I can start up the code. Any help I would appreciate it. Thank You, Chris

? Data does not seem to be populating in my excel sheet. When I had a static date in my statement it was working fine. But I run this report weekly and need current data.

Hey guys Disregard last post I think that worked. Thanks for all your help

Error: Literal does not match format string ..when running: Select Count (*) From SIEBEL.S_EVT_ACT Where X_LOGIN_BRANCH Like '__' And ASGN_DT=' " & Format(Now-7, "yyyy-mm-dd") & " 'And X_CALL_TYPE Like 'Inbound%'

Sorry copied wrong statement, tried yours and now getting invalid charachter. Set rstCount = conMain.Execute("Select Count(S_EVT_ACT) From SIEBEL Where X_LOGIN_BRANCH Like '__' And ASGN_DT=#" & Format(Now-7, "yyyy-mm-dd") & "# And X_CALL_TYPE Like 'Inbound%'")

Still with the missing Expression error at "Having

Yes: qryDate = Now - 7 qryMonth = Month(qryDate) qryDay = Day(qryDate) qryYear = Year(qryDate) qryDate = qryMonth & "/" & qryDay & "/" & qryYear

I'm getting a missing Expression error when running ("SELECT Count(*)from SIEBEL.S_EVT_ACT where X_LOGIN_BRANCH like '__' and HAVING (((SIEBEL.ASGN_DT)=#" & qryDate & " #) AND (SIEBEL.X_CALL_TYPE) like 'Inbound%'") ...which is coming from "Having

Sorry about that, the date field that I would like to pull this information off of is ASSGN_DT

ROW_ID CREATED CREATED_BY LAST_UPD LAST_UPD_BY DCKING_NUM MODIFICATION_NUM CONFLICT_ID ACTIVITY_UID ALARM_FLAG ALLOW_BREAK_FLG APPT_REPT_FLG BEST_ACTION_FLG BILLABLE_FLG CAL_DISP_FLG DO_NOT_ROUTE_FLG EMAIL_ATT_FLG EMAIL_FORWARD_FLG INST_ALL_OCCR_FLG ROW_STATUS SCHED_LOCKED_FLG...