Generar hojas de calculo automáticamente

Tengo una platilla de escandallos donde introduzco los costes por platos, el problema es que necesito que se genere una nueva hoja por cada plato y la nombre según el plato que lo tengo en la celda B3

1 respuesta

Respuesta
1
'Updateby Extendoffice 20161215
    Dim xRg As Excel.Range
    Dim wSh As Excel.Worksheet
    Dim wBk As Excel.Workbook
    Set wSh = ActiveSheet
    Set wBk = ActiveWorkbook
    Application.ScreenUpdating = False
    For Each xRg In wSh.Range("A1:A7")
        With wBk
            .Sheets.Add after:=.Sheets(.Sheets.Count)
            On Error Resume Next
            ActiveSheet.Name = xRg.Value
            If Err.Number = 1004 Then
              Debug.Print xRg.Value & " already used as a sheet name"
            End If
            On Error GoTo 0
        End With
    Next xRg
    Application.ScreenUpdating = True

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas