Anomaly On Set Statement Using Find Function
Dec 8, 2013
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]....
View 4 Replies
ADVERTISEMENT
Jul 9, 2008
Cell E11 - 3:00 PM
Cell E12 - 11:30 PM
Here's the formula I am using to determine the amount of hours from the in time E11 to the out time E12. I'm using three helper cells to get the amount of hours...
Cell N11 =IF(MINUTE(E12)>MINUTE(E11),MINUTE(E12)-MINUTE(E11),MINUTE(E12)-MINUTE(E11))
Cell N12 =IF(HOUR(E12)
Cell N13 =((ABS(N12*60)+N11)/60)
N13 produces 8.5 hours, which is correct, and everything works as long as the out time stays less than 12 AM. However, if I enter 1:00 AM, everything turns to zero?
How can I write a formula in ONE CELL only that converts the amount of hours worked from in time (E11) to out time (E12), that can assume 3:30 PM to 1:30 AM is 10 hours? It has to assume that E12 is always greater than E11.
View 9 Replies
View Related
Sep 19, 2008
I have a worksheet that has data that changes each month that I need to compare to the previous month.
I would like to run a macro to check both worksheets (which I will copy into a new workbook and run the macro against the 2 worksheets from another workbook) and then the results would be put into a 3rd worksheet in that workbook.
The new month/worksheet can have additions and deletions from the previous month/worksheet, I would also like to distinguish that as an "add" or "removed"
View 14 Replies
View Related
Jul 1, 2008
I have a Lookup that updates name from a list.
D2 =IF(LOOKUP($A$2,B:B,C:C)=",",LOOKUP($A$2,B:B,C:C)) - this Works fine
Say A2=3
C1= Name1
C2= Name2
C3= Name3
Also a macros that if D2 is typed over you can re-insert the LookUp.
Sub Reset()
For Each ce In Range("D12) 'Company
'If IsEmpty(ce) Then
ce.FormulaR1C1 = "=IF(LOOKUP(R2C1,C[-2],C[-1])=",",LOOKUP(R2C1,C[-2],C[-1]))"
ce.Font.ColorIndex = 11
'End If
Next
End Sub
The Weird thing is that in stead of putting the value from the LookUp it paste the formula
=IF(LOOKUP(R2C1,C[-2],C[-1])=",",LOOKUP(R2C1,C[-2],C[-1])) like it was text
I have used the reset on a number of numeric equations no problem, but not on a LookUp one. I've tried changing the format of the cell, but not successfully.
View 9 Replies
View Related
Mar 6, 2007
I have dates in column A (Source Dates) and Column C (Target Dates). All data is formatted as Dates. I want to find which dates in column A have a matching date in column C. When using the find statement within a For Each loop I can not find a date match unless I format the target dates as General. How can I use the Find Statement using dates without formating the target dates as General?
Option Explicit
Dim SourceDate As Range
Dim TargetDate As Range
Sub FindTargetDate()
Columns("C:C").Select
Selection.NumberFormat = "General"
For Each SourceDate In Range("A1:A32")
'MsgBox SourceDate
Set TargetDate = Sheet1.Range("C1:C7").Find(SourceDate, LookIn:=xlValues)
View 7 Replies
View Related
Jul 9, 2008
I have a cell range which needs to be added up, but if all cells in the renge
View 9 Replies
View Related
Feb 13, 2014
I 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 ",""))
View 2 Replies
View Related
Jun 30, 2009
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?
View 2 Replies
View Related
Jul 21, 2008
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
View 9 Replies
View Related
Oct 16, 2012
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 Related
Apr 20, 2014
I 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.
View 3 Replies
View Related
Dec 9, 2009
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.
View 14 Replies
View Related
Sep 9, 2012
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
View 4 Replies
View Related
Feb 22, 2008
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
View 17 Replies
View Related
Jun 30, 2009
I have a value in E12, and i need a formula that looks at the value and if it is equal to or greater than 5, then the output should be E12 x 500 +1000, but if the value in E12 is greater than 5, then the output needs to add the original 5 x $500 and now include all greater than 5 to be x by $250 + 1000. I got this far, but if the value is greater than 5, i don't get the original 5 * 500 that i also need.
=IF(E12<=5,(1000+500*E12),IF(E12>5,(1000+250*E12)))
View 2 Replies
View Related
Mar 10, 2013
I do construction work, and to save on record-keeping, I'm trying to autopopulate a "summary" excel table by only filling out my "accounting" table. I made a sample table, and I'm having a hard time linking it.
For instance, I fill in rows 2 through 9 of the accounting table. Then on the next tab, The concrete section automatically grabbed rows 2 and 8. What I can't figure out, is how to get the summary table to autopopulate without leaving blank rows for rows 3 through 7.
View 6 Replies
View Related
Apr 2, 2007
I am in the process of converting my programs over so as not to use these and I am already seeing a drastic difference in speed.
I have run into a problem that I need help with. I have a spreadsheet similar to the example below. The first column contains a list of college majors and after each major is a row of classes that are required by that major.
A25346 ENG101 MAT115 PSY150
A35678 ENG111 MAT115 SOC101
A23456 ENG101 MAT116 HIS201
The first thing I need to do is search down the first column for the major. Once the major is found I need to search across the row for the class. I am having trouble searching across a single row for the class.
Here is the section of code where I experience the problem
Set rMajor = wsMajor.Cells.Find(What:=Major, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False)
If Not rMajor Is Nothing Then
majorrow = rMajor.Cells.Offset(0, 1).Value............
View 9 Replies
View Related
Apr 28, 2008
I'm trying to write an if statement to find the elapsed time. I want it to work so that if a time wasn't recorded, it looks to the previously recorded time to find the time in-between.
Here's what I have so far:
=IF($D18="",($F18-$N17)*1440,IF($N17="",($F18-$L17)*1440,IF($L17="",($F18-$J17)*1440,($F18-$D18)*1440)))
The problem I have when testing this formula is that D18 is not blank, so it should calculate (F18-D18)*1440. But it's not.. it's calculating (F18-N17)*1440. Here's a preview of my spreadsheet.
Sheet1 *ABCDEFGHIJKLMN15Major EventMajor Event Clock TimePUSHPush trashSPREADSpread trashOUT FWDOut of cell fwdREVReverseOUT REVOut of cell revDelayDelay1617************0.000*18**0.00010:03:17 56975643.55710:03:33 0.42710:03:59 0.17610:04:10 0.15610:04:19 ####*19**-1.02810:04:53 0.79910:05:07 0.14210:05:15 0.21110:05:28 ######*####*20**######10:05:38 56975645.84110:05:50 ######*0.19510:06:02 ######*####*21**######*56975646.19510:06:12 0.15410:06:21 ######*0.000*0.000*Spreadsheet FormulasCellFormulaM17=(N17-L17)*1440C18=IF($N17="",($D17-$L17)*1440,($D17-$N17)*1440)E18=IF($D18="",($F18-$N17)*1440,IF($N17="",($F18-$L17)*1440,IF($L17="",($F18-$J17)*1440,($F18-$D18)*1440)))G18=IF($F18="","",($H18-$F18)*1440)I18=IF($H18="",($J18-$F18)*1440,IF($F18="",($J18-$N17)*1440,($J18-$H18)*1440))K18=IF($J18="",($L18-$D18)*1440,IF($D18="",($L18-$N17)*1440,($L18-$J18)*1440))M18=IF($L18="",($N18-$J18)*1440,IF($J18="",($N18-$H18)
View 15 Replies
View Related
Apr 15, 2006
I'm using a find statement to locate a text string in a column but I get a 'type mismatch' error when I run it. I'm guessing that it's because of what I'm trying to find is a text and it is looking for a number. Anyway to point to the row number of where I find the macthing text in the column?
'Dimension variables used in Macro.
Dim Logon As String
Dim Level As String
Dim RangeFind As Range
Set RangeFind = Nothing
On Error Goto Error ...
View 4 Replies
View Related
Jun 19, 2006
I have created a user form with a combo box and three text boxes. The drop down box is populated via the initialization of the form; code is posted below.
the "add item" names are names that are already on the worksheet in column 1. What i have done is used the command button "submit" to populate the information from the textboxes to the worksheet.
what i would ike to do is populate the empty cells below this area with the information that is in all three text boxes and the combo box. for the IF / elseif statments i have used the combo box as the condition. So the quandry is I cant input the information into the empty cells, i have tried a few things, my vba is very basic, as you can tell ihavent even DIM'd anything (i think that is another thread though :D )
here is the initialize code and below is the "submit button" code.
Private Sub UserForm_Initialize()
'sets values for text boxes
cbomaterialdiscription.Value = ""..........
View 9 Replies
View Related
Jan 1, 2009
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
View 5 Replies
View Related
Jun 14, 2009
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 Related
May 31, 2006
I 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 Related
Nov 19, 2009
I have been given a huge membership list. The field for the CITY also as the two letter state abbreviation (e.g., "Fremont, CA" instead of just "Fremont".). I want to be able to have the "CA" or "WA" or "NV" (etc) from the city field appear in a new STATE field. I successfully use the below statement to do this with the "CA" but I want a statement that will search for multiple strings (the other states).
Here is what works now: =IF(FIND(" CA",F2),"CA"). But I want to be able to add other state abbreviations to this.
View 4 Replies
View Related
Jun 22, 2014
I want to search the selected range for a variable value (calculated previously in the sub) and if it finds the value I want the sub to do some things. If it's not in the range I want it do something else.
Here is the relevant section for what I have:
[Code] ......
This works and cuts the value I'm looking for if it finds a value in the range. The problem is it's not in the range I don't know how to tell it to follow other instructions. I tried the "iserror" with an in statement, but it said the range was not set. Intellisense isn't working and I don't really know how to use the .find method ...
View 3 Replies
View Related
Mar 26, 2009
I have a range of cells, for this example I will use 2.
Cell E17 = 77/170
Cell E18 = 8/9
Using the following formula: =SUM(RIGHT(E17,FIND("/",E17)))+SUM(RIGHT(E18,FIND("/",E18)))
This bring back an #VALUE! Error as the second part of the formula keeps picking up "/9" however the first part works fine, displaying "170"
Now if I use:
=SUM(RIGHT(E17,FIND("/",E17)))+SUM(RIGHT(E18,FIND("/",E18)-1))
It all works. The problem is that I need this to be automatic using the above way means having to add a "-1" to every formula for a cell with only 1 char to be added.
Using the formula:
=SUM(RIGHT(E17,FIND("/",E17)-1))+SUM(RIGHT(E18,FIND("/",E18)-1)).....
View 2 Replies
View Related
Mar 7, 2014
I am trying to create the following function but I cannot seem to get it working correctly.
[Code] .....
View 3 Replies
View Related
May 28, 2014
formula to find specific text from statement.
I manage to use formula find for 1 text in 1 statement, but in confuse how to get another text found if i have "8 text" to find. Generally, there will only be "1 text" for each statement.
Maybe in 1 statement there have only "IC" or "Staff Tagging" or Name" or "Product" or etc till 8.
View 8 Replies
View Related
May 3, 2014
I am trying to find particular text in a cell then format adjacent cells in the same row. In my code below I am trying to search for "*[Tx]*" using Like, however this is formatting all text that contain "T".
View 7 Replies
View Related
Feb 21, 2014
Find statement returns empty when i search in a range with XLWhole option enabled
Code:
Private Sub worksheet_change(ByVal Tar As Range) On Error Resume Next
If Tar.Column = 1 Then
Set f = Sheets("Sheet2").Range(Cells(1, 1), Cells(5000, 100)).Find(Tar(1, 1), LookAt:=xlWhole)
[Code]..
but when i use Cells instead of Range ,Find command returns perfect result
Code:
Private Sub worksheet_change(ByVal Tar As Range) On Error Resume Next
If Tar.Column = 1 Then
Set f = Sheets("Sheet2").Cells.Find(Tar(1, 1), LookAt:=xlWhole)
If f.Column = 11 Then Sheets("Sheet1").Cells(Tar.Row, Tar.Column + 1).Value _
= Sheets("Sheet2").Cells(f.Row, f.Column + 1).Value
End Sub
View 1 Replies
View Related
