RE: $$Excel-Macros$$ Date conversion to other format

2013-06-16 Thread Dhartikumar Sahu
Please find attached From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Pravin Gunjal Sent: 14 June 2013 12:10 To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Date conversion to other format Hi, I want to convert the date =Today() to

Re: $$Excel-Macros$$ Sum (After every 5 minute) formula

2013-06-16 Thread amar takale
Dear Vabs & De Thanks Very much solution for different ways Regards Amar On Sat, Jun 15, 2013 at 5:18 PM, VBA VABZ wrote: > PFA > > In simple way > > HTH > > > On Sat, Jun 15, 2013 at 1:44 PM, amar takale wrote: > >> Dear All Experts >> Here I required sum formula but as per time means sum nea

Re: $$Excel-Macros$$ Double Click To Copy Data To Another Worksheet

2013-06-16 Thread priti verma
try this code to paste data in next cell which have existing data Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim rngRange As Range Set rngRange = ActiveSheet.Next.Range("a" & Rows.Count).End(xlUp) Target.Copy Destination:=rngRange.Offset(1) Cancel = True End

Re: $$Excel-Macros$$ Double Click To Copy Data To Another Worksheet

2013-06-16 Thread Sam Mathai Chacko
I do differ. The boolean argument in the double click event can be manipulated from getting in to edit mode. That doesn't have to be substituted with the right-click event. On Sun, Jun 16, 2013 at 5:55 PM, VBA VABZ wrote: > Reason for using right clik was, once you double click cell you get in

Re: $$Excel-Macros$$ Double Click To Copy Data To Another Worksheet

2013-06-16 Thread VBA VABZ
Reason for using right clik was, once you double click cell you get in to cell edit mode. So sheet change event stops, if you want to copy data to destination more than once you can achieve it with right click. Cheerz. On 16 Jun 2013 17:28, "Sam Mathai Chacko" wrote: > It wasn't Single click tha

Re: $$Excel-Macros$$ Double Click To Copy Data To Another Worksheet

2013-06-16 Thread priti verma
yes, but he did not said he have data on another sheet , if it is then sajid need to give clear instruction , how he want to copy data from sheet 1 to another. On Sun, Jun 16, 2013 at 5:04 PM, VBA VABZ wrote: > Hi priti > > This will keep on overriding existing data one on anothet on click. >

Re: $$Excel-Macros$$ Double Click To Copy Data To Another Worksheet

2013-06-16 Thread VBA VABZ
Hi priti This will keep on overriding existing data one on anothet on click. We have to change taeget once data is copied in to. Feedback appreciated. Thanks On 16 Jun 2013 16:56, "priti verma" wrote: > Hi sajid you can also try this > > Private Sub Worksheet_BeforeDoubleClick(ByVal Target As

Re: $$Excel-Macros$$ Double Click To Copy Data To Another Worksheet

2013-06-16 Thread priti verma
Hi sajid you can also try this Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) ActiveSheet.Next.Range(Target.Address).Value = Target.Value Cancel = True End Sub On Sat, Jun 8, 2013 at 10:34 AM, SAJID MEMON wrote: > Dear Experts, I require in excel 200

Re: $$Excel-Macros$$ Double Click To Copy Data To Another Worksheet

2013-06-16 Thread Sam Mathai Chacko
It wasn't Single click that Sajid asked for. It was double click. Yes, as Vabs mentioned, there's isn't a single click event on sheet, however, there's a double click event. Private Sub Worksheet_Before*Double*Click(ByVal Target As Range, _ cancel As Boolean) Dim rng As Range Set rng = Range("E" &

Re: $$Excel-Macros$$ Double Click To Copy Data To Another Worksheet

2013-06-16 Thread VBA VABZ
Hi Try this code: Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ cancel As Boolean) Dim rng As Range Set rng = Range("E" & Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).Row) cancel = True With Selection Selection.Copy Destination:=rng End With End Sub Here rng specifies destina

$$Excel-Macros$$ Re: Help in copy data

2013-06-16 Thread Vabz
Hi Try this code: Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ cancel As Boolean) Dim rng As Range Set rng = Range("E" & Cells(Rows.Count, "E").End(xlUp).Offset(1, 0).Row) cancel = True With Selection Selection.Copy Destination:=rng End With End Sub Here rng specifies destina