Hi Sumit.. great video on methods and techniques for adding check marks. I especially like your VBA double-click method.. super useful! Thanks for sharing your knowledge. Thumbs up!
Hi Suet, I also think this is a great video. Is there a way to write a VBA Code that would enable you to do the double click check marks in two separate column cells like column A cells and column B cells on the same spreadsheet?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Checking whether target cell is in third column If Target.Column = 4 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "a" Else Target = "" End If End If If Target.Column = 5 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "a" Else Target = "" End If End If If Target.Column = 6 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "a" Else Target = "" End If End If If Target.Column = 7 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "a" Else Target = "" End If End If If Target.Column = 8 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "a" Else Target = "" End If End If If Target.Column = 9 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "a" Else Target = "" End If End If If Target.Column = 10 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "a" Else Target = "" End If End If If Target.Column = 11 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "a" Else Target = "" End If End If End Sub Here! I was looking for the same thing and I had to find my own solution! Column D to Column K was my target, so as you can see I changed the first target to 4 which is D and I modified the code. I hope this will help!
Sir i really appreciate all the seaven methods of creating the check box and check marks But till the end of the video i was try to learn how to make empty check box which can be check marked ☑️ or cross marked ❎ in a single click. Please Help
This can't happen with a checkbox, as it only has the option to check or uncheck. You can do this with the VBA method though, where you double click once and it shows the checkmark and you double-click again and it shows the cross mark (like a toggle). You will have to change the VBA code for it though
@@trumpexcel Thanks sir, You are amazing. 👌👌👌👌 If it is possible for you please make video on this too. Else, though i am not good in VBA coding i need to try this my own
Use the below VBA code for this: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Column = 2 Then Cancel = True Target.Font.Name = "Wingdings" If Target.Value = "" Or Target.Value = "û" Then Target.Value = "ü" Else Target.Value = "û" End If End If End Sub
Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'Checking whether target cell is in third column If Target.Column = 4 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "ü" Else Target = "" End If End If If Target.Column = 5 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "ü" Else Target = "" End If End If If Target.Column = 6 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "ü" Else Target = "" End If End If If Target.Column = 7 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "ü" Else Target = "" End If End If If Target.Column = 8 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "ü" Else Target = "" End If End If If Target.Column = 9 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "ü" Else Target = "" End If End If If Target.Column = 10 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "ü" Else Target = "" End If End If If Target.Column = 11 Then
'Prevent cell going into Edit Mode Cancel = True
'Changing font type of the cell Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick If Target = "" Then Target = "ü" Else Target = "" End If End If End Sub
Hi Suet, I also think this is a great video. Is there a way to write a VBA Code that would enable you to do the double click check marks in two separate column cells like column A cells and column B cells on the same spreadsheet? 1
![Kodak Black - Sharp Vibes [Official Music Video]](http://i.ytimg.com/vi/oEV0OoLJeIs/mqdefault.jpg)
Hi Sumit.. great video on methods and techniques for adding check marks. I especially like your VBA double-click method.. super useful! Thanks for sharing your knowledge. Thumbs up!
Glad you found the video useful Wayne
✓
Can I use symbols for attendance then change it to a value when you add all the ticks up using countif? If anyone understands this let me know
Very clear and comprehensive video! Thank you!
Great Video!
found the video in your website, came to YT to like it! Thanks so much!
Thank you for this video. Your method is very simple and elegant .
Thank you for your help.
Thanks! I was looking for the VBA double-click code. I tried something I found elsewhere, but it didn't work. Yours did. Appreciate it!
The VBA was so easy and helpful and exactly what I needed! Thank you :)
Very informative. Thank you!
This is amazing!!! Thank you so much 🔥
Awesome ways
Hi Suet, I also think this is a great video. Is there a way to write a VBA Code that would enable you to do the double click check marks in two separate column cells like column A cells and column B cells on the same spreadsheet?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Checking whether target cell is in third column
If Target.Column = 4 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "a"
Else
Target = ""
End If
End If
If Target.Column = 5 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "a"
Else
Target = ""
End If
End If
If Target.Column = 6 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "a"
Else
Target = ""
End If
End If
If Target.Column = 7 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "a"
Else
Target = ""
End If
End If
If Target.Column = 8 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "a"
Else
Target = ""
End If
End If
If Target.Column = 9 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "a"
Else
Target = ""
End If
End If
If Target.Column = 10 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "a"
Else
Target = ""
End If
End If
If Target.Column = 11 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Marlett"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "a"
Else
Target = ""
End If
End If
End Sub
Here! I was looking for the same thing and I had to find my own solution! Column D to Column K was my target, so as you can see I changed the first target to 4 which is D and I modified the code. I hope this will help!
Please make a detail video on interpolation & double interpolation in excel.
Thank you so much Dear :)
Learnt a lot in this video :)
It is just a step forward. Never backward.
Hi Great stuff, can this also be done in word, if we have table
many Thanks ♥
Nice
thanks sir
Insert a Check Mark (Tick ✓)
Is there a way to do the vba in different columns on the same spreadsheet?
check my answer pls!
great
How do you modify the VBA code to insert the checkmark in specific multiple cell ranges like 3rd cell in 1st row and 9th cell in 10th row.
So I made a attendance sheet however I used the ticks but to put into a formula to get sums on the attendance am having issues
Sir i really appreciate all the seaven methods of creating the check box and check marks
But till the end of the video i was try to learn how to make empty check box which can be check marked ☑️ or cross marked ❎ in a single click.
Please Help
This can't happen with a checkbox, as it only has the option to check or uncheck. You can do this with the VBA method though, where you double click once and it shows the checkmark and you double-click again and it shows the cross mark (like a toggle). You will have to change the VBA code for it though
@@trumpexcel Thanks sir,
You are amazing. 👌👌👌👌
If it is possible for you please make video on this too. Else, though i am not good in VBA coding i need to try this my own
Use the below VBA code for this:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Cancel = True
Target.Font.Name = "Wingdings"
If Target.Value = "" Or Target.Value = "û" Then
Target.Value = "ü"
Else
Target.Value = "û"
End If
End If
End Sub
@@trumpexcel How to make all, or specific cells to be able to do this. I can't manage the targer area...?
@@trumpexcel
LO LO LO LO
P
PP
..
How to import data multiple excel files data containing empty cell of every below cell in to power query plus sir
👍👍👍👍👍🏆
Epic
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Checking whether target cell is in third column
If Target.Column = 4 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "ü"
Else
Target = ""
End If
End If
If Target.Column = 5 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "ü"
Else
Target = ""
End If
End If
If Target.Column = 6 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "ü"
Else
Target = ""
End If
End If
If Target.Column = 7 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "ü"
Else
Target = ""
End If
End If
If Target.Column = 8 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "ü"
Else
Target = ""
End If
End If
If Target.Column = 9 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "ü"
Else
Target = ""
End If
End If
If Target.Column = 10 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "ü"
Else
Target = ""
End If
End If
If Target.Column = 11 Then
'Prevent cell going into Edit Mode
Cancel = True
'Changing font type of the cell
Target.Font.Name = "Wingdings"
'Checking if target cell value is blank then inserting tick
If Target = "" Then
Target = "ü"
Else
Target = ""
End If
End If
End Sub
I have modified the code to work on columns from D (4) to K (11), if you need something like this, i hope this will solve your problem.
✅✅✅✅✅✅✅✅✅✅✅✅
Why is this video 17 mins. I just need to know how to put a check mark in. Should take 2 mins. Max.
✓ ✓ ✓ ✓ ✓ ✓
Hlo
Russ
Hi Suet, I also think this is a great video. Is there a way to write a VBA Code that would enable you to do the double click check marks in two separate column cells like column A cells and column B cells on the same spreadsheet?
1
check my answer pls!