Re: $$Excel-Macros$$ Text to Column Vai VBA code

2013-08-09 Thread De Premor

Try This !

Sub x()
Dim Rng As Range, Str() As Variant
For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
If InStr(1, Rng, Days)  0 Then
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs 
, ), Mins, ),  )

End If
Next
End Sub

Pada 09/08/2013 18:33, Prafull Jadhav menulis:

Dear Experts,

Can we have VBA code for the attached excel sheet.

Reg,
Prafull
--
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.

---
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.

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.




--
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.
--- 
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.
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.




Re: $$Excel-Macros$$ Text to Column Vai VBA code

2013-08-09 Thread Prafull Jadhav
Dear sir,
Thanks a lot for the same . It is working fine .

Can you Please,  explain the below code which is underline  line  in Red
color  as i am not able to understand

*Sub x()
Dim Rng As Range, Str() As Variant*
*
For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
If InStr(1, Rng, Days)  0 Then
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs ,
), Mins, ),  )
End If
Next
End Sub
*



On Fri, Aug 9, 2013 at 7:45 PM, De Premor d...@premor.net wrote:

  Try This !

 Sub x()
 Dim Rng As Range, Str() As Variant
 For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
 If InStr(1, Rng, Days)  0 Then
 Range(B  Rng.Row  :D  Rng.Row) = _
 Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs ,
 ), Mins, ),  )
 End If
 Next
 End Sub

  Pada 09/08/2013 18:33, Prafull Jadhav menulis:

 Dear Experts,

  Can we have VBA code for the attached excel sheet.

  Reg,
 Prafull
 --
 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.
 ---
 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.
 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.




  --
 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.
 ---
 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.
 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.




-- 
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.
--- 
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.
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.




Re: $$Excel-Macros$$ Text to Column Vai VBA code

2013-08-09 Thread De Premor
firstly, Str() as variant is an array that we need to pass splited 
result from this function Split(Replace(Replace(Replace(Rng.Text, Days 
, ), Hrs , ), Mins, ),  ), but since i has change the code, 
we dont need that variable declared, just deleted it, i forgot to do that


If InStr(1, Rng, Days)  0 Then
is for checking if in current data is our needed data to transform by 
checking is that data contain Days word or not


Instr will result zero if that cell doesn't contain word Days, and 
will result the position number in str if it exist.




Pada 10/08/2013 7:41, Prafull Jadhav menulis:

Dear sir,
Thanks a lot for the same . It is working fine .

Can you Please,  explain the below code which is underline  line  in 
Red color  as i am not able to understand


*Sub x()
Dim Rng As Range, _Str() As Variant_*
*_
_For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
_If InStr(1, Rng, Days)  0 Then_
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs , ), 
Mins, ),  )

End If
Next
End Sub
*



On Fri, Aug 9, 2013 at 7:45 PM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


Try This !

Sub x()
Dim Rng As Range, Str() As Variant
For Each Rng In Range(A3:A 
Range(A3).CurrentRegion.Rows.Count)
If InStr(1, Rng, Days)  0 Then
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs , ),
Mins, ),  )
End If
Next
End Sub

Pada 09/08/2013 18:33, Prafull Jadhav menulis:

Dear Experts,

Can we have VBA code for the attached excel sheet.

Reg,
Prafull
-- 
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.
---
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
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to
excel-macros@googlegroups.com mailto: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.




-- 
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.
---
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
mailto:excel-macros%2bunsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com
mailto: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.



--
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 

Re: $$Excel-Macros$$ Text to Column Vai VBA code

2013-08-09 Thread Prafull Jadhav
Dear Sir,

Thanks a lot...understand the same.

Sir,
Below code is for data A1 to A10 . is it fine? will ans will get correct?
I have checked and ans getting correct ..Is there any further changes need?
This code is created by using your code . I have deleted the same code.

Sub prafull()
For Each x In Range(A2:A10)
Range(B  x.Row  :D  x.Row) = Split(Replace(Replace(Replace(x.Text,
Days , ), Hrs , ), Mins, ),  )
Next
End Sub

Once again Thanks .
Regards,
Prafull Jadhav.



On Sat, Aug 10, 2013 at 6:29 AM, De Premor d...@premor.net wrote:

  firstly, Str() as variant is an array that we need to pass splited
 result from this function Split(Replace(Replace(Replace(Rng.Text, Days
 , ), Hrs , ), Mins, ),  ), but since i has change the code,
 we dont need that variable declared, just deleted it, i forgot to do that

 If InStr(1, Rng, Days)  0 Then
 is for checking if in current data is our needed data to transform by
 checking is that data contain Days word or not

 Instr will result zero if that cell doesn't contain word Days, and will
 result the position number in str if it exist.



  Pada 10/08/2013 7:41, Prafull Jadhav menulis:

 Dear sir,
 Thanks a lot for the same . It is working fine .

 Can you Please,  explain the below code which is underline  line  in Red
 color  as i am not able to understand

  *Sub x()
 Dim Rng As Range, Str() As Variant*
 *
 For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
 If InStr(1, Rng, Days)  0 Then
 Range(B  Rng.Row  :D  Rng.Row) = _
 Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs ,
 ), Mins, ),  )
 End If
 Next
 End Sub
 *



 On Fri, Aug 9, 2013 at 7:45 PM, De Premor d...@premor.net wrote:

  Try This !

 Sub x()
 Dim Rng As Range, Str() As Variant
 For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
 If InStr(1, Rng, Days)  0 Then
 Range(B  Rng.Row  :D  Rng.Row) = _
 Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs ,
 ), Mins, ),  )
 End If
 Next
 End Sub

  Pada 09/08/2013 18:33, Prafull Jadhav menulis:

 Dear Experts,

  Can we have VBA code for the attached excel sheet.

  Reg,
 Prafull
 --
 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.
 ---
 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.
 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.




--
 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.
 ---
 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.
 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.




  --
 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
 

Re: $$Excel-Macros$$ Text to Column Vai VBA code

2013-08-09 Thread De Premor
That is, you've almost done with it, just need a little code to prevent 
error result


You have a header data In your attachment on cell A3that contain words 
RESOLUTIONS TIME, that will also splited by your code, that why i add 
data checking therelike as i know you only need to split data that 
contain Days, Hrs and Mins


This is just a minnor issue, since you can easily delete it manualy on 
result


Rgds,
[dp]

Pada 10/08/2013 8:23, Prafull Jadhav menulis:

Dear Sir,

Thanks a lot...understand the same.

Sir,
Below code is for data A1 to A10 . is it fine? will ans will get correct?
I have checked and ans getting correct ..Is there any further changes 
need?

This code is created by using your code . I have deleted the same code.

Sub prafull()
For Each x In Range(A2:A10)
Range(B  x.Row  :D  x.Row) = 
Split(Replace(Replace(Replace(x.Text, Days , ), Hrs , ), 
Mins, ),  )

Next
End Sub

Once again Thanks .
Regards,
Prafull Jadhav.



On Sat, Aug 10, 2013 at 6:29 AM, De Premor d...@premor.net 
mailto:d...@premor.net wrote:


firstly, Str() as variant is an array that we need to pass splited
result from this function Split(Replace(Replace(Replace(Rng.Text,
Days , ), Hrs , ), Mins, ),  ), but since i has
change the code, we dont need that variable declared, just deleted
it, i forgot to do that

If InStr(1, Rng, Days)  0 Then
is for checking if in current data is our needed data to transform
by checking is that data contain Days word or not

Instr will result zero if that cell doesn't contain word Days,
and will result the position number in str if it exist.



Pada 10/08/2013 7:41, Prafull Jadhav menulis:

Dear sir,
Thanks a lot for the same . It is working fine .

Can you Please,  explain the below code which is underline  line
 in Red color  as i am not able to understand

*Sub x()
Dim Rng As Range, _Str() As Variant_*
*_
_For Each Rng In Range(A3:A 
Range(A3).CurrentRegion.Rows.Count)
_If InStr(1, Rng, Days)  0 Then_
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs ,
), Mins, ),  )
End If
Next
End Sub
*



On Fri, Aug 9, 2013 at 7:45 PM, De Premor d...@premor.net
mailto:d...@premor.net wrote:

Try This !

Sub x()
Dim Rng As Range, Str() As Variant
For Each Rng In Range(A3:A 
Range(A3).CurrentRegion.Rows.Count)
If InStr(1, Rng, Days)  0 Then
Range(B  Rng.Row  :D  Rng.Row) = _
Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs ,
), Mins, ),  )
End If
Next
End Sub

Pada 09/08/2013 18:33, Prafull Jadhav menulis:

Dear Experts,

Can we have VBA code for the attached excel sheet.

Reg,
Prafull
-- 
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.
---
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
mailto:excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to
excel-macros@googlegroups.com
mailto: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.




-- 
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 

Re: $$Excel-Macros$$ Text to Column Vai VBA code

2013-08-09 Thread Prafull Jadhav
Dear Sir,

Yes.You are Right ,Sir..

for preventing error you have added the minor code. I got it.

Finally i got my output ...Thanks a lot...
Have a Great Day ..

Regards,
Prafull Jadhav.

On Sat, Aug 10, 2013 at 7:35 AM, De Premor d...@premor.net wrote:

  That is, you've almost done with it, just need a little code to prevent
 error result

 You have a header data In your attachment on cell A3 that contain words
 RESOLUTIONS TIME, that will also splited by your code, that why i add
 data checking there like as i know you only need to split data that contain
 Days, Hrs and Mins

 This is just a minnor issue, since you can easily delete it manualy on
 result

 Rgds,
 [dp]

  Pada 10/08/2013 8:23, Prafull Jadhav menulis:

 Dear Sir,

  Thanks a lot...understand the same.

  Sir,
 Below code is for data A1 to A10 . is it fine? will ans will get correct?
 I have checked and ans getting correct ..Is there any further changes need?
 This code is created by using your code . I have deleted the same code.

  Sub prafull()
 For Each x In Range(A2:A10)
 Range(B  x.Row  :D  x.Row) = Split(Replace(Replace(Replace(x.Text,
 Days , ), Hrs , ), Mins, ),  )
 Next
 End Sub

  Once again Thanks .
 Regards,
 Prafull Jadhav.



 On Sat, Aug 10, 2013 at 6:29 AM, De Premor d...@premor.net wrote:

  firstly, Str() as variant is an array that we need to pass splited
 result from this function Split(Replace(Replace(Replace(Rng.Text, Days
 , ), Hrs , ), Mins, ),  ), but since i has change the code,
 we dont need that variable declared, just deleted it, i forgot to do that

  If InStr(1, Rng, Days)  0 Then
  is for checking if in current data is our needed data to transform by
 checking is that data contain Days word or not

 Instr will result zero if that cell doesn't contain word Days, and
 will result the position number in str if it exist.



  Pada 10/08/2013 7:41, Prafull Jadhav menulis:

 Dear sir,
 Thanks a lot for the same . It is working fine .

 Can you Please,  explain the below code which is underline  line  in Red
 color  as i am not able to understand

  *Sub x()
 Dim Rng As Range, Str() As Variant*
 *
 For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
 If InStr(1, Rng, Days)  0 Then
 Range(B  Rng.Row  :D  Rng.Row) = _
 Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs
 , ), Mins, ),  )
 End If
 Next
 End Sub
 *



 On Fri, Aug 9, 2013 at 7:45 PM, De Premor d...@premor.net wrote:

  Try This !

 Sub x()
 Dim Rng As Range, Str() As Variant
 For Each Rng In Range(A3:A  Range(A3).CurrentRegion.Rows.Count)
 If InStr(1, Rng, Days)  0 Then
 Range(B  Rng.Row  :D  Rng.Row) = _
 Split(Replace(Replace(Replace(Rng.Text, Days , ), Hrs
 , ), Mins, ),  )
 End If
 Next
 End Sub

  Pada 09/08/2013 18:33, Prafull Jadhav menulis:

 Dear Experts,

  Can we have VBA code for the attached excel sheet.

  Reg,
 Prafull
 --
 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.
 ---
 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.
 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.




--
 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