Re: $$Excel-Macros$$ Move row to different sheet based on criteria

2011-08-13 Thread ashish koul
Hi if you have only three areas you can do it without macro see the attachment . just insert a temp column before A and then apply filter and paste data on sheet 2 rename the sheet On Sat, Aug 13, 2011 at 10:32 PM, dguillett1 wrote: > > Haven't followed and don't see older posts so if desir

Re: $$Excel-Macros$$ Move row to different sheet based on criteria

2011-08-13 Thread dguillett1
Haven't followed and don't see older posts so if desired send your file to me at dguille...@gmail.com with a complete explanation. -Original Message- From: JsinSk Sent: Saturday, August 13, 2011 10:54 AM To: MS EXCEL AND VBA MACROS Subject: Re: $$Excel-Macros$$ Move row to different

Re: $$Excel-Macros$$ Move row to different sheet based on criteria

2011-08-13 Thread JsinSk
Can anyone else assist? -- -- 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

RE: $$Excel-Macros$$ help required 4

2011-08-13 Thread Rajan_Verma
This Procedure Should be Like This : Sub InsertRow() For x = 1 To Range("A65536").End(xlUp).Row * 2 If Range("A" & Trim(Str(x))).Value <> "" And Range("A" & Trim(Str(x))).Offset(1, 0).Value <> "" Then Application.StatusBar = "Inserting Rows on Row : " & Trim(Str(x + 1)) Range("A" &

RE: $$Excel-Macros$$ help required 4

2011-08-13 Thread Rajan_Verma
This Procedure Should be Like This : Sub InsertRow() For x = 1 To Range("A65536").End(xlUp).Row * 2 If Range("A" & Trim(Str(x))).Value <> "" And Range("A" & Trim(Str(x))).Offset(1, 0).Value <> "" Then Application.StatusBar = "Inserting Rows on Row : " & Trim(Str(x + 1)) Range("A" & Tri

Re: $$Excel-Macros$$ Required Formula to calculate rating

2011-08-13 Thread Simran Singh
Thank u so much Ashish. simran On Sat, Aug 13, 2011 at 12:07 PM, ashish koul wrote: > B8 > =IF(AND(COUNTIF(B2:B5,1)>=1,COUNTIF(B2:B5,0)=0),5,IF(AND(COUNTIF(B2:B5,1)=0,COUNTIF(B2:B5,0)>=1),1,5-COUNTIF(B2:B5,0))) > > =IF(COUNTIF(B2:B5,"NA")=COUNTA(B2:B5),"No > Rating",IF(AND(COUNTIF(B2:B5,1)>=1,C

RE: $$Excel-Macros$$ From Word to Excel

2011-08-13 Thread Daniel
Test the below macro : Sub WordToExcel() Dim strFolder As String, F As Object, strRootFolder As String Dim FSO As Object, SF As Object, WordApp As Object Dim WordDoc As Object, Ctr As Long, strFile As String, myTable As Object Application.ScreenUpdating = False Set Word

Re: $$Excel-Macros$$ Excel minor Puzzle

2011-08-13 Thread chandrabhushan prasad
find the attachment On 8/4/11, Bhushan Sabbani wrote: > Dear All, > > There is the minor puzzle and answer too. > > Regards, > > Bhushan Sabbani. > > -- > -- > Some important links for excel users: > 1. Follow us on T