ganu learner
New Member
- Joined
- Dec 31, 2019
- Messages
- 47
- Office Version
- 2013
- Platform
- Windows
res sir I record a micro for 3 new sheets create from main sheet is below.
now I want new sheets create dynamically acording to main sheet. in which row 1:1 is header so in every sheet first row is common after that new sheet for every row according to main sheet and also with name according column A .
recorded micro is below here thanks
Sub Macro1()
Range("A1").Select
Sheets.Add After:=ActiveSheet
Sheets("NiftyBank MW").Select
Rows("1:1").Select
Selection.Copy
Sheets("Sheet1").Select
Rows("1:1").Select
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Sheets("NiftyBank MW").Name = "NiftyBank MW"
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Sheet1"
Rows("2:2").Select
ActiveSheet.Paste
Sheets.Add After:=ActiveSheet
Sheets("NiftyBank MW").Select
Sheets("NiftyBank MW").Name = "NiftyBank MW"
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Rows("1:1").Select
ActiveSheet.Paste
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Rows("2:2").Select
ActiveSheet.Paste
Sheets.Add After:=ActiveSheet
Sheets("Sheet3").Name = "Sheet3"
Sheets("NiftyBank MW").Select
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Rows("1:1").Select
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Rows("2:2").Select
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Range("A1").Select
End Sub
now I want new sheets create dynamically acording to main sheet. in which row 1:1 is header so in every sheet first row is common after that new sheet for every row according to main sheet and also with name according column A .
recorded micro is below here thanks
Sub Macro1()
Range("A1").Select
Sheets.Add After:=ActiveSheet
Sheets("NiftyBank MW").Select
Rows("1:1").Select
Selection.Copy
Sheets("Sheet1").Select
Rows("1:1").Select
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Sheets("NiftyBank MW").Name = "NiftyBank MW"
Rows("2:2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet1").Select
Sheets("Sheet1").Name = "Sheet1"
Rows("2:2").Select
ActiveSheet.Paste
Sheets.Add After:=ActiveSheet
Sheets("NiftyBank MW").Select
Sheets("NiftyBank MW").Name = "NiftyBank MW"
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Rows("1:1").Select
ActiveSheet.Paste
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Rows("3:3").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet2").Select
Rows("2:2").Select
ActiveSheet.Paste
Sheets.Add After:=ActiveSheet
Sheets("Sheet3").Name = "Sheet3"
Sheets("NiftyBank MW").Select
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Rows("1:1").Select
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Rows("4:4").Select
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Sheets("Sheet3").Select
Rows("2:2").Select
ActiveSheet.Paste
Sheets("NiftyBank MW").Select
Range("A1").Select
End Sub