pavanranjan
Board Regular
- Joined
- Sep 20, 2008
- Messages
- 50
AVAILABLE CODE AS FOLLOWS
Sub pavanranjan()
Dim i As Long
Dim lr As Long
Dim x As Workbook
Dim r As Variant
Set x = ThisWorkbook
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = lr To 2 Step -1
r = x.Sheets("Sheet1").Range("A" & i).Value
Rows("1:1").Copy
With Workbooks.Add
.ActiveSheet.Paste
.SaveAs Filename:="D:\Common\data\IBMmain" & r & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
x.Sheets("Sheet1").Range("A" & i).EntireRow.Copy
.Sheets("Sheet1").Range("A" & Rows.Count).End(3)(2).Select
ActiveSheet.Paste
End With
Next i
End Sub
Sub pavanranjan()
Dim i As Long
Dim lr As Long
Dim x As Workbook
Dim r As Variant
Set x = ThisWorkbook
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = lr To 2 Step -1
r = x.Sheets("Sheet1").Range("A" & i).Value
Rows("1:1").Copy
With Workbooks.Add
.ActiveSheet.Paste
.SaveAs Filename:="D:\Common\data\IBMmain" & r & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
x.Sheets("Sheet1").Range("A" & i).EntireRow.Copy
.Sheets("Sheet1").Range("A" & Rows.Count).End(3)(2).Select
ActiveSheet.Paste
End With
Next i
End Sub