Hi Ashish/deepak sirs,
thanks for your valuable time invested for my query..................
ashish sir,
your code is working like rockzzzzzzzzzzzz
my special thanks to you sir..... and deepak also.........
On Sunday, 23 March 2014 23:10:56 UTC+5:30, ashish wrote:
>
> try this
> Sub create()
>
>
> Dim wk As Worksheet, wk2 As Worksheet
> Dim i As Long, k As Long, z As Long, s As Long
>
> On Error Resume Next
> Sheets("T1").Delete
> Sheets("T2").Delete
> On Error GoTo 0
>
> Sheets.Add(after:=Sheets(Sheets.Count)).Name = "T1"
> Sheets.Add(after:=Sheets(Sheets.Count)).Name = "T2"
>
> Set wk = Sheets("T1")
> Set wk2 = Sheets("T2")
>
>
>
> For i = 2 To Sheets("Inputs data").Range("a1048576").End(xlUp).Row
> With Sheets("Inputs data")
> ' t1
> k = i
> For CT = k To .Range("a1048576").End(xlUp).Row
> If .Range("B" & CT).Value > 0 Then
> z = CT
> Exit For
> End If
> Next
> s = wk.Range("a65356").End(xlUp).Row + 1
> .Range("a" & k & ":c" & z - 1).Copy Destination:=wk.Range("a" & s)
> wk.Range("d" & s & ":d" & s + (z - i - 1)).Value = .Range("a" &
> z).Value
> wk.Range("e" & s & ":e" & s + (z - i - 1)).Value = .Range("b" &
> z).Value
> wk.Range("f" & s & ":f" & s + (z - i - 1)).Value = .Range("c" &
> z).Value
> 't2
> s = wk2.Range("d65356").End(xlUp).Row + 1
> .Range("a" & k & ":c" & z - 1).Copy Destination:=wk2.Range("d" & s)
> wk2.Range("a" & s).Value = .Range("a" & z).Value
> wk2.Range("b" & s).Value = .Range("b" & z).Value
> wk2.Range("c" & s).Value = .Range("c" & z).Value
> i = z + 1
> End With
> Next
>
>
> End Sub
>
>
>
> On Sat, Mar 22, 2014 at 10:40 PM, renuka chari <jva....@gmail.com<javascript:>
> > wrote:
>
>> Deepak sir,
>>
>> i am extremely sorry.. i forget to explain one major criteria
>> i.e unique code would not be constant for a splitting group. it would be
>> repeat for other group also
>> what ever you are done work is superb but you are considered based on
>> unique field this macro result may be getting wrong.... please check the
>> image and excel also this criteria would be applicable for with gaps macro.
>>
>>
>> On Saturday, 22 March 2014 21:42:56 UTC+5:30, Deepak Pal Singh wrote:
>>
>>> Here you go..!
>>>
>>> Just wanted to let you know automations can only be successfully
>>> implemented on standard data. Lots of variations caused you to change VBA
>>> code frequently.
>>>
>>>
>>> On Sat, Mar 22, 2014 at 7:03 PM, renuka chari <jva....@gmail.com> wrote:
>>>
>>>> Dear Deepak,
>>>>
>>>> thanks for your great help... it would be working so great...
>>>>
>>>> but i was found a small problem from Output 2 here i am getting
>>>> positive values twice
>>>>
>>>> and for output 1 and 2 negative value font colour must be in red colour
>>>>
>>>> kindly check this once and revert...........
>>>>
>>>> thanks once again for your great help..
>>>>
>>>>
>>>> On Saturday, 22 March 2014 14:57:33 UTC+5:30, Deepak Pal Singh wrote:
>>>>
>>>>> Try this one..
>>>>>
>>>>>
>>>>> On Sat, Mar 22, 2014 at 1:33 PM, Renukachari Kasee
>>>>> <jva....@gmail.com>wrote:
>>>>>
>>>>>> Ashish Sir,
>>>>>>
>>>>>> your macro was working very good for specified criteria.
>>>>>>
>>>>>> i need one more criteria too
>>>>>>
>>>>>> i.e groups does not have any blank rows that time also it would be
>>>>>> split as same.
>>>>>>
>>>>>> for example please check the workbook
>>>>>> (¨`•.•´¨) Always
>>>>>> `•.¸(¨`•.•´¨) Keep
>>>>>> (¨`•.•´¨)¸.•´ Smiling!!
>>>>>> `•.¸.•´
>>>>>> Thanks & Regards´¨)
>>>>>> ¸ •´ ¸.•*´¨) ¸.•*¨)
>>>>>> (¸.•´ (¸.•* ♥♥♥...♪♪♪....RenukaChari. Kasee...♥♥♥...♪♪♪
>>>>>>
>>>>>> P Let us do our best to save nature, save water, plant trees, protect
>>>>>> greenery, keep our surroundings clean, reduce usage of plastics, and
>>>>>> use renewable energy sources.
>>>>>>
>>>>>>
>>>>>> On 22 March 2014 00:09, Renukachari Kasee <jva....@gmail.com> wrote:
>>>>>> > Dear experts,
>>>>>> >
>>>>>> > please provide the vba macro for attached excel sheet format split
>>>>>> > into separate sheets those formats are mentioned in the excel
>>>>>> >
>>>>>> > kindly do the needful
>>>>>> >
>>>>>> > thanks alot.
>>>>>>
>>>>>> --
>>>>>> 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...@googlegroups.com.
>>>>>> To post to this group, send email to excel-...@googlegroups.com.
>>>>>>
>>>>>> Visit this group at http://groups.google.com/group/excel-macros.
>>>>>> For more options, visit https://groups.google.com/d/optout.
>>>>>>
>>>>>
>>>>>
>>>>>
>>>>> --
>>>>>
>>>>> Regards,
>>>>>
>>>>> *Deepak Kumar** (Analyst & Automation Expert) Contact: +91-9999399977*
>>>>> ………………………………………………………………………………………………………………………………………………………………
>>>>> ……...............................................
>>>>>
>>>>> *"It's Never Too Late To Follow Your Dreams"*
>>>>>
>>>> --
>>>> 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...@googlegroups.com.
>>>> To post to this group, send email to excel-...@googlegroups.com.
>>>> Visit this group at http://groups.google.com/group/excel-macros.
>>>> For more options, visit https://groups.google.com/d/optout.
>>>>
>>>
>>>
>>>
>>> --
>>>
>>> Regards,
>>>
>>> *Deepak Kumar** (Analyst & Automation Expert) Contact: +91-9999399977*
>>> ………………………………………………………………………………………………………………………………………………………………
>>> ……...............................................
>>>
>>> *"It's Never Too Late To Follow Your Dreams"*
>>>
>> --
>> 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...@googlegroups.com <javascript:>.
>> To post to this group, send email to excel-...@googlegroups.com<javascript:>
>> .
>> Visit this group at http://groups.google.com/group/excel-macros.
>> For more options, visit https://groups.google.com/d/optout.
>>
>
>
>
> --
> *Regards*
>
> *Ashish Koul*
>
>
> *Visit*
> http://www.excelvbamacros.in
> Like Us on
> Facebook<http://www.facebook.com/pages/Excel-VBA-Codes-Macros/151803898222297>
> Join Us on Facebook <http://www.facebook.com/groups/163491717053198/>
>
>
> P Before printing, think about the environment.
>
>
>
--
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/d/optout.
