Copy text to cell from another sheet

Hi EveryOne,

I need a macro coding, Can any body help me for the below requirement.

If i mention AAAA in Sheet2 Cell A2, same should be pick in Sheet1 Cell A2

Regards,
Anantha Krishna

I don't understand the problem

Hi Sam,Thanks for your response.

i need as per below example
in Sheet2
ColumnA, ColumnB, ColumnC
France, Jan, Monday
USA. Feb. Tuesday
UK, Mar, Wednesday

in Sheet1
ColumnD, ColumnE
France, Jan Monday
USA, Feb Tuesday
UK, Mar Wednesday

Regards,
Anantha Krishna

Assumes that you have headers in both sheets.

Code:

---

Sub Maybe()
Dim lr As Long, i As Long, a
lr = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
a = Sheets("Sheet2").Range("A2:C" & lr).Value
    For i = LBound(a) To UBound(a)
        With Sheets("Sheet1").Cells(i + 1, 4)
            .Value = a(i, 1)
            .Offset(, 1).Value = a(i, 2) & " " & a(i, 3)
        End With
    Next i
End Sub

---

Hi Jolivanes,

Thanks for your reply, it is exactly what i need, but is it possible to appear data in Sheet1 without click on run macro.

Regards,
Anantha Krishna

Why don't you use formula?

D1:=IF(Sheet2!A1="","",Sheet2!A1)
E1:=IF(Sheet2!A1="","",Sheet2!B1& " " & Sheet2!C1)