hi
I face dilemma and this case is complicated . I searched in the internet to get the clue to start adding some lines code to achieve that but I do not any basic to do that . so after add a new sheet and copy specific cells also I need copy specific cells differntly way . when I add a new sheet then should copy some values for each row to a new sheet .
I put the result in sheet 1,2 after add a new sheet .
when I add anew sheet "1 " it should show the values in C2,N2,P2 how get theses values ? . it's from sheet main . it begins from row 5 then A5+B5 in sheet main = C2 in a new sheet "1" and C5 in sheet MAIN = N2 in sheet "1" and E5 in sheet MAIN = C2 in sheet "1" and when I add a new sheet "2" it begins from row6 . so it should bring the values from next row when add a new sheet.
sorry about much explaining but I have to do that to understand my requirments .
Private Sub Workbook_NewSheet(ByVal Sh As Object)
With Sh
.Move after:=Sheets(Sheets.Count)
.Name = Numeric & Sheets.Count - 1
.Range("A1:P12").Borders.Weight = xlMedium
.Range("A1:P12").HorizontalAlignment = xlCenter
With .Cells(1).Resize(1, 16)
.Value = Array("ITEM NUMBER", "ITEM DESC", "QUANTITY", "UNIT PRICE", "TOTAL", "WHSE", "ACOUNT CODE", "BUSINESS UNIT", "DEPARTMENT", "WORK CENTER", "FLOCK", "tt", "weight ", " 0.9", "ll", " 1.34")
.Interior.ColorIndex = 53
.Font.Bold = True
.Font.Color = vbWhite
'.EntireColumn.AutoFit
Dim sh1 As Worksheet, Nwr As Long
Set sh1 = Sheets("main")
Nwr = .Range("a" & Rows.Count).End(xlUp).Row + 1
Sh.Range("a" & Nwr) = sh1.Range("e3").Value
Sh.Range("d" & Nwr) = sh1.Range("e2").Value
Sh.Range("f" & Nwr) = "DAT010"
Sh.Range("g" & Nwr) = "1141000022"
Sh.Range("h" & Nwr) = "JP-PROD."
Sh.Range("i" & Nwr) = "JP-WIPDP"
Sh.Range("j" & Nwr) = "JP-WIPWC"
Sh.Range("k" & Nwr) = "Flock_4"
.Range("A1:o" & Nwr).EntireColumn.AutoFit
End With
End With
End Sub