Search results

The link was posted by NARAYANK991, I just adapte it the the kaushik03's file. If you read all posts you will understand what I did. http://www.databison.com/index.php/interactive-chart-in-vba-using-mouse-move-event/

@bobhc Right when you select series or even legend. Thanks for your positive remarks If you have any another idea to solve the problem, please share your knowledge with us. Best regards

Hi pstol You can export charts as image For exemple, if you have a chartobject in your active worksheet, this code will export the chart into the folder where your workbook is stocked Sub ExportChartObject() ActiveSheet.ChartObjects(1).Chart.Export ThisWorkbook.Path & "MyChart.gif&#34...

@bobhc Change the Left and Top of the code od txtBox @kaushik03 If the chart is an object in your worksheet, it needs a Class Module (in VBA Editor, Insert> Classe Module). It name is Classe1 The code in Classe1: Public WithEvents CHRT As Chart Private Sub CHRT_MouseMove(ByVal Button...

Hi kaushik03 Adapting the link to your file (you need a chart and not a chartobject insered in a worksheet) Code: Private Sub Chart_MouseMove(ByVal Button As Long, ByVal Shift As Long, ByVal x As Long, ByVal y As Long) Dim Annee As String, Client As String, Montant As String Dim ElementID...

Hi ankuun I'll try here to explain a simplified file done on the one posted by NARAYANK991 We need a range named SIGN_IN with all our times (8:00, 8:01....) In A5 we will create a validation list based on SIGN_IN (In Source: =SIGN_IN) And in B5 we will create the second validation list...

Here a code using the change event of the sheet (Each change of values in A:K, the code will automatically executed) And also using colors you choosed Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, UsedRange, Range("A:K")) Is Nothing Then CondForm End Sub...

Hi Debraj Roy Спасибо тебе за комплимент! The translator aa :) Translated: Thank you for the compliment! Can you help me to explain to henksss? Thank you @henksss Nothing works or you can't make it work? Edit: You answered! The 2nd code won't automatically work The code Sub CondForm()...

You should Run it (for your case) Sub CondForm() Dim ClrInd As Integer Dim c As Range For Each c In Worksheets("enter results").Range("L3:L1000") Select Case c.Value Case "": ClrInd = xlNone Case 0 To 6: ClrInd = c.Value + 35 '(the max in colorindex is 56, so choose...

Hi Sorry I didn't mention it. You should change the CodeName of your sheet (in my exemple I wrote Sheet1) You can also use the name of the sheet (in place Sheet1, write Worksheet("NameOfYour Sheet") Regards

Hi Here is code vba which color each cell of A1:A100 in Sheet1 depending of values of these cells Sub CondForm() Dim ClrInd As Integer Dim c As Range For Each c In Sheet1.Range("A1:A100") Select Case c.Value Case "": ClrInd = xlNone Case 0 To 6: ClrInd = c.Value + 35 '(the...

Hi As I know, you can't delete the content of a cell by conditionnal formatting (as it name, it means you can only change the format). Regards

Hi Pitcher As I understand, if you want to hide the contents of cell, use the personal number format ;;; Regards

Hi shrivallabha You all right, the function frequency had a n+1 size Here 2 ways I found to answer to the problem If A8 non numeric =SUMPRODUCT((FREQUENCY($A$1:$A$7,$B$1:$B$7)>0)*ISNUMBER($A$1:$A$8)) Or...

Hi If you have Excel 2007 and later, you can use Format condition (the 5th item). Sorry I don't have english version of excel to help more Here is an array formula which will show you how many duplicate values you have in a range...

Hi every one If you have no duplicate values in each column =SUMPRODUCT(COUNTIF($A$1:$A$10,$B$1:$B$10)) If you have only numeric values (duplicate or not) =SUMPRODUCT((FREQUENCY($A$1:$A$10,$B$1:$B$10)>0)*1)-1 Regards

@SirJB7 Hi! Now, I recognize that I should have English courses or use online translator. Sorry if I wrote something far from the subject. Regards.

@ SirJB7 Yes! here is professional code, and also the names choosen for the variables and constants! Bravo. Not like me, names without sens. Regards!

@SirJB7 Hi! Thanks for the link. Rarely I used DateDif and for the first time I see that it causes problems... The problem of DateDif appears also with interval m?

Hi If I understand your question If you want to compare the data in column K of Sheet2 with datas in column A of Sheet1 and mark those who dosn't exist. In L1 of Sheet2, As you wish using VLOOKUP, write this formula and drag it to the end of column...

Hi Chanie You should calculate the number of months and then convert to years =DATEDIF(B4,C4,"m")/12 You will have 25.91666667 years

@Sir SirJB7 Exact as always! but I wrote a comment for adapting. Soon I should change my Office to English version ;) Subjectively, in vba, I prefer to code with the CodeName of the worksheets better (a little bitte) than the name or the index. PS: How is my english? PS2: I edited the code...

Hi everyone Here proposition of code using simple array variable loop (If a group with a single row, the result would be the value itself). The only constraint is that the groups must be grouped 'This will correctly work if groups are grouped Sub Extrema() Dim Mn As Double, Mx As Double...

Hi Shan Use a Pivot table and group what you want.

Hi Penny If you have date in A1 and Time in A2, try this formula =TEXT(A1+A2,"dd/mm/yyyy hh:mm") Regards. Edit. Sorry didn't see you answer Sir Hui. PS. Please, how can I delete my answer