ilyaskazi
06-17-2005, 11:18 PM
below is the code for which i am using it by moving the cursor and writing the data on selected cell. I need to write dynamically without moving
For Each na In cSheets
Sheets("RESULT").Select
ActiveCell.value = na.Name
ActiveCell.Offset(0, 1).Select
ActiveCell.value = ce.Address(False, False)
ActiveCell.Offset(0, 1).Select
ActiveCell.value = ce.Text
ActiveCell.Offset(0, 1).Select
ActiveCell.value = "" + Sheets(na & 2).Range(ce.Address).Text
ActiveCell.Offset(1, -3).Select
Next na
For Each na In cSheets
Sheets("RESULT").Select
ActiveCell.value = na.Name
ActiveCell.Offset(0, 1).Select
ActiveCell.value = ce.Address(False, False)
ActiveCell.Offset(0, 1).Select
ActiveCell.value = ce.Text
ActiveCell.Offset(0, 1).Select
ActiveCell.value = "" + Sheets(na & 2).Range(ce.Address).Text
ActiveCell.Offset(1, -3).Select
Next na