Subscript Out Of Range Error When Using Nested If Statement
Aug 27, 2008
I have a Userform which has 2 textboxes. User enter his employee id on textbox1 then enters a valid break time code which are 1,2 and 3 on textbox2. If User typed 1 then first breaktime start time will be pasted on the worksheet. When User returns after break he then enters his employee id again and then type 1 to end his first breaktime, the end time will be pasted on the worksheet. My program works fine however, I am trying to place a code which will prompt the user to end his first break time before entering another valid break code. Kindly check my code below as I am receiving an error message. 'Run-time error 9' Subscript out of range. This thing is driving me nuts. Any advise or can you tweak my coding vba experts.
What I'm trying to do is change the text color of specific keywords in a spreadsheet. For example, I'd like to highlight the text of 'how to' in the following sentence "I want to know how to change text color", so that it looks like this "I want to know how to change text color".
I came across the following, and it works for only two terms (example, "how to" , "how do I"), but I have a string of about 15 terms I'd like to use, but anything I change over two, I get the subscript out of range error.
I am having trouble in a dowhile loop that i have created. Its purpose is to copy an unknown amount of data points into an array while it counts how many data points it collects and how many of them are above a reference pressure. I have defined data_A(),data_points,above_reference, and reference_pressure all as integers. The error occurs in the second line of code.
Error 9 - Subscript Out Of Range....All sheets are in workbook and spelt correctly....could it be in the Array or Loop part of the code.
It also in the userform have a combobox for Day,Afternoon and Night but it transfers all across.Need the code to just transfer what is selected from the combobox (could be a listbox as well).If day selected then only Day for the selected date,,,same for afternoon and night unless All selected in which all are transferred (DAy,Afternnon & Night)
For b = 2 To y Worksheets.Add.Name = Worksheets("data").Cells(b, 10) Next b
For c = 2 To x ' copy the data now d = Worksheets("data").Cells(c, 6) z = Worksheets(d).Cells(Rows.Count, 1).End(xlUp).Row Worksheets("data").Range("A" & c & ":I" & c).Copy Worksheets(d).Cells(z + 1, 1).PasteSpecial Next c
This code breaks on the line z =, I get a Subscript out of range:9 error. Basically this starts with a single sheet called "data". Column F has store number and column J is created as a helper column and each unique store number is transfered there... Then sheets are created for each unique store number from the helper column. Then it's supposed to transfer the area A:I from the "data" sheet for each store that is unique from column F and transfer that to the corresponding Store number for the sheet that was created for it in the earlier step.
I have in the attached workbook, a form which I run, the macro StartForm. This brings up the form, where in A, I select the sheet label Oval_An, and in B, I select the sheet Oval_DMA. The other drop down boxes are not in use yet. Once A and B are selected, the user hits the big subtract button, and normally gives the the new sheet, Final Results.
Yet, when I change the name of the forms, or allow the kTest compare variance box into the macro to be user definable via the form, the whole thing just stops working.
The error is found in the kTest macro, line 12 as a type mis match.
Redim q(1 To UBound(a, 1), 1 To 1)
I have had a whole lot of help from people with this, and I am new to VBA.
I have three sheets in My workbook and one user form. based on selection of checkbox in userform, I want to activate the respective sheets. While clicking on add button, I am getting error message " Run Time Error : Subscript out of range 9". I am using following code
Option ExplicitPrivate Sub Add_Click() Dim ctrl As Control For Each ctrl In UserForm1.Controls If TypeName(ctrl) = "CheckBox" Then TransferValues ctrl
I am getting error on "Set ws = Sheets(Left(cb.Name, 1))" line.
I am trying to consolidate data in Sheet7 of all the files in a folder to a single file. In case a file doesn't contain Sheet7, i want to get the name of the workbook. The code is working fine, but after it loops it is returning Runtime Error 9 - Subscript out of range.
See if you can see what is wrong with this code - I have no idea. All the spreadsheet names are correct and I have used this syntax before, I don't know what I am doing wrong. The macro has a problem with the 3rd line
This program is supposed to take the value in two combo boxes and use them to populate pivot charts that are in other spreadsheets. So a user would select PS and AMI on sheet one (s) and it would change the pivot table on s1-s9 to look up those chosen fields. I keep getting a subscript out of range error, and I'm not sure if my pivottable.pivotlayout method is correct, but when I recorded a macro (in the very bottom) using activesheet, it worked. How can I fix this?
The error occurs at the first large text, the second large text is the recorded macro.
I get the subscript out of range error in the following code in the lines with set sk1 and set sk2. The problem disappears if I use the name of the workbooks (i.e. Workbooks("Sumy1") but I'd rather go with the variable which comes from the input box as the name may be different in the future.
Code: Sub Sumy()
Dim Sumy1 As String Dim Sumy2 As String Dim sk1 As Workbook Dim sk2 As Workbook
I am trying to copy from a text file to excel workbook... Thw work book have 3 sheets: Sheet1, Sheet2, Sheet3 Now i want my macro to write into row D of Sheet2...
Sub copy_txt_files() Dim FSO As Object, Folder As Object, file As Object Dim copyFrom As Workbook Dim wksCopyTo As Worksheet, wksCopyFrom As Worksheet Dim rngCopyTo As Range, rngCopyFrom As Range Set wksCopyTo = ThisWorkbook.Sheets(2) Set FSO = CreateObject("Scripting.FileSystemObject") Set Folder = FSO.GetFolder("C:logs") For Each file In Folder.Files If LCase(Right(file.Name, 4)) = ".txt" Then Set copyFrom = Workbooks.Open("C:logs" & file.Name) Set wksCopyFrom = copyFrom.Sheets(1) Set rngCopyFrom = wksCopyFrom.Range("D1") Set rngCopyFrom = wksCopyFrom.Range(rngCopyFrom, _ rngCopyFrom.SpecialCells(xlCellTypeLastCell))...............
Sub button3_click() Dim iRow As Long Dim ws As Worksheet Set ws = Workbooks("USA Appliance RepairUSAAR Phone Contacts DB.xls").Worksheets("Data")
' find first empty row in database iRow = ws. Cells(Rows.Count, 1) _ .End(xlUp).Offset(1, 0).Row 'copy the data to the database ws.Cells(iRow, 1).Value = This.ContactID.Value ws.Cells(iRow, 2).Value = This.scheduledate.Value ws.Cells(iRow, 3).Value = This.takenby.Value ws.Cells(iRow, 4).Value = This.calldate.Value....................
Nothing complex, right? Well I am getting the error that is in the title of this message, and it highlights that third line, where I am setting the database. How can I fix this? Why does it say subscripts when there isn't anything with subscripts in it in the line?
My macro adds a sheet to an existing Excel workbook. However, this only works the first time. If I delete the added sheet and run the macro again I get the above error. The macro below call a second macro (see later )
I am trying to allow a user to select a file and have the only sheet from that file added to the workbook they are working in. When I run this code I get a "Subscript Out of Range" error
Code: Sub importRawData() Dim rawDataSheet As String MsgBox "Please select the unmodified AR Aging Report exported from PFW", vbOKOnly rawDataSheet = Application.GetOpenFilename(FileFilter:= _ "Microsoft Excel Workbooks, *.xls; *.xlsx", Title:="Select File") Sheets.Add(Sheets("PWF AR Data"), , , rawDataSheet).Name = "PWF Raw Data" End Sub