Re: $$Excel-Macros$$ For Each..Next . Help finding a number in data

[De Premor]

Hi Hammod, please try attached macro

Rgds,
[dp]

On 26/07/2013 10:32, ha...@mst.edu wrote:

Hi All

I'm trying to write an excel vba code that return a number with respct to
the value of the 2nd number.

it returns the value of 1st number in cell2

So The code here is

Dim logstart as Range
Set log = oSht.Range("E110:E" & lastRow)

For Each logstart In log
        If CDec(Trim(Mid(Trim(logstart.Value), 9, 7))) = -990.25 And_
  CDec(Trim(Mid(Trim(logstart.Offset(-1, 0).Value), 9, 7))) >= 1 Then
            Range("D16")= LEFT(TRIM(logstart.Offset(-1, 0).Value)),8)
        Else
           'Range("D16").Value = "Failed to Load Number"
        Exit For
        End If
    Next

Here are the data(one column E)
  #-------------------------------------------------------------
             TVD         TTEM         ROP5           GR TVD         VSEC


So it should return 8341.0 because 183.20 >1 and -999.25 = -999.25


What is wrong with the code? Please help me, i'm stuck

--

There are 5 number copied into one column(it has to be one column,project requiremnt) and if the value of 2nd number in cell1 is -995.25 and 2nd number in cell2 is > 1 8340.00 -999.25 33.00 30.62 8339.62 -7.45 8340.50 -999.25 32.77 30.39 8340.11 -7.46 8341.00 183.20 32.49 22.97 8340.63 -7.46 8341.50 183.26 32.12 20.30 8341.11 -7.46 8342.00 183.71 31.07 21.75 8341.61 -7.46 8342.50 184.16 30.07 37.26 8342.12 -7.47 8343.00 184.61 30.22 58.81 8342.62 -7.47 8343.50 185.00 31.25 73.89 8343.12 -7.47 8344.00 184.87 33.16 62.18 8343.65 -7.48 8344.50 183.79 35.77 45.28 8344.11 -7.48 But it doesn't, it returns the first cell it in the range (which doesn't meet the criteria) Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel

FORUM RULES


2) Don't post a question in the thread of another member.

4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.


---

To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 3) Don't post questions regarding breaking or bypassing any security measure. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com.

--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.

To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/groups/opt_out.

--- You received this message because you are subscribed to the Google Groups "MS EXCEL AND VBA MACROS" group.

Find 8410.xlsm
Description: application/vnd.ms-excel.sheet.macroenabled.12