hi group of excel's members
i hope your everything be EXCELlent.
i have two sheets.that sheets name are Sheet1 and Sheet2.
i have texts in column B of sheet1 and i wanna write same texts in
sheet2 .
i was write bellow code but it is not write that texts in sheet2.
Sub WriteShe2()
Sheets("sheet1").Select
Range("B3").Select
Do While Not IsEmpty(ActiveCell)
With ActiveCell
datett = .Value
ActiveCell.Offset(1, 0).Select
Sheets("sheet2").Select
.Value = datett
ActiveCell.Offset(1, 0).Select
End With
Sheets("sheet1").Select
Loop
end sub
how can i do it?
--~--~---------~--~----~------------~-------~--~----~
-------------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
-------------------------------------------------------------------------------------
-~----------~----~----~----~------~----~------~--~---
