copy active cell to same cell in sheet 2.

[stavrosiona]

I want to copy active cell if sheet 1 to same cell in sheet 2 by using vba button. Active cell is not the same each time.
I use: Range (sheet1!a2).value = range(sheet2!a2) but this does 9nly for the cell a2 and not the active cell each time.

 

[stavrosiona]

Sorry. Now i saw his answer. Wait to test.
Basically what i want is not to copy the same cell but basically to understand:
Wgen i click i.e cell C1 and press the vba button then i want to add+1 in cell C1 in sheet2. So if cell C1 in sheet 2 value is 5. When i press button when active cell c1 sheet 1 then to change the value of sheet2 cell c1 to be 6

 

[My Aswer Is This]

I do the same some times William

Sorry i failed to understand what stav wants. DILIPandey's solution is correct

 

[williamgowtama]

if you want the VBA code for the button1_click

Sub Button1_Click()
Dim a1 As String
a1 = Selection.Address(ReferenceStyle:=xlA1, RowAbsolute:=False, ColumnAbsolute:=False)
Sheets("Sheet1").Range(a1) = Sheets("Sheet2").Range(a1)
End Sub

 

[stavrosiona]

• DILIPandey that works! Thanks,I want to ask if it is possible now instead of copy the cell value of sheet1 to sheet 2 cell value to add+1 in the value that sheet2 already have. So if i am in cell c1 in sheet 1, to use the vba to add+1 in the value of cell C1 in sheet 2. So if sheet 2 value is 5, when i press the vba button in cell c1 in sheet1 to +1 cell c1 in sheet 2. From 5 to be 6.Thanks

 

[williamgowtama]

Hello, stavrosiona
in my code, you can

[COLOR=#333333]Sheets("Sheet1").Range(a1) = Cint(Sheets("Sheet2").Range(a1).value) +1[/COLOR]

 

[My Aswer Is This]

Try this:

Range("Sheet2!" & ActiveCell.Address).Value = ActiveCell.Value + 1

This is DILIPandey code but adds +1

 

[stavrosiona]

Hi My Aswer Is This,
The code Range("Sheet2!" & ActiveCell.Address).Value = ActiveCell.Value + 1 is not working. the first time i press the button add 1 but then not.
The answer of williamgowtama #13 and #15 works.

 

[williamgowtama]

Try this:

Range("Sheet2!" & ActiveCell.Address).Value = ActiveCell.Value + 1

This is DILIPandey code but adds +1

Hello My Answer Is This, i think for the ActiveCell.Value needs to be converted to Integer first

Int([COLOR=#333333]ActiveCell.Value)+1[/COLOR]

 

[My Aswer Is This]

Great. I'm glad you have things working for you.

 

[stavrosiona]

May i ask you a question guys?
Instead of preset to add +1 if i want when i press the button to ask me to: "Enter value you want to add" and then add a value in a box and add it?