Excel Macro Code

[Dharmesh Thakkar]

Dear Sir,
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
My excel sheet data range is A4 to Z200(or AZ500). I would like to code for below, please help me
<o> </o>
if active cell is on say cell no H15, value of A15(same row) and C15(same row) appear on H2(same column) and H3(same column).
<o> </o>
if active cell is on say cell no K90, value of A90(same row) and C90(same row) appear on <?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-comffice:smarttags" /><st1lace w:st="on">K2</st1lace>(same column) and K3(same column).
<o> </o>
Many thanks for help
<o> </o>

 

[Sahak]

Hi Dharmesh Thakkar,

Maybe this ....

Sub Macro_ActiveCell()
    Dim ActCol As Single
    Dim ActRow As Single
    ActCol = ActiveCell.Column
    ActRow = ActiveCell.Row
    Worksheets("Sheet1").Cells(2, ActCol).Value = Worksheets("Sheet1").Cells(ActRow, 1).Value & Worksheets("Sheet1").Cells(ActRow, 3).Value
    Worksheets("Sheet1").Cells(3, ActCol).Value = Worksheets("Sheet1").Cells(ActRow, 1).Value & Worksheets("Sheet1").Cells(ActRow, 3).Value
End Sub

 

[Dharmesh Thakkar]

Dear Sir,

code which you provided below is not working

 

[Dharmesh Thakkar]

Re: Excel Macro Code-Revise

Dear Sir,

code which you provided below is not working

Please ignore above and read as below

Dear Sir,

My excel sheet data range is A4 to Z200(or AZ500). I would like to code for below, please help me

if active cell is on say cell no H15, value of A15(same row) and C15(same row) appear on A2 and A3 respectively

if active cell is on say cell no K90, value of A90(same row) and C90(same row) appear on A2 and A3 respectively

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
i.e. value of column A & C of active row, should appear on A2 & A3 respectively<o></o>
<o> </o>

Many thanks for help<o></o>
<o> </o>

 

[Sahak]

Dear Dharmesh Thakkar,

First code was Ok because you would like value appear on same column of active cell:

appear on H2(same column) and H3(same column)

Now you change to:

appear on A2 and A3 respectively

Anyway, if I understand you correctly this should work
1. let say value of A15 is “Abu”, value of cell C15 is “Dhabi” & active cell is H15 (selected cell) then after running macro below the value on A2 & A3 will be “AbuDhabi”
2. let say value of A90 is “Good”, value of cell C90 is “Morning” & active cell is K90 (selected cell) then after running macro below the value on A2 & A3 will be “GoodMorning”

Sub Macro_ActiveCell()
    Dim ActCol As Single
    Dim ActRow As Single
    ActCol = ActiveCell.Column
    ActRow = ActiveCell.Row
    Range("A2") = Worksheets("Sheet1").Cells(ActRow, 1).Value & Worksheets("Sheet1").Cells(ActRow, 3).Value
    Range("A3") = Worksheets("Sheet1").Cells(ActRow, 1).Value & Worksheets("Sheet1").Cells(ActRow, 3).Value
End Sub

Please let me know if any problems.