Excel VBA copy and paste a specific cell to another Sheet

Question

I want to see if a specific cell is the value I expect, if so, I want to paste it to another sheet. But my code went wrong somehow. Here is my code:

Private Sub CommandButton1_Click()

    Sheets("Sheet3").Select
    If Cells(2,6).Value == 25 Then
        Cells(2, 6).Select
        Selection.Copy

        Sheets("Sheet1").Select
        Cells(4, 1).Paste
    End If

End Sub

JohnyL · Accepted Answer · 2018-05-06 12:36:20Z

2

Private Sub CommandButton1_Click()
    With Sheets("Sheet3")
        If .Cells(2, 6).Value = 25 Then
            .Cells(2, 6).Copy Sheets("Sheet1").Cells(4, 1)
        End If
    End With
End Sub

answered May 6, 2018 at 12:36

JohnyL

7,1845 gold badges27 silver badges48 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

user4039065 · Accepted Answer · 2018-05-06 12:44:53Z

1

VBA uses a single = sign for comparison.

Private Sub CommandButton1_Click()
    If workSheets("Sheet3").Cells(2,6).Value = 25 Then
        workSheets("Sheet1").Cells(4, 1) = 25
    End If
End Sub

answered May 6, 2018 at 12:44

user4039065

Comments

REA · Accepted Answer · 2018-05-06 14:09:33Z

0

You can write an interactive window to input a value that may change.

Private Sub CommandButton1_Click()

    Dim exp_val As Integer
    exp_val = InputBox("What's the value you expect?")
    If Worksheets("Sheet3").Cells(2, 6).Value = exp_val Then
        Worksheets("Sheet2").Cells(4, 1).Value = exp_val
    End If

End Sub

answered May 6, 2018 at 14:09

REA

1891 gold badge1 silver badge14 bronze badges

Collectives™ on Stack Overflow

Excel VBA copy and paste a specific cell to another Sheet

3 Answers 3

Comments

Comments

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

3 Answers 3

Comments

Comments

Comments

Your Answer

Sign up or log in

Post as a guest

Related