Rellenar el numero de celdas que indique otra Celda
Cerrado
qajaqsil
Mensajes enviados
2
Fecha de inscripción
jueves, 10 de enero de 2019
Estatus
Miembro
Última intervención
viernes, 11 de enero de 2019
-
10 ene 2019 a las 23:19
qajaqsil Mensajes enviados 2 Fecha de inscripción jueves, 10 de enero de 2019 Estatus Miembro Última intervención viernes, 11 de enero de 2019 - 11 ene 2019 a las 19:52
qajaqsil Mensajes enviados 2 Fecha de inscripción jueves, 10 de enero de 2019 Estatus Miembro Última intervención viernes, 11 de enero de 2019 - 11 ene 2019 a las 19:52
Consulta también:
- Rellenar el numero de celdas que indique otra Celda
- Fórmula para copiar datos de una celda a otra en excel automáticamente - Guide
- Circulo de numero - Guide
- Como mostrar celdas ocultas en excel - Guide
- Como dar enter en una celda de excel - Guide
- Como poner color en una celda de excel con fórmula si - Guide
2 respuestas
Javier_CCM
Mensajes enviados
44
Fecha de inscripción
viernes, 26 de octubre de 2018
Estatus
Miembro
Última intervención
lunes, 18 de febrero de 2019
13
11 ene 2019 a las 18:19
11 ene 2019 a las 18:19
Hola, qajaqsil.
En la celda A1 pondrás un numero que variará.
En la celda A5 pon un 1
En la celda A6 pon la formula: =SI(A5<(A$1);A5+1;"FIN")
Ahora arrastra la formula de A5 hasta donde te interese, que sea superior al mayor número que puedas poner en A1.
Cuando cambies el valor de A1, te pondrá el contador de celdas necesario y en el resto te pondrá la palabra FIN.
Espero que te ayude.
Saludos.
En la celda A1 pondrás un numero que variará.
En la celda A5 pon un 1
En la celda A6 pon la formula: =SI(A5<(A$1);A5+1;"FIN")
Ahora arrastra la formula de A5 hasta donde te interese, que sea superior al mayor número que puedas poner en A1.
Cuando cambies el valor de A1, te pondrá el contador de celdas necesario y en el resto te pondrá la palabra FIN.
Espero que te ayude.
Saludos.
qajaqsil
Mensajes enviados
2
Fecha de inscripción
jueves, 10 de enero de 2019
Estatus
Miembro
Última intervención
viernes, 11 de enero de 2019
11 ene 2019 a las 19:52
11 ene 2019 a las 19:52
La respuesta de Javier_CCM es la que esperaba, muchas gracias
Habia hecho un pequeño codigo para hacerlo, pero es mas facil recordar tu formula
Private Sub Worksheet_Change(ByVal Target As Range)
'--
If Not Target.Address = "$A$1" Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
'--
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("A5:A1048576").ClearContents
'--
fila = 5
i = 1
For x = 1 To (Target)
columna = 1
Cells(fila + i, columna) = i
i = i + 1
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub
Habia hecho un pequeño codigo para hacerlo, pero es mas facil recordar tu formula
Private Sub Worksheet_Change(ByVal Target As Range)
'--
If Not Target.Address = "$A$1" Then Exit Sub
If Not IsNumeric(Target) Then Exit Sub
'--
Application.EnableEvents = False
Application.ScreenUpdating = False
Range("A5:A1048576").ClearContents
'--
fila = 5
i = 1
For x = 1 To (Target)
columna = 1
Cells(fila + i, columna) = i
i = i + 1
Next
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub