Dear siti Vi,
Brillient....!
Could you please give me some VBA assignments, so that i can try myself and
can improve my VBA skill.
Thank you once again for your kind help, hope it will continue...!
Many Thanks,
Sreekanth M
Mobile:9916941744
On Tue, Oct 12, 2010 at 8:56 AM, siti Vi <villager.g...@gmail.com> wrote:
> please test this coding
>
> Sub Summarize()
> ' -----------------------------------
> ' by: siti Vi / jakarta, 12 Oct 2010
> '-----------------------------------
> Dim dTable As Range, dSummary As Range, NameCol As Range
> Dim StrName As String, i As Long, n As Long
> Dim SubTot As Double, UniqList '(As Variant)
>
> Set dTable = Sheets("Data").Cells(1).CurrentRegion
> Set dSummary = Sheets("Report").Cells(2, 1)
> Set NameCol = dTable.Offset(1, 0).Resize(dTable.Rows.Count - 1, 1)
>
> '--creating list of unique name in an 1 dimension array
> For n = 1 To NameCol.Rows.Count
> If InStr(1, StrName, NameCol(n) & "|") = 0 Then
> StrName = StrName & NameCol(n) & "|"
> End If
> Next n
> UniqList = Split(StrName, "|")
>
> '--construct a summary report
> For i = 0 To UBound(UniqList) - 1
> SubTot = 0
> For n = 2 To dTable.Rows.Count
> If dTable(n, 1) = UniqList(i) Then
> SubTot = SubTot + dTable(n, 3)
> End If
> Next n
> dSummary(i + 1, 1) = UniqList(i)
> dSummary(i + 1, 2) = SubTot
> Next i
> End Sub
>
> and let me know if work
>
> best regards,
> siti
>
>
>
> On Mon, Oct 11, 2010 at 7:13 PM, sreekanth m <sreekanthm.namb...@gmail.com
> > wrote:
>
>> Hi All,
>>
>> Can someone help me to resolve the attached issue, to paste the unique
>> records to Report sheet....!
>>
>> I want to have the answer like the below one. But I am unable to do the
>> VBA for the same.
>>
>> Thank in advance...!
>> Name Total Marks A 47 B 59 C 136 D 93 X 34 Y 25 Z 71
>> Thanks&Regards,
>>
>> Sreekanth M
>> Mobile:9916941744
>>
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
>
--
Thanks&Regards,
Sreekanth M
Mobile:9916941744
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/pages/discussexcelcom/160307843985936?v=wall&ref=ts
