VBA logical test on active cell, copy paste to other sheet if true

[patricknord]

Hello--I am new to this board and a bit new to Excel VBA.

I am trying to write a script that will do the following--when run, test if the active cell in the current sheet (sheet1) is equal to the active cell in a second sheet (I have named it creatively--sheet2). If yes, then I want it to return a value of 2 in the cell one to the right of the active cell in sheet2; if they are not equal (else, right?), I want it to move down one cell, paste the active cell from sheet1 and enter a value of one in the cell one to the right.

Any help?

Thank you!!!

p

 

[sagyer]

Hello--I am new to this board and a bit new to Excel VBA.

I am trying to write a script that will do the following--when run, test if the active cell in the current sheet (sheet1) is equal to the active cell in a second sheet (I have named it creatively--sheet2). If yes, then I want it to return a value of 2 in the cell one to the right of the active cell in sheet2; if they are not equal (else, right?), I want it to move down one cell, paste the active cell from sheet1 and enter a value of one in the cell one to the right.

Any help?

Thank you!!!

p

Hi,

Is this what you were looking for :

Sub logicalTest()


    Dim currCell, pasteCell As Range
    
    Set currCell = ActiveCell
    
    MsgBox currCell.Address
    
    If currCell.Value = Sheet2.Cells(currCell.Row, currCell.Column) Then
        Sheet2.Cells(currCell.Row, currCell.Column + 1).Value = "2"
        
    Else
        currCell.Copy
        Sheet2.Activate
        
        Sheet2.Cells(currCell.Row + 1, currCell.Column).PasteSpecial (xlPasteAll)
        Sheet2.Cells(currCell.Row, currCell.Column + 1).Value = "1"
        
    End If
    
End Sub

Regards,

Sagar Yerunkar

 

[patricknord]

Sagar--

You are awesome, thank you! I made a couple adjustments--I didn't need the message box and it was dropping the txt value down a cell, but this got me there. Thank you thank you!!

p