I have this select statement:
Dim ResourceMonth As String
Dim mActiveSheet As String
ResourceMonth = Sheets("Finanace").Range("J2")
Select Case ResourceMonth
Case "Jan"
Sheets("Jan").Select
Cells(8, 4).Select
z = ActiveCell.Row
SSRR = ActiveCell.Value
mActiveSheet = "Jan"
Sheets(mActiveSheet).Range("[test1julycheckbook.xls]Jan!MaxHoursJan") = (Sheets("Workdays").Range("F2")) * 8
I am currently using an Intersect statement in a worksheet module to perform two things:
1. Insert a time stamp into row 2 when row 1 has a price inserted
2.To clear that time stamp if the price is deleted at some later date.
My problem is with the time stamp value being deleted by the user.
If I try to clear the price (now that the time cell =empty) I get a Runtime error 91 - Object Variable or With block variable not set.
I would like to convert this code to a select case statement but I'm not sure how to do this in this situation. Would error coding be appropriate in this instance?
I want to put a range select statement to select a cell and count down 10 cells and copy.
View 9 Replies View RelatedI have a command button on sheet MASTER. When the workbook is Activated I want it to check and see if in sheet COSTM, cell B3 there are the words "Project Number", if so then show command button (ClearPrevious), if not, don't show. Also, when the If statement is finished, then the workbook needs to end up showing the sheet MASTER. I have tried various codes and none work, or they are on perpetual loops. I know this has got to be simple, but cannot find an example to take from to solve the issue. Would appreciate any help offered. Below is code I have right now.
Private Sub Worksheet_Activate()
If Sheets("COSTM").Select Range("B3").Select = "Project Name:" Then
Me.ClearPrevious.Visible = True
Else
Me.ClearPrevious.Visible = False
End If
Sheets("MASTER").Select
End Sub
I have a form with seven check boxes on it. The code that I have been working on is below. Using the select case works exactly as I want it to unless someone checks the combination of boxes that returns a "True" for both "Apples" and "Oranges". If that combination is selected I cannot get the select case to return the correct form. I was trying stay with the select case code but I am not sure that this is the correct approach for what I am trying to accomplish.
Private Sub CommandButton1_Click()
If Form1.CheckBox1.Value = True Then X = "Apple"
If Form1.CheckBox2.Value = True Then X = "Apple"
If Form1.CheckBox3.Value = True Then X = "Apple"
If Form1.CheckBox4.Value = True Then X = "Orange"
If Form1.CheckBox5.Value Then X = "Orange"
If Form1.CheckBox6.Value = True Then X = "Orange"
If Form1.CheckBox7.Value = True Then X = "Orange"
Select Case X..........
I'm trying to put the following into a workable VB code. I don't know whether it is best to use Select Case or If Then statements or whether either can perform the tasks.
Case 1 - Range(N1).Value = KG Then Range(M1).Value = Range(V1).Value
Case 2 - Range(N1).Value = M2 Then Range(M1).Value = Range(V1).Value
Case 3 - Range(N1).Value = NO Then Range(M1).Value = Range(U1).Value
when i write the following line to open the recordset then it gives me syntex error.
rs.Open "select batchno from tblmain", cn, adOpenKeyset, adLockOptimistic, adCmdTable
and if i write the following line then it works fine.
rs.Open "tblmain", cn, adOpenKeyset, adLockOptimistic, adCmdTable
If statement, any way where I can, when I run the macro, choose active cell?
Ex.
Start macro
and it will ask for active cell,
check if active cell higher then 0
then set cell to color red
I have this atm:
Code:
Sub LookForValue()
' Declare Current as a worksheet object variable.
Dim Current As Worksheet
' Loop through all of the worksheets in the active workbook.
For Each Current In Worksheets
[Code] .........
I get an application defined or object defined error at the select statement 1004...I know I know I shouldn't be selecting in code so I'll fix that but why can't I set the range?
NumRows = Sheets("Timelines").Rows.Count
LastColumn = Sheets("Timelines").Range("A1").End(xlToRight).Column
LastRow = Sheets("Timelines").Range("A" & NumRows).End(xlUp).Row
Sheets("Timelines").Range(Cells(1, 1), Cells(LastRow, LastColumn)).Select
TIA, Charlie Brown.
I'm having problems implementing a Select Case statement. Keep getting case without select case at Case condition2.
Code:
Select Case Condition
Case condition1
If Cells(rsRow, rsCol).Value = "" Then
Cells(rsRow, rsCol) = TextBox2.Value
[Code] .......
I have a workbook with 2 sheets I want to make an autofilter by two method :
- select case statement
- two dates
I would like to have a nested if or select case statement to handle a worksheet event.
The conditions it will check are:
1.Make sure target is w/in range, otherwise EXIT
2.Make sure that target offset value is not empty, otherwise display message
3.All is good, open form
Ive tried various formulations and positionings of the statements ,but not all conditions are met with equal success.
What happens is I get the the first two conditions, but the third doesnt work.
I have a cell range which needs to be added up, but if all cells in the renge
View 9 Replies View RelatedI have a very long function I created. But I need to edit it in a matter I have never done before.
Below is my function and i will like to add a new condition to it.
IF the text value in cell C7 is equal to any text value in Workbook2 B10:K10 and the value underneath that cell (I.e if B10 then B11 etc..) is Deleted then I want to have one of the conditions of my function below display "Deleted".
=+IF(AND(E7<=0,J7<>0,Y7<=0,AO7<=30),"Check Inventory",IF(AND(E7<=0,J7<>0,Y7<=0,AO7>=60),"Delete Listing ",""))
i have the condition below.
1<=x<2 = a
2<=x<3 = b
3<=x<4 = c
4<=x<5 = d
>5 = e
how to put the if statement function in the cell? or any better function to use?
I need to add a Bloomberg BDP function to my lookup statement. The formula that i'm trying to replicate in VBA is =IF(ISBLANK(h23,"",BDP(H23&" cusip","long_comp_name")). update my macro.
View 9 Replies View RelatedI need to do a SUMIFS with 2 sets of Criteria, but I need the second Criteria to be an OR Statement. The numbers I am adding up is in Column E, with any where from about 20,000 to about 60,000 records (will fluctuate all the time). The first Criteria is easy - match up the name in AG12 with any of the names in Column C. The second criteria is to match up the numbers in Column A with any of the numbers in AD1 through AD40.
I tried this but it didn't work: =SUMIFS(E:E,C:C,AG12,A:A,AD1:AD40). I've alos tried a million other variations of that, imbedded SUM(IF( statements, SUMPRODUCT statements, and DSUM statements and no luck. I can't find anything that allows me to make that second second criteria look at the numbers in Column AD as being AD1 or AD2 or AD3 so on and so forth.
I have multiple sheets within one Excel file. Each sheet is structured the same way. Column B lists Client's last names, which differ from sheet to sheet, though some clients may be repeated in several tabs. I have a column K which displays either the number 1 or 0. This is consistent between sheets.
I have created a formula that will look at the last name in a specific cell in column B of sheet 2 (FY 07) and search sheet 1 (FY 06) column B for the same last name.
=IF(MATCH($B5,'FY 06'!$B$5:$B$24,0),1,0)
If the same last name exists and if column K of sheet 2 and sheet 1 display a "1", I want it to place a 0 in the formula cell.
So, if there is a client that is in both sheets and has a "1" in both columns K of each sheet, I want the formula to let me know.
I am attempting to use the following code to move certain sheets to specific locations in my workbook. The case statement containing the InStr function isn't working eventhough the "Data" tab does exist and the InStr function does return 1.
Code:
ThisSheetToMove = Sheets(SCount).Name
Select Case ThisSheetToMove
Case "Schedule"
Sheets("Schedule").Move Before:=Sheets(1)
Case InStr(1, Trim(ThisSheetToMove), "Data") > 0
Sheets(ThisSheetToMove).Move After:=Sheets(SShtLast)
End Select
I have an anomaly with this loop that seems to be a bug, but I need a second opinion on it. The split statement is working and produces a single array. The Set col statement works on the first iteration and post the value onto sheet 2. The problem is that after the first iteration the Set col statement will not set, although the dys(i) value is correct, The Find function apparently does not return the range value.
Code:
dys = Split(c.Offset(0, 1), ",")
For i = LBound(dys) To UBound(dys)
Set col = sh2.Rows(1).Find(dys(i), , xlValues, xlPart, MatchCase:=False)
If Not col Is Nothing Then
If i = LBound(dys) Then
[code]....
Can I write Copy and paste function in an IF statement
PTPO #Part #Line #DescriptionVendor #UOMLTPO Entry #Due DateAllowed DaysWork daysQty OrderQty RecvdUnder/ OverRectp dateDays Po lateMB550427917495072PANEL, SW MOLDED SLVR0BAY008EA204/16/20075/14/200728215014-365/7/200702013135/30/2007-280232023236/1/2007-28025
formulae in the column Q " days PO, Late" =IF(P3
Writing a single nested IF statement function to calculate the grades of the students the following rules:
If the student grade isHis/her letter grade is
Greater or equal to 90:A
Greater or equal to 80 and less then 90:B
Greater or equal to 70 and less then 80:C
Greater or equal to 60 and less then 70:D
Any other grade:F
i am using the IF script, and i am also using the COUNT script in the logical part of the IF statement. i need to make sure that both K3 and V3 have a value inside of the cell in order for the statement to work, although when just K3 has a value, the IF - TRUE statement works anyway. any ideas on how to fix this? =IF(COUNT(K3,V3),SUM(K3+V3),"")
View 4 Replies View RelatedI want to calculate a weighted average but I need it to only calculate on the months to date. I have a data validation drop down on a title page that is toggled to the current month each time a report is needed to define what months have actuals. I bring in data for all the months but only the current months have actuals. I need to calculate the weighted average on ONLY the ACTUALS. How can I set the ranges for sum product based on the data validation list on the title page?
View 4 Replies View RelatedI am trying to create the following function but I cannot seem to get it working correctly.
[Code] .....
I want to make a calculation on a spreadsheet only if the date is a Friday. (weekly returns calculation) I can't seem to find out how to test the date to see if it is a Friday.
View 7 Replies View RelatedI would like to use the random function on a range of select numbers. I tried randbetween() but it won't work for me since my range of numbers are not in sequence (e.g. 1,2,4,6,7,8,9,10,21). Using randbetween() might result in numbers not within my range..
View 2 Replies View RelatedI currently have a column of data by month for the years 2013 to 2025. I want to show only dec, jan and feb of each year. I am currently using the filter function but I can only select one month at a time.
View 2 Replies View RelatedI'm having problems on something that should be easy. On the basis of a date, just move to a pre-defined day-of-the-week cell. If the day is a Monday, the active cell will end up being the range set aside for Mondays.
Sub findFirstDay()
Dim workDOW As Integer
workDOW = Weekday(Range("b1"))
Select Case workDOW
Case workDOW = 1: Application.Goto reference:="sunFirstday"
Case workDOW = 2: Application.Goto reference:="monFirstDay"
Case workDOW = 3: Application.Goto reference:="tueFirstday"
Case workDOW = 4: Application.Goto reference:="wedFirstDay"
Case workDOW = 5: Application.Goto reference:="thuFirstDay"
Case workDOW = 6: Application.Goto reference:="friFirstDay"
Case workDOW = 7: Application.Goto reference:="satFirstDay"
Case Else: Application.Goto reference:="wedFirstDay"
End Select
End Sub
The only case statement that executes is the "otherwise". I've tried working with WorkDOW as String, also to no avail.
is it possible to change the named range used in a formula based on the value selected in a dropdown. I have 4 named ranges NR1, NR2, NR3 and NR4. I would like to have a VLOOKUP that uses the named range that has been selected in a drop down. So if I change the drop down option I would get a different result as it will be looking at a different range.
It is not possible to put all of the values together as one named range as the intention is that I would select the range on a hidden and protected sheet so people would only see what they need to but I only have to manage one master sheet instead of having to create a new sheet for each range.