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.
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 Sub
Hope this resolves your query & don't forget mark as Best Response if your query is resolved.
Thanks a ton ExcelExciting. however, i am not able to use it. when ever i double click any cell it goes till the end and says Task Completed but there arent any tick mark happening....
While opening the file you attached it gives me couple errors. snapshopts attach with this reply. Please help
However, Thank you for your effort and help appreciated!
hi rakeshtalwar,
After seeing the screenshot look like your macro is disable you need to enable to run the code. Try enabling the macro and then double click on the cell
Regards, Faraz Shaikh | MCT, MIE, MOS Master, Excel Expert | www.ExcelExciting.comYes Faraz, I did that in spite it give me the trouble. let me tell you that i have office 2007.
Anyway thanks for your quick reply.
Rakesh