Problem: Macro not deleting columns I select

Visual Basic for Applications (VBA)

Index ‹ Microsoft ISV

- Previous
  - 1
    - Trying to use XML Schema to import datas Hello all! well, I've been trying to importing some datas of a XML document based in rules XML schema to an Acess Table. What I found about it was only the code Application. ImportXML _ DataSource:="employees. xml ", _ ImportOptions:=acStructureAndData then I used this Application.ImportXML _ DataSource:="d:\schema\users.xml", _ SchemaSource:="d:\schema\users.xsd", _ DataTarget:="Users_Main" No sucess. I have no idea how to do this!! any help is appreciate... ThanX all Marcos Hercules Santos Tag: Problem: Macro not deleting columns I select
  - 2
    - Hiding Access Application Window Hi Everyone! Apologies in advance for the long thread! I have an Access database, which I have developed to monitor and track assets issued to employees, and it is intended to be used by others, as opposed to myself. It therefore makes heavy use of forms in order to provide a friendly user interface for non-technical people. To really polish the application off, I want to be able to completely hide the main Access application window, so from a user's point of view, they would not know it was Access. I have already looked extensively into doing this and the common approach seems to be calling the Windows API: ShowWindow function. I've seen various snippets of code etc on how to do this, but I'm still not 100% sure how it would work with my particular application. My application consists of a main form, which users can access all the various functionality. This form has been set to load as soon as the database is opened from the Tools>Startup menu, and will be open the whole time the application is in use. Its modal and popup properties are set to False. All other forms are in effect children of this main form and have their modal and pop up properties set to true, and display on top of the main form as and when they're called. I also have a login form, which I've set to open from the Load event of the main form. This is obviously modal and will quit the application if closed, or if the user fails to log on successfully. Given this setup, how can I successfully use the Windows API mentioned above, if indeed there are no better solutions Initial trials have all resulted in successfully being able to hide the main Access App window, but I get things like the login window appears but the main form is nowhere to be seen, or the main form appears, but the login form can't be seen. In both cases, I had to end the process via Ctrl Alt + Del. Cheers for any help and sorry for the long winded thread!! Tag: Problem: Macro not deleting columns I select
  - 3
    - Assigning keyboard shortcut to VBA macro programmatically Using OLE, I create an Excel sheet with graphs and some macros to manipulate them. I'd like to assign keyboard shotcuts to the macros, so that the user has easy access to them. I can't figure out - however - how to do that. Any suggestions Thanks in advance. Tag: Problem: Macro not deleting columns I select
  - 4
    - Browse hard disk with VBA Hello, I want to read a text file into Excel with VBA. This all works fine with some code I found, the only problem is that the text file I want to open should either be written in the code, or in a textbox but than I have to type the complete location (C:\MyDocuments....) what I would like to have is a browser, similar to the one from Windows on "Ctrl O", which opens when I push a button so I can browse for the file on my hard disk and select the file I want to read into Excel. Does anybody know if this could be made in VBA, and if it is possible how Barry Tag: Problem: Macro not deleting columns I select
  - 5
    - Microsoft Document Image Printer - MODI Registry Settings Hi, I have tried to set the OpenInMODI to 0(zero) to prevent the Microsoft Office document imaging" from opening, but still opens after the printing is done. how can I correct this Tag: Problem: Macro not deleting columns I select
  - 6
    - How to open a folder through excel macro! Hi I've obviously missunderstood what you were after. What do you want to do once you've opened the folder Regards Peter Mo. Tag: Problem: Macro not deleting columns I select
  - 7
    - Application-defined or object-defined error Hello All, I'm receiving the error message in subject in the following code: Public Sub Err(ErrorID As Long , _ Optional AddInfo As String = "", _ Optional Source As String = "", _ Optional Log As Boolean = True ) If Log = True Then Me.Log MsgTypeError, ErrorID, AddInfo, Source MsgBox Me.GetErrorDescription(ErrorID), vbCritical + vbOKOnly , "FTCM Error" End <= this is where the error occurs End Sub VBA.Err object is clean the code lies in worksheet in Excel 2002 named "Log" VBA.Err.Raise(Number:=513, Source:="Anything", Description:="Whatever") also raises the same error (not "Whatever" as I'd expect) I know I have overriden names "Err" and "Log", but renaming does not solve anything Edit 2007-10-29 17:24: If I remove the "End" statement and place it into calling procedure after the Log.Err call, everything works as expected. Does anyone have an idea, why this happens Thanks in advance. Tag: Problem: Macro not deleting columns I select
  - 8
    - Subscript out of range If bw_sh is the name of a variable, you would not want to enclose it in quotes. If you do that, it will look for a sheet named bw_sh instead of a sheet named according to the variable bw_sh (eg "D1"). Is the sheet name "D 1" or "D1" Your recorded macro example shows "D 1" (with a space), but you say when you hover over bw_sh it shows "D1" (without a space). The sheet name in the macro will need to match the exact sheet name in the workbook. So either: change the sheet name in the workbook so that it matches what the macro expects (this is probably the easier option if you're not familiar with VBA); OR the macro needs to be changed so that wherever bw_sh is being defined (this will probably be a line that starts with " bw_sh = "), it defines it as "D 1". Tag: Problem: Macro not deleting columns I select
  - 9
    - Application.FileSearch in Excel 2007 Have a quick look at my response to the original question. Hope that helps mate. Tag: Problem: Macro not deleting columns I select
  - 10
    - Can you use VBA to access a spread sheet embedded in a word doc? Andy - I've just used these: activedocument.InlineShapes(2).OLEFormat.doverb activedocument.Range(1,1).Select The OLE object need not remain activated to keep working on it, so I use DoVerb and the following line right at the top of the code that manipulates the OLE object. - Jon ------- Jon Peltier, Microsoft Excel MVP Tutorials and Custom Solutions http://PeltierTech.com _______ Tag: Problem: Macro not deleting columns I select
  - 11
    - Excel - Resize image to specified target cells' dimensions I have a command button on a worksheet that calls up the ＆getsaveasfilename＊ dialog, and inserts the selected image file into a merged range of cells. The images are automatically re-sized to fit into the cell (aspect ratio maintained). Everything works well, but I ran into a problem. There are about 70 sheets in the workbook, and this command button can be found about 250 times throughout the workbook. I found out that the merged cells to contain the images vary in width and height throughout the workbook, even on the same sheet. (By the way, I did not create the sheet, I was just asked to input the commands 每 lucky me) I do not want to go through every one and figure out the width and height for each cell on the worksheet and type in the corresponding values for every button, (it might take me weeks). What would be helpful is if there were a way to write the code so that the image is resized to the size of the cell (it is actually a merged set of cells), that it is being placed into. Essentially I need to maintain the aspect ratio of the image file, and fill the target cell(s) without exceeding their boundaries. Attached is the code in it＊s present state＃ Code Snippet Private Sub CommandButton4_Click() 'before ActiveSheet.Unprotect Range("A9").Select Dim PicLocation As String PicLocation = Application.GetSaveAsFilename("C:\Windows\My Documents", "Image Files (*.jpg),*.jpg", , "Specify Image Location") If PicLocation <> "False" Then ActiveSheet.Pictures.Insert(PicLocation).Select Else Exit Sub End If Selection.ShapeRange.LockAspectRatio = msoTrue Selection.ShapeRange.Width = 235# Selection.ShapeRange.Height = 165# With Selection .Placement = xlMoveAndSize .PrintObject = True End With Range("H16").Select 'after ActiveSheet.Protect End Sub Any ideas on how to fix my dilemma Tag: Problem: Macro not deleting columns I select
  - 12
    - problem with pivot table Visible property in excel 2003 SP2 vba Hi there, I have problem with pivot table Visible property in excel 2003 SP2 vba."run-time error 1004: Unable to Set Visible Property" VBA code have a Pivot Item property for filtering pivot data. Pivot item is "DeliveryDay". In code i check that Visible value of items (true/false) and if it is False then i like to change it to True. Code using For Each loop for checking Visible proberty value. (If PivItem.Visible = False Then PivItem.Visible = True) I'am really sure that i have right syntax in my code. I'am using similar code in other PivotSheet and it's works :-| Following article tells at that is an Excel bug. I don't have any sorting in pivotTable. Article is over one year old, so i loaded SP2 for this case -> No help. Is there any hotfix/solution for this case "Is an Excel bug that set PivotItem.Visible to true will generate 1004 Macro Error http://forums.microsoft.com/MSDN/ShowPost.aspx PostID=168090&SiteID=1 " cheers, Jari Tag: Problem: Macro not deleting columns I select
  - 13
    - Subscript out of range with a simple sql :-( [newbie to VBA] This variable is defined as: Dim firstbook As String So, do you want me to change to: Dim firstbook As Explict how can i print or show the values of these varialbes at runtime when i run the macro via VBE. i wanted to do something like: If doFourPlates Or doTwoPlates Then // this is how i can do in JAVA. // System.out.println ("my firstbook value is= " + firstbook ); // System.out.println ("my work book value is= " + wb ); * Application.Workbooks(firstbook - 1 + wb).Activate End If and where to see these values is there any log generated or how to see these values in VBE Thanks for your time. Tag: Problem: Macro not deleting columns I select
  - 14
    - Run-time error '13': Type Mismatch *ignore this ^^!* i always get this error when i try to run...does anyone know what's the problem Code Snippet Option Explicit Private Sub UserForm_Initialize() UpdateData cbxDept.AddItem "Marketing & Sales" cbxDept.AddItem "Supply Chain" cbxDept.AddItem "Purchasing" cbxDept.AddItem "Technical & Production" cbxDept.AddItem "Research & Development" cbxDept.AddItem "Finance & Control" cbxDept.AddItem "Human Resource" cbxDept.AddItem "Globe & ISIT Services" End Sub Private Sub cmdPrevious_Click() If txtRow.Text > 1 Then txtRow.Velue = txtRow.Value - 1 UpdateData End Sub Private Sub cmdNext_Click() If txtRow.Text < Range("Database").Rows.Count Then txtRow.Value = txtRow.Value + 1 UpdateData End Sub Private Sub txtFName_AfterUpdate() Range("A2")(txtRow.Text).Value = txtFName.Value End Sub Private Sub txtLName_AfterUpdate() Range("B2")(txtRow.Text).Value = txtLastName.Value End Sub Private Sub cbxDept_AfterUpdate() Range("C2")(txtRow.Text).Value = cbxDept.Value End Sub Private Sub txtRow_AfterUpdate() If txtRow.Text < 1 Then txtRow.Text = 1 ElseIf txtRow.Text > Range("Database").Rows.Count Then txtRow.Text = Range("Database").Rows.Count End If UpdateData txtFName.SetFocus End Sub Private Sub UpdateData() txtFName.Text = Range("A2")(txtRow.Text).Value txtLName.Text = Range("B2")(txtRow.Text).Value cbxDept.DropButtonStyle = Range("C2")(txtRow.Text).Value End Sub thanx Tag: Problem: Macro not deleting columns I select
  - 15
    - Microsoft Office Document Image Writer driver Hi, I'm having the following problem with my installation of Microsoft Office Professional Edition 2003 on my Windows XP Professional operating system. I am trying to send a fax using my internet fax service, so I am in Microsoft Word, and click on File/Send to/Recipient Using Internet Fax Service..." and I get the following error message: "The Microsoft Office Document Image Writer driver cannot be detected. To use the Internet fax service, run the Office Setup Program to remove the driver, and then run the Office Setup Program to add the driver back." In short, I did that and it didn't work. It still gives me the same message. Can anybody help me please Thanks. Rich Tag: Problem: Macro not deleting columns I select
  - 16
    - CRM 3.0 Outlook Client - Missing Price List Is there a hotfix or hack to get the Outlook Client to work with a CRM Service on a different domain I have looked everywhere and tried everything to no avail. I have added domain login information in managed passwords. I tried our web exposed domain and via vpn. I added the web domain and regular domain to the intranet security profile still no luck. These are the only too recommendations I have been able to find. Is there an error log for the Outlook Client that further details the error to see exactly which domain was being hit and which login failed Tag: Problem: Macro not deleting columns I select
- Next
  - 1
    - Using VBA in Word to slect and print a particular Record (recipient) Hi, I am trying to set up Word so that I can get information from Excel and input this data into a form letter. I am using Mail Merge and that part works great. But now I want to be able to search for a particular record (recipient) and print the document only for that record. I know you can search through the "find" button on the mail merge toolbar but I want to make this more user friendly because my fellow emplyees are not very familiar with the mail merge function and it woukld be easier to go through a macro. Is there someway i can do this through VBA Like have the user enter a string into a form with the name of the person they are trying to find and then press a button and have it print Thanks. JB Tag: Problem: Macro not deleting columns I select
  - 2
    - sending emails from MS Word with variable subject line Hi, Is it possible that the text is not part of the bookmark Rather the bookmark is next to the text. If so maybe this code will grab the word to the right of the bookmark. With Selection.GoTo(What:=wdGoToBookmark, Name:="EmailAddress") Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend MsgBox Selection.Text End With Tag: Problem: Macro not deleting columns I select
  - 3
    - A question on the ISV/Software Solutions competency customer reference requirements Sorry about that. Here's the new link: https://partners.microsoft.com/PartnerProgram/ContactMicrosoft.aspx Tag: Problem: Macro not deleting columns I select
  - 4
    - Easy msgbox Query jaxgev wrote: Adamus, Thank you for the reply. I tried: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Sheet1.Range("C11").Value < 0 Or Sheet1.Range("C12").Value < 0 Then MsgBox "Enter Larger Value." End If End Sub And still get nothing. Ideas Jackie You're using the wrong Event...here you go: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) If Sheet1.Range("C11").Value < 0 Or Sheet1.Range("C12").Value < 0 Then MsgBox "Enter Larger Value." End If End Sub Adamus Tag: Problem: Macro not deleting columns I select
  - 5
    - Getting word to understand html Hi all!, I have some html content and want word to render it.. I'm using the word.application object, creating a new document and then using selection.typetext "<h1>test123</h1>".. That doesn't work as I want, it get typed exactly like that. I want word to understand that it should use headersize 1 and type only test123.. How to do that , would be nice with something like selection.typehtml Tag: Problem: Macro not deleting columns I select
  - 6
    - Problem with CWnd::RunModalLoop(DWORD dwFlags) in wincore.cpp I encounter with the same problem. In my case solution was in change SendMessage to PostMessage. Tag: Problem: Macro not deleting columns I select
  - 7
    - inserting row in excel I'm using vb.net express to call excel with this code Private Sub Button3_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim XL As Excel.Application Dim xlwb As Excel.Workbook Dim xlsheet As Excel.Worksheet XL = New Excel.Application xlwb = XL.Workbooks.Open( "C:\Documents and Settings\S. Ross\My Documents\sales invoice1.xls" ) xlsheet = xlwb.Worksheets(1) XL.Visible = False Try xlsheet.Cells(8, 2).select() XL.Selection.value = Me .NameComboBox.Text.ToString xlsheet.Cells(9, 2).select() XL.Selection.value = Me .AddressTextBox.Text.ToString xlsheet.Cells(10, 2).select() XL.Selection.value = ( Me .CityTextBox.Text.ToString) xlsheet.Cells(10, 3).select() XL.Selection.value = ( Me .StateTextBox.Text.ToString) xlsheet.Cells(11, 2).select() XL.Selection.value = Me .ZipTextBox.Text.ToString xlsheet.Cells(4, 9).select() XL.Selection.value = Me .InvoiceIDTextBox.Text.ToString xlsheet.Cells(5, 9).select() XL.Selection.value = Me .CustomerIDTextBox.Text.ToString xlsheet.Cells(3, 9).select() XL.Selection.value = DateTime.Today Catch ex As Exception End Try Try Dim iddatatables As DataTable = Me .RCSDataSet.InvoiceDetails Dim idx As Integer = 1 For idx = 0 To iddatatables.Columns.Count - 1 Next Dim row As DataRow Dim rowidx As Integer = 15 For Each row In iddatatables.Rows For idx = 0 To iddatatables.Columns.Count - 1 xlsheet.Cells(rowidx, idx + 1) = row(idx) Next rowidx = rowidx + 1 Next Catch End Try xlsheet.PrintOut() xlsheet = Nothing xlwb = Nothing XL.Quit() XL = Nothing GC.Collect() End Sub This prints the required invoice but only to row 36 on the excel worksheet, if I have more than 36 rows to print I need to be able to insert the rows at row 36 and push the rest of the rows down Tag: Problem: Macro not deleting columns I select
  - 8
    - How to write code for dynamically (programatically) generated combo boxes (excel-shape object) in excel? Make a ClassModule and name it "clsCtrlArr". Write in it Code Snippet Public WithEvents ctl As ComboBox Private Sub ctl_Change() Cancel = True MsgBox ctl.Name End Sub Make a Module and write in it Code Snippet Public cmbArea() As New clsCtrlArr Sub InsertMyComboBox() Dim MyRange As String MyRange = ActiveCell.Address(0, 0) 'Cells(3, 3).Address(0, 0) Set MyComboBox = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _ Left:=Range(MyRange).Left, Top:=Range(MyRange).Top, _ Width:=Range(MyRange).Width + 2, Height:=Range(MyRange).Height + 2).Object ActiveSheet.Shapes("ComboBox1").Name = "cmb" & MyRange Range(MyRange).Offset(2).Activate Application.OnTime Now + TimeValue("00:00:1"), "AreaShape" End Sub Private Sub AreaShape() Dim sh As Shape, i As Long i = 0 For Each sh In ActiveSheet.Shapes If Left(sh.Name, 3) = "cmb" Then ReDim Preserve cmbArea(i) Set cmbArea(i).ctl = sh.OLEFormat.Object.Object i = i + 1 End If Next cmbFill End Sub Private Sub cmbFill() For Each sp In cmbArea() With sp.ctl .Clear .FontSize = 8 .AddItem "First" .AddItem "Second" .AddItem "Third" End With Next End Sub Tag: Problem: Macro not deleting columns I select
  - 9
    - ACCESS - You do not have exclusive access to the database I have an ACCESS application that is running locally on a user's machine. When they log in, they get the error "You do not have exclusive access to the database", then they have to click "OK" 21 times before the application will open up for them. The .mdw file is named different from the .mdb file, so they aren't locking each other out. Any ideas Tag: Problem: Macro not deleting columns I select
  - 10
    - Vba Excel 03 - Detect Shape Position and calculte related row number when sort / filter is activated Hi Aldo I've been thinking about it again. What I've given you is more of a general solution. However, there is a simpler way if there are a few restriction e.g. the same row heights across all the relevant rows. Try this ... Code Snippet Sub Test2() Dim strCaller As String Dim lngTop As Long Dim lngRow As Long ' who called us strCaller = Application.Caller ' what is the top of the shape lngTop = ActiveSheet.Shapes(strCaller).Top ' divide the top of the shape by the row height to get the row number lngRow = (lngTop \ Rows(1).Height) + 1 ' now we have the row MsgBox lngRow End Sub Regards Peter Mo. Tag: Problem: Macro not deleting columns I select
  - 11
    - Are these valid bucket ids ? Hi Jason, Thanks for all the information regarding eventtype. Could I have some explaination for change in behavior of report with the change in WER_SUBMIT_QUEUE / WER_SUBMIT_NO_QUEUE flag (see the post above) Thanking you again........ Regards, Samir Tag: Problem: Macro not deleting columns I select
  - 12
    - How can I make a chart with 2 x-axis categories? Hello, I'm trying to make a chart with below data table. What I need is to show primary x-axis as years(2005, 2006, 2007, 2008). And in each year, I want to build bars by seasons(Vday, Easter, Halloween, Xmas). In each bar, I want to breakdown by Brand( skittles, starbust, jelly beans). How can I do that Thanks so much! Basically, I could not breakdown each bar with brand information. B.regards/Yaping Brand Season 2005 2006 2007 2008 Skittles Vday $ 2.37 $ 2.82 $ 2.00 $ 1.93 Starburst Vday $ 2.09 $ 0.27 $ 0.36 $ 0.29 Jelly Beans Vday $ - $ - $ - $ - Skittles Easter $ 5.60 $ 4.33 $ 4.55 $ 4.48 Starburst Easter $ 3.27 $ 3.25 $ 3.42 $ 4.87 Jelly Beans Easter $ 17.95 $ 16.57 $ 17.60 $ 17.88 Skittles Halloween $ 14.40 $ 16.22 $ 21.32 $ - Starburst Halloween $ 15.08 $ 15.07 $ 18.57 $ - Jelly Beans Halloween $ - $ - $ - $ - Skittles Xmas $ - $ - $ 1.56 $ - Starburst Xmas $ 3.58 $ 1.91 $ 4.22 $ - Jelly Beans Xmas $ - $ - $ - Tag: Problem: Macro not deleting columns I select
  - 13
    - Multiple series addition problem I am not sure whether thisis the right place for this question. This is a problem which i am facing when coding in VB.net The problem is, I want to draw a line graph (3 series) in excel from the data present in designated positions in Excel. I worte a code which is as below charts = XLSheet.ChartObjects() ' Adding a chart chartObj = charts.Add(450, 200, 350, 200) Dim lIntI As Integer = 1 Dim xlsAxisCategory, xlsAxisValue As Excel.Axes With chartObj .Name = "Cumulative Defects1" .Chart.ChartType = Excel.XlChartType.xlLineMarkersStacked .Chart.ProtectGoalSeek = False '.Chart.SetSourceData(chartRange) seriesCollection = .Chart.SeriesCollection() For lIntI = 1 To paramColDaysStart.Count seriesCollection.NewSeries() seriesCollection.Item(lIntI).Values = _ XLBook.Worksheets(paramSheetName).range(XLSheet.Cells(paramRowDaysStart, paramColDaysStart.Item(lIntI - 1)), XLSheet.Cells(paramRowDaysEnd, paramColDaysEnd.Item(lIntI - 1))) .Chart.SeriesCollection.Item(lIntI).Name = paramSeriesNames.Item(lIntI - 1) Next End With With chartObj 'Creating(name) .Name = "Cumulative Defects1" .Chart.ChartType = Excel.XlChartType.xlLineMarkersStacked .Chart.SetSourceData(chartRange) .Chart.HasTitle = True .Chart.ChartTitle.Caption = "Cumulative Defects" ' Setting title 'getting the series collection seriesCollection = chartObj.Chart.SeriesCollection() 'Naming the series seriesCollection.Item(1).Name = "No. of defects" seriesCollection.Item(1).MarkerBackgroundColorIndex = Excel.XlColorIndex.xlColorIndexAutomatic seriesCollection.Item(1).MarkerForegroundColorIndex = Excel.XlColorIndex.xlColorIndexAutomatic ' Counting series = seriesCollection.Item(seriesCollection.Count) 'Getting the axis of the charts 'X(axis) xlsAxisCategory = .Chart.Axes(, Excel.XlAxisGroup.xlPrimary) xlsAxisCategory.Item(Excel.XlAxisType.xlCategory).HasTitle = True xlsAxisCategory.Item(Excel.XlAxisType.xlCategory).AxisTitle.Characters.Text = "No. of days" xlsAxisCategory.Item(Excel.XlAxisType.xlCategory).HasMajorGridlines = False xlsAxisCategory.Item(Excel.XlAxisType.xlCategory).HasMinorGridlines = False xlsAxisCategory.Item(Excel.XlAxisType.xlCategory).AxisTitle.Interior.PatternColorIndex = 2 ' Y Axis xlsAxisValue = .Chart.Axes(, Excel.XlAxisGroup.xlPrimary) xlsAxisValue.Item(Excel.XlAxisType.xlValue).HasTitle = True xlsAxisValue.Item(Excel.XlAxisType.xlValue).AxisTitle.Characters.Text = "No. of Defects" xlsAxisValue.Item(Excel.XlAxisType.xlValue).HasMajorGridlines = True xlsAxisValue.Item(Excel.XlAxisType.xlValue).HasMinorGridlines = False xlsAxisValue.Item(Excel.XlAxisType.xlValue).AxisTitle.Interior.PatternColorIndex = 2 .Chart.SeriesCollection(1).border.Weight = Excel.XlBorderWeight.xlThin .Chart.HasTitle = True .Chart.ChartTitle.Caption = "Cumulative Defects" 'Setting(title) 'Positioning the legend .Chart.ChartArea.Font.Background = Excel.XlBackground.xlBackgroundTransparent .Chart.Legend.Position = Excel.XlLegendPosition.xlLegendPositionRight 'Coloring the area .Chart.PlotArea.Interior.ColorIndex = 19 .Chart.ChartArea.Interior.ColorIndex = 2 .Chart.ChartArea.Interior.PatternColorIndex = 2 .Chart.Legend.Interior.PatternColorIndex = 2 chartObj.Interior.PatternColorIndex = 2 .Chart.Location(Excel.XlChartLocation.xlLocationAsObject, paramSheetName) End With XLBook.Save() generalfunctions.ReleaseExcelObjects(XLApp, XLBook) In the above code paramSeriesNames has the names for the series which is a hash table paramRowDaysStart is a integer value which denotes the start row value, paramColDaysStart is a hash table which has the starting column for the series paramRowDaysEnd is a integer value which denotes the end row value, paramColDaysEnd is a hash table which has the ending column for the series In this noth paramColDaysEnd and paramColDaysstart will have same values because i am using only one column series The problem is, when i am adding a new series in the loop (say 3 series), the first series is coming properly, the second series is displaying as the sum of first series column values and the second series column (13,2 - 24,2) + (13,4 - 24,4) Third series is the sum of all ie (13,2 - 24,2) + (13,4 - 24,4) + (13,6 - 24,6) I am not sure y this is happening. If i print only one series then everything is proper. how to correct this problem I want a result like below Series1 = (13,2 - 24,2) Series2 = (13,4 - 24,4) Series3 = (13,6 - 24,6) But actual result is Series1 = (13,2 - 24,2) Series2 = (13,2 - 24,2) + (13,4 - 24,4) Series3 = (13,2 - 24,2) + (13,4 - 24,4) + (13,6 - 24,6) Please help me friends Albert Tag: Problem: Macro not deleting columns I select
  - 14
    - I need help modifying Sharepoint I am trying to modify a few things in Sharepoint and I can't seem to figure out how. First off, is there a way to change the categories that are displayed on the homepage. I currently have announcements, links, and discussions displayed. I am wondering how I can have a list of my documents added as well. I also have a calendar but it isn't displayed on the home page. Please let me know if you can help. Mike Tag: Problem: Macro not deleting columns I select
  - 15
    - Runtime Error '2001' Hi Zac, I had hoped to get our internal support team to assist you with this question, but the official support for Access 2002 has reached the end of its lifecycle. My recommendation is to connect with Access users and experts in one of the Access newsgroups. Here's a link to the general newsgroup, but there are others listed in the Access Database menu in the left column. http://www.microsoft.com/office/community/en-us/default.mspx dg=microsoft.public.access&lang=en&cr=US I'm sorry that I couldn't help you with this. -brenda (ISV Buddy Team) Tag: Problem: Macro not deleting columns I select
  - 16
    - iexplore.exe - Application Error Hi Bennett, How did you remove the yahoo tool bar I have the same error message. Thanks, Eric Tag: Problem: Macro not deleting columns I select

Donaghy

Hi all,

I have a section of code in my macro which tells it to delete a selection of columns:

Columns("C:F").Select
Selection.Delete Shift:=xlToLeft

this is the first bit of code in my macro but isn't working correctly. Instead of deleting columns C to F its deleting columns A to H.

Any ideas why this could be happening

Re: Problem: Macro not deleting columns I select

Andy Pope

Hi,

Your code in an isolated test does exactly as expected.
Selects columns C:F and deletes them.

Have you used the debugger to step through the lines of code
F8 will step you through line at a time so you can see exactly what is happening.

You might also want to consider posting some more of your code.

Re: Problem: Macro not deleting columns I select

Donaghy

Yeah I've used the debug function but it doesn't help clear up the issue. The select columns code is the very first piece of code used and when i debug through that section it shows columns A to H being highlighted .. very strange

Re: Problem: Macro not deleting columns I select

Andy Pope

Strange indeed ;)

If you want to email your file I will take a look see.
My profile has a web address that contains a usable contact email.

Re: Problem: Macro not deleting columns I select

Donaghy

Thanks for the offer but the spreadsheet contains some sensitive data that my boss wouldn't be impressed about me sharing

I think i have a workaround that will have to do, going to loop through each row and take the cells i need and paste into a new worksheet. Did a quick test and it seemed to work

Re: Problem: Macro not deleting columns I select

Andy Pope

I understand the sensitive nature of your data but does the workbook actually need any data
Nothing in the code you posted suggests it is using the actual data to control anything.

Re: Problem: Macro not deleting columns I select

Donaghy

Its more about filtering and removing data so I am only left with the 4 required columns and the data for the columns. I am then pulling this data from this worksheet into another worksheet and doing a compare with other data but they need to be in a specific format.

The workaround seemed to work though but that problem is still very odd