#1   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1,560
Default Data

I have a 1000 line worksheet that I download from SAP, but the data is not
formatted correctly. I need to check if in Column H there is "ORD *" then
return that value a Column B. Going through every single line will take
forever. If somebody can help on this I would really appreciate it.
Column A Column H
300001846 0 7/1/2006
100108357 7/1/2006
ORD 14000732
100108357 7/1/2006
ORD 14000732

300001847 0 7/1/2006
100110756 7/1/2006
ORD 14000819
100110756 7/1/2006
ORD 14000819

  #2   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 10,593
Default Data


iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
If Left(Cells(i,"H").Value,3) = "ORD" Then
Cells(i,"B").Value = Cells(i,"H").Value
End If
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
I have a 1000 line worksheet that I download from SAP, but the data is not
formatted correctly. I need to check if in Column H there is "ORD *" then
return that value a Column B. Going through every single line will take
forever. If somebody can help on this I would really appreciate it.
Column A Column H
300001846 0 7/1/2006
100108357 7/1/2006
ORD 14000732
100108357 7/1/2006
ORD 14000732

300001847 0 7/1/2006
100110756 7/1/2006
ORD 14000819
100110756 7/1/2006
ORD 14000819



  #3   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1,560
Default Data

Do I put this in a macro, if yes then what is the macro name.

Thanks,
David

"Bob Phillips" wrote:


iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
If Left(Cells(i,"H").Value,3) = "ORD" Then
Cells(i,"B").Value = Cells(i,"H").Value
End If
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
I have a 1000 line worksheet that I download from SAP, but the data is not
formatted correctly. I need to check if in Column H there is "ORD *" then
return that value a Column B. Going through every single line will take
forever. If somebody can help on this I would really appreciate it.
Column A Column H
300001846 0 7/1/2006
100108357 7/1/2006
ORD 14000732
100108357 7/1/2006
ORD 14000732

300001847 0 7/1/2006
100110756 7/1/2006
ORD 14000819
100110756 7/1/2006
ORD 14000819




  #4   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 10,593
Default Data

Yes you do, and whatever you want to call it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
Do I put this in a macro, if yes then what is the macro name.

Thanks,
David

"Bob Phillips" wrote:


iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
If Left(Cells(i,"H").Value,3) = "ORD" Then
Cells(i,"B").Value = Cells(i,"H").Value
End If
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
I have a 1000 line worksheet that I download from SAP, but the data is

not
formatted correctly. I need to check if in Column H there is "ORD *"

then
return that value a Column B. Going through every single line will

take
forever. If somebody can help on this I would really appreciate it.
Column A Column

H
300001846 0 7/1/2006
100108357 7/1/2006
ORD 14000732
100108357 7/1/2006
ORD 14000732

300001847 0 7/1/2006
100110756 7/1/2006
ORD 14000819
100110756 7/1/2006
ORD 14000819






  #5   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1,560
Default Data

I need it after this value "300001846"

Thanks,
David


"Bob Phillips" wrote:

Yes you do, and whatever you want to call it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
Do I put this in a macro, if yes then what is the macro name.

Thanks,
David

"Bob Phillips" wrote:


iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
If Left(Cells(i,"H").Value,3) = "ORD" Then
Cells(i,"B").Value = Cells(i,"H").Value
End If
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
I have a 1000 line worksheet that I download from SAP, but the data is

not
formatted correctly. I need to check if in Column H there is "ORD *"

then
return that value a Column B. Going through every single line will

take
forever. If somebody can help on this I would really appreciate it.
Column A Column

H
300001846 0 7/1/2006
100108357 7/1/2006
ORD 14000732
100108357 7/1/2006
ORD 14000732

300001847 0 7/1/2006
100110756 7/1/2006
ORD 14000819
100110756 7/1/2006
ORD 14000819









  #6   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 10,593
Default Data

I don't understand the comment.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
I need it after this value "300001846"

Thanks,
David


"Bob Phillips" wrote:

Yes you do, and whatever you want to call it.

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
Do I put this in a macro, if yes then what is the macro name.

Thanks,
David

"Bob Phillips" wrote:


iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
If Left(Cells(i,"H").Value,3) = "ORD" Then
Cells(i,"B").Value = Cells(i,"H").Value
End If
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
I have a 1000 line worksheet that I download from SAP, but the

data is
not
formatted correctly. I need to check if in Column H there is "ORD

*"
then
return that value a Column B. Going through every single line

will
take
forever. If somebody can help on this I would really appreciate

it.
Column A

Column
H
300001846 0 7/1/2006
100108357 7/1/2006
ORD 14000732
100108357 7/1/2006
ORD 14000732

300001847 0 7/1/2006
100110756 7/1/2006
ORD 14000819
100110756 7/1/2006
ORD 14000819









  #7   Report Post  
Posted to microsoft.public.excel.misc
external usenet poster
 
Posts: 1,560
Default Data

The way the macro is it puts in below the 300* I need it on the next column.

300001846 columnA1 put the value of ORD* in B1 0 7/1/2006
100108357 7/1/2006
ORD 14000732 column H
100108357 7/1/2006
ORD 14000732

300001847 0 7/1/2006
100110756 7/1/2006
ORD 14000819
100110756 7/1/2006
ORD 14000819

Thanks for your help.
"Bob Phillips" wrote:


iLastRow = Cells(Rows.Count,"A").End(xlUp).Row
For i = 1 To iLastRow
If Left(Cells(i,"H").Value,3) = "ORD" Then
Cells(i,"B").Value = Cells(i,"H").Value
End If
Next i

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"David" wrote in message
...
I have a 1000 line worksheet that I download from SAP, but the data is not
formatted correctly. I need to check if in Column H there is "ORD *" then
return that value a Column B. Going through every single line will take
forever. If somebody can help on this I would really appreciate it.
Column A Column H
300001846 0 7/1/2006
100108357 7/1/2006
ORD 14000732
100108357 7/1/2006
ORD 14000732

300001847 0 7/1/2006
100110756 7/1/2006
ORD 14000819
100110756 7/1/2006
ORD 14000819




Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Pull data from another sheet based on certain criteria steve_sr2 Excel Discussion (Misc queries) 1 February 23rd 06 10:08 AM
Importing Data Jillian Excel Worksheet Functions 9 December 23rd 05 12:45 PM
Help PLEASE! Not sure what answer is: Match? Index? Other? baz Excel Worksheet Functions 7 September 3rd 05 03:47 PM
Saving data in a worksheet within a workbook Homeuser Excel Discussion (Misc queries) 2 August 21st 05 10:49 PM
Line Graph Data Recognition Nat Charts and Charting in Excel 2 April 30th 05 02:07 PM


All times are GMT +1. The time now is 08:44 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"