LLENAR columnas de números consecutivos con condición
Necesito una macro con los sig. Sera que me puedan ayudar gracias...
Tengo en la celda C1 un numero 5 (INICIO) y en la columna C1 10 (FINAL)
Entonces quisiera que se active la macro al "change" al "select change" y con "boton"
Esto para ver cual queda mejor
El punto es este:
Al ejecutar la macro
En la columna A a partir de la fila 10 coloque algo como esto:
5 (inicio)
6
7
8
9
10 (final)
Y así con cualquier numero excepto CEROS 0000
1 Respuesta
Respuesta de Dante Amor
1
Pon la siguiente macro en los eventos de tu hoja. Captura el valor inicio en la celda C1 y el valor final en la celda D1
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
Set ini = Range("C1")
Set fin = Range("D1")
Set r = Union(ini, fin)
If Not Intersect(Target, r) Is Nothing Then
If Target.Count > 1 Then Exit Sub
If Not IsNumeric(ini.Value) Then Exit Sub
If Not IsNumeric(fin.Value) Then Exit Sub
If ini.Value = "" Or fin.Value = "" Or _
ini.Value = 0 Or fin.Value = 0 Then Exit Sub
If fin.Value < ini.Value Then
MsgBox "El número final es menor al inicio"
Exit Sub
End If
'
j = 10
u = Range("A" & Rows.Count).End(xlUp).Row
If u < 10 Then u = 10
Range("A" & j & ":A" & u).ClearContents
For i = ini.Value To fin.Value
Cells(j, "A") = i
j = j + 1
Next
End If
End SubLos resultados quedarán en la columna A a partir de la fila 10.
Si quieres la macro para un botón, crea la nueva pregunta y me avisas.
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
