Recent content by inkserious

Thanks guys. This is what I came up with. Let me know if you see anywhere I can improve. -edward Sub HideChart() Dim SheetName As String Dim ws As Worksheet SheetName = Split(ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Formula, "(")(1) SheetName = Split(SheetName...

I have a workbook that contains six or seven sheets. I have a Pivot Chart on Sheet5 whose source data comes from a Pivot Table on Sheet2. I've created a button on the Pivot Chart sheet that when clicked will hide the sheet. Once clicked, I would like the Worksheet that the Pivot Chart source...

I know there is a more eloquent solution; however, this is what I came up with. It allows the user to overwrite an existing record, if found. I concatenated the three fields that need to be evaluated, and then used the countif and match function. Regards, -ep Private Sub cmdSubmit_Click()...

I have a UserForm which enters data into a structured table. I need to prevent duplicate records from being entered based on three criteria: date, shift and time. Ideally, the user would be prompted with a Msgbox alerting them that there is a duplicate record. They would have the option to...

Thanks Skip.

Figured it out! Private Sub setMonth() Dim ws As Worksheet Dim cMonth As String Dim myMonth As Range Dim curDate As Range Set ws = Worksheets("ranges") cMonth = ws.Range("currentMonth") Set myMonth = Range(cMonth) For Each curDate In myMonth With Me.cboDate...

My apologies the variable is curDate, not cDate. Thanks again.

I'm trying to populate a ComboBox with a named range. For example, I have a named range called currentMonth. This range contains the name of a month. I have named ranges for all of the months. So if currentMonth contains October, then the ComboBox would be populated with the named range...

Skip, Everything is working great now with the excepting of the truncating problem. I tried changing the MaxScanRows to 1. I also tried editing the TypeGuessRows value in the registry; however, neither one of those changes worked. Do you have any suggestions? The query does not truncate the...

The macro is working great. There are still a few issues I'm working out with the way the picture re-sizes, but nothing major so far. I am having a problem with the data being truncated. The cell receiving each recordset is truncating any data after 255 characters. Any ideas? I'm using...

Thanks for the macro Skip. I'm out of the office for two days. Will report back with the results Friday. Thanks again for the help. -edward

I kept receiving an "ODBC Excel Driver Login Failed" error. "Unrecognized database format." I deleted the table and created a new one, and I was able to record a macro using your instructions. Sub Macro4() With Selection.ListObject.QueryTable .Connection = Array(Array( _...

I think this is what you were looking for. Sub Macro2() With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _ "ODBC;DBQ=C:\Documents and Settings\epest\Desktop\ShiftDailyLog_b.xlsm;DefaultDir=C:\Documents and Settings\epest\Desktop;Driver={Mic" _ ), Array(...

Okay here is what I've accomplished: 1. I've named the calendar as a range and created a Worksheet_SelectionChange Event to set a target cell equal to the selected date. I created a macro to set another target cell equal to the shift when the user selects the shift. I then set these up as...

Thanks Skip. I built a query using the appropriate criteria. I'm stuck in two different areas. 1.) Where do I put the code to return the query to one column? I tried editing the SQL statement, but it says that the query cannot be represented graphically. 2.) How do I go about creating a...