VBA to show value of another cell using a checkbox

[bademployee]

Hi all,

I'm chasing VBA to perform the following:

I have a check box in Sheet1 A1, when checked I need the value of Sheet2 D4 shown in Sheet1 A2.

Thanks in advance

Mark

 

[Misca]

Try

Sub CheckBoxChecked()

With Sheet1
    If .CheckBoxes(1).Value = 1 Then
    'Check box is checked:
        .Cells(2, 1).Value = Sheet2.Range("D4").Value
    Else
    'CheckBox is not checked:
        .Cells(2, 1).ClearContents
    End If
End With


End Sub

 

[bademployee]

Try

Sub CheckBoxChecked()

With Sheet1
    If .CheckBoxes(1).Value = 1 Then
    'Check box is checked:
        .Cells(2, 1).Value = Sheet2.Range("D4").Value
    Else
    'CheckBox is not checked:
        .Cells(2, 1).ClearContents
    End If
End With


End Sub

I must be doing something wrong...

Sheet 1 is actually labelled "Blends"

Sheet2 is labelled "Price Input"

The check box is ActiveX (don't know if that makes a difference).

Checkbox is located in "Blends" T21

I need the value in "Price Input" AD2 to show in "Blends" S21.

Thanks for your help.

Mark

 

[Fluff]

Try

Private Sub CheckBox1_Click()
   If CheckBox1 = True Then
      Range("S21").Value = Sheets("Price Input").Range("AD2").Value
   Else
      Range("S21").ClearContents
   End If
End Sub

This needs to go in the "Blends" sheet code module, changing the checkbox name if needed

 

[bademployee]

Try

Private Sub CheckBox1_Click()
   If CheckBox1 = True Then
      Range("S21").Value = Sheets("Price Input").Range("AD2").Value
   Else
      Range("S21").ClearContents
   End If
End Sub

This needs to go in the "Blends" sheet code module, changing the checkbox name if needed

Perfect!

Thanks for your help

 

[Fluff]

Glad we could help & thanks for the feedback