CREACIÓN DE PESTAÑAS Y RELLENO DE SERIE
Publicado por Keitlyn (1 intervención) el 31/03/2020 21:22:55
Hola,
Estoy tratando de realizar una macro que me ayude a crear pestañas personalizadas con nombre y adicional a esto me genere en cada una de las pestaña un relleno de serie.
Mantengo la formula para crear las pestañas con los nombres según la base que mantengo, pero no se como agregarle el código de relleno de serie para que sea de acuerdo con la base.
Adjunto macro para creación de pestañas:
Estoy tratando de realizar una macro que me ayude a crear pestañas personalizadas con nombre y adicional a esto me genere en cada una de las pestaña un relleno de serie.
Mantengo la formula para crear las pestañas con los nombres según la base que mantengo, pero no se como agregarle el código de relleno de serie para que sea de acuerdo con la base.
Adjunto macro para creación de pestañas:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim Base As Range
Dim x As Long
On Error GoTo Cancelar
Set Base = Application.InputBox(prompt:="Seleccionar rango de la lista", _
Title:="Base de datos", Type:=8)
Application.ScreenUpdating = False
For x = Base.Count To 1 Step -1
Sheets.Add.Name = Base(x)
Next x
Sheets(1).Select
Application.ScreenUpdating = True
Cancelar:End Sub
- BASE.rar(21,8 KB)
Valora esta pregunta
0