Numerador automático Excel
Publicado por ivan (1 intervención) el 29/06/2019 03:02:18
Buenas noches, tengo la siguiente macros en Excel . lo que quisiera es en una misma hoja dividirla en 2 y que el numero aumomatico tambien se aumente en la segunda parte de la hoja. el numerador se aumenta pero en la siguiente hoja y no en la misma.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Imprimir()
Dim Desde, HastaDim Activa As Range
Dim Activa1 As Range
Set Activa = Range("C34")
Set Activa1 = Range("J34")
Desde = InputBox("Ingrese el numero inicial", "Desde")
Hasta = InputBox("Ingrese el numero final", "Hasta")
If Desde > Hasta ThenMsgBox "Eror, el Nro inicial es mayor que el numero final"Exit Sub
End If
On Error GoTo Error
For i = Desde To HastaActiva.Value = i
ActiveSheet.PrintOut copies:=1
Next i
Exit Sub
Error:MsgBox Error.DescripcionEnd Sub
Valora esta pregunta
0