Crear nueva hoja si esta llego a 2500 líneas
Publicado por JoaoM (26 intervenciones) el 16/09/2017 15:37:17
Tengo una macro con la cual Válido un Nuevo Registro
Abro el formulario estoy insertando en hoja Productos, CAT, John Deere, Silverado o otra. La hoja en uso llego a las 2500 lineas llenas.
Que al llegar a la 2500, mande aviso y auto-crie nueva hoja; Productos, CAT, John Deere, Silverado o otra, (según la hoja que este en uso actual, con el mismo nombre pero con número correlativo, ej. Productos-1, CAT-1, John Deere-1, Silverado-1, si se trata de la 2ª hoja del mismo articulo, ya si se trata de la 3ª hoja seria Productos-2, CAT-2, John Deere-2, Silverado-2 y así sucesivamente.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub cbtNueClien_Click()
'Entrada_Salida = Clear
On Error Resume Next
Dim fila As Integer
Set ws = ActiveSheet
'xxxxxxxxxxxx
'Verifica si ya existe el nombre en data
Set busco = ws.Range("B:B").Find(txtProd.Text, LookIn:=xlValues, lookat:=xlWhole)
If Not busco Is Nothing Then 'significa que lo encontró
MsgBox ("Este nombre ya está registrado. Verifica y corrige...."), vbInformation, "Existe"
Exit Sub 'Si existe sale sin guardar
End If
'xxxxxxxxx
'Inserta datos de nuevo cliente
With ws
fila = .Range("A2:A2500").Find(txtCod, lookat:=xlWhole).Row
If Err.Number = 91 Then
fila = .Range("b" & .Rows.Count).End(xlUp)(2).Row
Call ingresar_datos(fila) 'Macro que inserta el registro
Exit Sub
End If
Call ingresar_datos(fila) 'Macro que inserta el registro
End With
End Sub
Abro el formulario estoy insertando en hoja Productos, CAT, John Deere, Silverado o otra. La hoja en uso llego a las 2500 lineas llenas.
Que al llegar a la 2500, mande aviso y auto-crie nueva hoja; Productos, CAT, John Deere, Silverado o otra, (según la hoja que este en uso actual, con el mismo nombre pero con número correlativo, ej. Productos-1, CAT-1, John Deere-1, Silverado-1, si se trata de la 2ª hoja del mismo articulo, ya si se trata de la 3ª hoja seria Productos-2, CAT-2, John Deere-2, Silverado-2 y así sucesivamente.
Valora esta pregunta
0