Recent content by Harry Covair

Hi Marc L, Interesting demo. It demonstrates there is a solution to my problems. I'm looking further. Regards

Hi the forum, First of all, I would like to wish everyone a happy 2017 I try to solve the following two problems. I have two files, an Excel one and a Word document. The Word document contents some text referenced by bookmarks. The Excel file has one sheet containing a combobox and a...

Fantastic ...and so simple I enjoy Harry

Thanks for the explanations. Have a nice day Harry

Hi Narayank, Many thanks for your solution. But, could you be so kindly to explain the use of the MOD function in this case. And, by the way, how can I highlight the today's date on the chart. Harry

Hi Narayan, thanks for reacting. I uploaded a test file Harry

Hi the forum, I want to create a chart with dates in horizontal axis and hours in vertical axis. I have two columns showing by date col1) the time of sunrise (col2). The two columns have the same content with a different format. For dates: dd-mm-yyyy h:mm:ss displayed as dd-mm-yyyy For hours...

Hi Debaser, Thanks for your answer. Your solution is running fine. Have a nice day Harry

Hi the forum, I want to submit the forum the following problem: In a VBA procedure, I feed an array variable (Dim Temp_Max () As Variant, ReDim Temp_Max(200)) with temperatures (numeric values): the_temps_Max(i_temp) = Worksheets("DATA").Cells(x, 4).Value Same reasoning with years...

Hi Debaser, Thanks for your answer. I didn't know thie properties. Have a nice day Harry

Hi the forum, In a procedure, I compute the monthly average of temperature between the years 1833 and 2015. Everything goes fine until 12/31/1929. When switching to 01/01/1930, 1930 becomes 30 and is considered as being less than 1900. Below you will find in the pictures the values in the...

Hi sidxl, Assuming you created, in the sheet that contains the data, two activeX buttons which names (not the caption) are btn_Tot_Today and btn_Tot_Between, replace the existing code by this one. Even if you change the name of the worksheet, the code remains operational. Harry Private Sub...

Hi VarunMV, Assuming the raw text is in A1 the required words in A2 the formula in A3 should be =MID(A1;FIND(A2;A1);LEN(A2)) Hope this help Harry

and this one Sub sumbetwdate() Dim ws As Worksheet, lastrow As Long, rng As Range, tot As Long Dim D_Begin As Date Dim D_End As Date D_Begin = InputBox("Date begin") D_End = InputBox("Date end") Set ws = Worksheets("sheet1") ws.Activate lastrow = ws.Cells(1, 1).End(xlDown).Row For Each rng In...

Hi sidxl, try this as procedure in sheet1 Sub cond_sum() Dim ws As Worksheet, lastrow As Long, myrange As Range, rng As Range, tot As Long Set ws = Worksheets("sheet1") ws.Activate lastrow = ws.Cells(1, 1).End(xlDown).Row For Each rng In Range("A2", Cells(lastrow, 1)) If rng <= Now() Then...