change by value

[rspalding]

I need some help.

This would be true for each cell in A1:A10

How do i get this in a VBA code?

if(a1:a10=<>,c1:c10="false","true")

Thanks for the help!

 

[My Aswer Is This]

I think it would help if you were to tell us what your trying to accomplish.

If A1 does not equal C1 then do what?

 

[My Aswer Is This]

Try this:

Sub Does_Not_Equal()
'Modified 9/22/2018 9:41 PM  EDT
Application.ScreenUpdating = False
Dim i As Long

For i = 1 To 10
    If Cells(i, 1).Value <> Cells(i, 3) Then
        Cells(i, 4).Value = "Yes"
    Else
        Cells(i, 4).Value = "No"
    End If
Next
Application.ScreenUpdating = True
End Sub

 

[rspalding]

Sorry if I didn't explain properly. If A1 is blank then C1=false.

 

[rspalding]

To further explain. C1 is linked to a check box that I want to check automatically when I put data in A1. So once data is entered in AI, I need C1 to say TRUE to make the check box check. The same would then be true for C2 and A2 and on.

 

[My Aswer Is This]

Try this:
Will work for A1 to A10
If any value is entered in Column A Rows 1 to 10 column C will have "True" entered.
If Value in Colum A is changed to nothing Column C will no longer have "True"
This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified  9/22/2018  11:49:57 PM  EDT
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
If Target.Cells.CountLarge > 1 Then Exit Sub
    If Target.Value <> "" Then
        Target.Offset(, 2).Value = "True"
    Else
        Target.Offset(, 2).Value = ""
    End If
    End If
End Sub

 

[rspalding]

When entering this, I get ambiguous name. Not sure how to change the name correctly.

Private Sub Worksheet_Change(ByVal Target As Range)
'Modified 9/22/2018 11:49:57 PM EDT
If Not Intersect(Target, Range("Q58:Q172")) Is Nothing Then
If Target.Cells.CountLarge > 1 Then Exit Sub
If Target.Value <> "" Then
Target.Offset(, 22).Value = "True"
Else
Target.Offset(, 22).Value = ""
End If
End If
End Sub

 

[My Aswer Is This]

That's because you have two change event scripts in the same sheet.
So now you have the one I provided and also another one you made for a different range and maybe more.

So now you have a range of

Q58:Q172
and you have check boxes for all these cells in addition to the original range of A1:A10
​

Please explain more about what your ultimate goal is.

Having nearly 200 check boxes on your sheets does not seem like a good plan to me.
We have a lot of different ways using Vba to do things. If I knew what your ultimate goal here is I may be able to provide another option.

Show me all code you have in this sheet. We may need to combine some of it. So it will work together properly.

Having True show up in a cell to then have a checkbox activate works but I believe there are better ways

 

[My Aswer Is This]

And you never said if the answer I provided in Post 6 ever worked.
It's customary to say if a script provided worked before asking for help on another question.

And in your previous post your wanting to insert values in column Q and putting True in a column 22 columns over from column Q is that what your wanting.

And so we don't keep going on and on. Will there be more to this?

Like column Z and 14 rows over from that?

We cannot just keep adding more and more sheet change event scripts. We have to work them all into one
with different ranges