Creating macro to insert Excel sheets

[KABIRA16]

Even after a lot of research on the net, I can not find a solution to my problem. Here's what I do:

- I have 1 excel file in which I have 2 sheets
- on sheet 1, I have 3 columns: column name, a column surname and a column vehicle
- in sheet 2, a number of boxes completed for each driver including the name, vehicle

My idea is to create one sheet per driver, but I do not know how many sheets I will have to create because I added it gradually.

I try to create a macro (I do not know much about macro!) to automate the following actions:
-when I add a driver, the macro creates a new sheet (if possible with only the name of the driver).
-This new sheet is in fact a copy of sheet 2 (information sheet)
-To finish (yes it's not bad I know) on the new sheet that has been created, boxes full name and vehicle was already completed!

I know it's not easy when you know nothing in macro, but I suppose that's possible with excel.

[Zecho]

Here's what I suggest:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRange As Range
If Target.Column <> 4 Then Exit Sub

  If Target.Value <> "ok" Then Exit Sub
 
  Set MyRange = Range(Target.Offset(0, -3), Target.Offset(0, -1))
   
    TheName = Target.Offset(0, -3).Value
           Sheets(2).Copy after:=Sheets(Sheets.Count)
         
ActiveSheet.Range("A2" ).Select
   ActiveSheet.Range(ActiveCell, ActiveCell.Offset(0, 2)).Value = MyRange .Value

On  Error GoTo End

   ActiveSheet.Name = TheName 
End: 
   End Sub

Above all:
select the macro by pressing Ctrl + C. This opens a copy of your workbook, do Alt + F11, click VBA project on sheet1. In the sheet that opens, do Ctrl + V. SAVE gives a name to your first 2 sheets in the macro. SAVE AGAIN.

Here we consider that the 3 cell are A, B, C, and when they are fulfilled, it is "ok" D-collar following.

[CodGuru]

You can easily make a macro to add a new worksheet in your file. Simply do the following:

Public Sub AddWorksheet()
   ActiveWorkbook.Worksheets.Add(After:=Worksheets(Worksheets.Count))
End Sub

You can even add a worksheet based on the template that you have as below:

Public Sub AddWorksheet()
   ActiveWorkbook.Sheets.Add(After:=Worksheets(Worksheets.Count)), Type:="worksheet"
End Sub

[Modifier]

Public Sub AddSheet()
    LastRow = Range("A65000").End(xlUp).Row
    For i = 1 To LastRow 
        myLastWorkSheet = Sheets.Count
        Sheets(myLastWorkSheet).Select
        Sheets(myLastWorkSheet).Copy After:=Sheets(myLastWorkSheet)
        Sheets(myLastWorkSheet + 1).Select = ""
    Next i
End Sub