Dear sir, could you plese provide soulution sir,
Regards chandru On Tue, Jan 3, 2012 at 8:24 PM, chandra sekaran <duraichan...@gmail.com>wrote: > Dear Rajan, > > if i select Month july only july data will come but all data comes > output sheet after that i little bit change from date , To date it is > working but same i select it is not coming out put > > one more think Rajan i need only From Date , To Date if possible > plese..... > > > Thanks > > Regards > durai.chandrasekaran.(Chandru) > > > > > On Tue, Jan 3, 2012 at 8:17 PM, Rajan_Verma <rajanverma1...@gmail.com>wrote: > >> Is it not working??**** >> >> ** ** >> >> *From:* Rajan_Verma [mailto:rajanverma1...@gmail.com] >> *Sent:* Dec/Thu/2011 08:38 >> >> *To:* excel-macros@googlegroups.com >> *Subject:* RE: $$Excel-Macros$$ cashflow statement**** >> >> ** ** >> >> See the attached file.. select the month and year from Drop down you will >> get what you need J**** >> >> ** ** >> >> ** ** >> >> *From:* Rajan_Verma [mailto:rajanverma1...@gmail.com] >> *Sent:* Dec/Wed/2011 07:10 >> *To:* 'excel-macros@googlegroups.com' >> *Subject:* RE: $$Excel-Macros$$ cashflow statement**** >> >> ** ** >> >> See the attached Sheet, Press Create Cash Flow Button..**** >> >> ** ** >> >> Sub MakeItAutomatic()**** >> >> **** >> >> Dim rngRowData As Range**** >> >> Dim rngCell As Range**** >> >> Dim wksOutPut As Worksheet**** >> >> Set wksOutPut = ThisWorkbook.Worksheets("Output")**** >> >> **** >> >> Set rngRowData = Range("rngRowData").CurrentRegion**** >> >> rngRowData.AutoFilter Field:=2, Criteria1:="Collection Journal"** >> ** >> >> Set rngRowData = rngRowData.SpecialCells(xlCellTypeVisible)**** >> >> Set rngRowData = Intersect(rngRowData, rngRowData.Offset(1))**** >> >> With Range("rngCollStart")**** >> >> .Resize(Range("rngCollStart").CurrentRegion.Rows.Count, >> 6).ClearContents**** >> >> .Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(3).Value**** >> >> .Offset(, 1).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(1).Value**** >> >> .Offset(, 2).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(7).Value**** >> >> .Offset(, 3).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(5).Value**** >> >> .Offset(, 4).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(6).Value**** >> >> .Offset(, 5).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(8).Value**** >> >> End With**** >> >> rngRowData.AutoFilter**** >> >> **** >> >> Set rngRowData = Range("rngRowData").CurrentRegion**** >> >> rngRowData.AutoFilter Field:=2, Criteria1:="Fund Transfer Voucher" >> **** >> >> Set rngRowData = rngRowData.SpecialCells(xlCellTypeVisible)**** >> >> Set rngRowData = Intersect(rngRowData, rngRowData.Offset(1))**** >> >> With Range("rngFundStart")**** >> >> .Resize(Range("rngCollStart").CurrentRegion.Rows.Count, >> 6).ClearContents**** >> >> .Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(3).Value**** >> >> .Offset(, 1).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(1).Value**** >> >> .Offset(, 2).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(7).Value**** >> >> .Offset(, 3).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(5).Value**** >> >> .Offset(, 4).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(6).Value**** >> >> .Offset(, 5).Resize(rngRowData.Rows.Count - 1, 1).Value = >> rngRowData.Columns(8).Value**** >> >> End With**** >> >> rngRowData.AutoFilter**** >> >> >> wksOutPut.Cells(wksOutPut.Cells(Range("rngCollStart").CurrentRegion.Rows.Count, >> 1).Row + 7, 5).Value = _**** >> >> Evaluate("=Sum(" & wksOutPut.Cells(8, >> 5).Resize(wksOutPut.Cells(wksOutPut.Cells(8, 5).End(xlDown).Row, >> 5).Row).Address & ")")**** >> >> **** >> >> >> wksOutPut.Cells(wksOutPut.Cells(Range("rngCollStart").CurrentRegion.Rows.Count, >> 1).Row + 7, 11).Value = _**** >> >> Evaluate("=Sum(" & wksOutPut.Cells(8, >> 11).Resize(wksOutPut.Cells(wksOutPut.Cells(8, 11).End(xlDown).Row, >> 11).Row).Address & ")")**** >> >> ** ** >> >> **** >> >> **** >> >> End Sub**** >> >> ** ** >> >> *From:* excel-macros@googlegroups.com [mailto: >> excel-macros@googlegroups.com] *On Behalf Of *chandra sekaran >> *Sent:* Dec/Wed/2011 10:19 >> *To:* excel-macros@googlegroups.com >> *Subject:* $$Excel-Macros$$ cashflow statement**** >> >> ** ** >> >> Dear all **** >> >> **** >> >> here with attached Cashflow xls file it containing Data Sheet >> and OUTPUT sheet i am doing manually daily basis How do it >> automatticaly come to out put sheet please help sir, **** >> >> **** >> >> Regards**** >> >> chandru **** >> >> -- >> FORUM RULES (934+ members already BANNED for violation) >> >> 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) Cross-promotion of, or links to, forums competitive to this forum in >> signatures are prohibited. >> >> NOTE : Don't ever post personal or confidential data in a workbook. Forum >> owners and members are not responsible for any loss. >> >> >> ------------------------------------------------------------------------------------------------------ >> To post to this group, send email to excel-macros@googlegroups.com**** >> >> -- >> FORUM RULES (934+ members already BANNED for violation) >> >> 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) Cross-promotion of, or links to, forums competitive to this forum in >> signatures are prohibited. >> >> NOTE : Don't ever post personal or confidential data in a workbook. Forum >> owners and members are not responsible for any loss. >> >> >> ------------------------------------------------------------------------------------------------------ >> To post to this group, send email to excel-macros@googlegroups.com >> > > -- FORUM RULES (986+ members already BANNED for violation) 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) Cross-promotion of, or links to, forums competitive to this forum in signatures are prohibited. NOTE : Don't ever post personal or confidential data in a workbook. Forum owners and members are not responsible for any loss. ------------------------------------------------------------------------------------------------------ To post to this group, send email to excel-macros@googlegroups.com
