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
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!
found the video in your website, came to YT to like it! Thanks so much!
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!
Thank you for this video. Your method is very simple and elegant .
Thank you for your help.
Great Video!
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!
Thanks sir
This is amazing!!! Thank you so much 🔥
Hi Great stuff, can this also be done in word, if we have table
The VBA was so easy and helpful and exactly what I needed! Thank you :)
Awesome ways
Very informative. Thank you!
Please make a detail video on interpolation & double interpolation in excel.
Nice
thanks sir
Thank you so much Dear :)
Learnt a lot in this video :)
Is there a way to do the vba in different columns on the same spreadsheet?
check my answer pls!
many Thanks ♥
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
great
It is just a step forward. Never backward.
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
Insert a Check Mark (Tick ✓)
👍👍👍👍👍🏆
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.
✅✅✅✅✅✅✅✅✅✅✅✅
✓ ✓ ✓ ✓ ✓ ✓
Russ
Hlo
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!