Forum Discussion
Visit Planner
Hi rakeshtalwar
Please see the attached file, when you double click on the cell It will tick mark after 6 days. One slight change I have made instead of entering the tick icon I have replace the value with "a" and the font remains the same "Webdings"
Below code can be used in the worksheet module:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Coded By : Faraz Shaikh - www.ExcelExciting.com | 24.02.2020 Dim rowNo, colNo As Integer rowNo = ActiveCell.Row colNo = ActiveCell.Column i = ActiveCell.Value Do Until IsEmpty(Cells(2, colNo)) Cells(rowNo, colNo).Select ActiveCell.Value = i colNo = colNo + 6 Loop MsgBox "Task Completed", vbInformation, "Faraz Shaikh | ExcelExciting.com" End SubHope this resolves your query & don't forget mark as Best Response if your query is resolved.
Alternatively, if you can live with a solution that does not require VBA, just enter in cell N3
=H3
and copy it down and across. Just place your tick mark when you visited your customer and whichever cell comes 6 steps to the right will also get a tick mark to indicate your next visit. Should you have missed or rescheduled a visit just remove the tick and place it where you did visit the client. After your 3 month period is over, do the same again.
rakeshtalwar Have a look at the attached workbook. The only problem I have with it that I get strange symbols. I'm on a Mac, so that could be the cause of it.