Crear lista y colocar formula en celdas diferentes

publicado el 13 de noviembre10 años

Buen dia, espero se encuentren bien, el motivo de mi petición es para ver si es posible ayudarme con lo siguiente,

Hice una macro para automatizar la creacion de un archivo de trabajo, que al final deberia quedar como el archivo muestra que anexo, sin embargo no logro crear el data list en la sheet2 de acuerdo a la cantidad de preguntas ingresada, asi mismo tampoco puedo formular el count de acuerdo a la cantidad de preguntas ingresadas.

Les anexo el codigo y el ejemplo de como debe quedar, la cantidad de preguntas, dias y metodo de evaluacion son diferentes

Espero haberme explicado :/



Sub Iniciar()


Dim j As Integer

Dim dia As String

Dim Preguntas As Integer

Dim Encuestas As Integer



Cells.Select

    Selection.ClearContents

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    Selection.Borders(xlEdgeLeft).LineStyle = xlNone

    Selection.Borders(xlEdgeTop).LineStyle = xlNone

    Selection.Borders(xlEdgeBottom).LineStyle = xlNone

    Selection.Borders(xlEdgeRight).LineStyle = xlNone

    Selection.Borders(xlInsideVertical).LineStyle = xlNone

    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone


Range("B7").Select

    ActiveCell.FormulaR1C1 = "5"

    Range("B8").Select

    ActiveCell.FormulaR1C1 = "4"

    Range("B9").Select

    ActiveCell.FormulaR1C1 = "3"

    Range("B10").Select

    ActiveCell.FormulaR1C1 = "2"

    Range("B11").Select

    ActiveCell.FormulaR1C1 = "1"

    Range("B12").Select

    ActiveSheet.Next.Select

    Range("B3").Select

    ActiveCell.FormulaR1C1 = "5"

    Range("C3").Select

    ActiveCell.FormulaR1C1 = "4"

    Range("D3").Select

    ActiveCell.FormulaR1C1 = "3"

    Range("E3").Select

    ActiveCell.FormulaR1C1 = "2"

    Range("F3").Select

    ActiveCell.FormulaR1C1 = "1"

    Range("G3").Select


    Columns("B:FB").Select

    With Selection.Validation

        .Delete

        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _

        :=xlBetween

        .IgnoreBlank = True

        .InCellDropdown = True

        .InputTitle = ""

        .ErrorTitle = ""

        .InputMessage = ""

        .ErrorMessage = ""

        .ShowInput = True

        .ShowError = True

    End With


    Range("A1").Select

               Selection.End(xlUp).Select

           Selection.End(xlUp).Select

           Selection.End(xlUp).Select

           Selection.End(xlUp).Select

           Selection.End(xlUp).Select

    Selection.End(xlToLeft).Select

    Selection.End(xlToLeft).Select

    Selection.End(xlToLeft).Select

    Selection.End(xlToLeft).Select

    Selection.End(xlToLeft).Select




Worksheets("Concentrado").Select


Encuestas = Application.InputBox("Cuantas encuestas son?", "Escribe el número en la caja", , 250, 75, "", , 1)


For i = 0 To Encuestas


    Worksheets("Total Encuestas").Select

          ActiveCell.Offset(0, 1).Range("A1").Select


    ncues = i + 1


    ActiveCell.Range("A1").FormulaR1C1 = "Encuesta" & ncues



Next i

    ActiveCell.FormulaR1C1 = ""


    MsgBox "Se ingresaron las encuestas"


    ActiveSheet.Next.Select

    Selection.End(xlUp).Select

    Selection.End(xlToLeft).Select


Worksheets("Concentrado").Select


    Worksheets("Concentrado").Select

Range("B2").Value = Trim(InputBox("Introduce Titulo de Encuestas"))


Range("B3").Value = "Total de Encuestas:"

Range("B5").Value = Trim(InputBox("Introduce la pregunta NPS"))



Range("B13").Select

Worksheets("Total Encuestas").Select

        Range("A4").Select

Worksheets("Concentrado").Select



A:


dia = Application.InputBox("Qué día o nombre es?", "Escribe el día en la caja", , 250, 75, "", , 0)

ActiveCell.FormulaR1C1 = dia

ActiveCell.Offset(1, 0).Select

With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False

    End With


Preguntas = Application.InputBox("Cuantas preguntas tiene?", "Escribe el número en la caja", , 250, 75, "", , 1)


modeval = Application.InputBox("Que tipo de Evaluacion es?", "1 1-10,2 1-5,3 text Ing,4 Text Ing2,5 Text Spa", , 250, 75, "", , 1)


    If modeval = 1 Then

     ActiveCell.Offset(0, 1).Select


ActiveCell.FormulaR1C1 = 10

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 9

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 8

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 7

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 6

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 5

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 4

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 3

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 2

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 1


ActiveCell.Offset(0, -10).Select


    End If

If modeval = 2 Then

     ActiveCell.Offset(0, 1).Select


ActiveCell.FormulaR1C1 = 5

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 4

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 3

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 2

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = 1


ActiveCell.Offset(0, -5).Select


    End If

If modeval = 3 Then

     ActiveCell.Offset(0, 1).Select


ActiveCell.FormulaR1C1 = "Very Good"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Good"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Barely Acceptable"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Poor"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Very poor"


ActiveCell.Offset(0, -5).Select


Else


End If


If modeval = 4 Then

     ActiveCell.Offset(0, 1).Select


ActiveCell.FormulaR1C1 = "Strongly Agree"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Agree"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Disagree"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Strongly Disagree"


ActiveCell.Offset(0, -4).Select


Else

End If


If modeval = 5 Then

     ActiveCell.Offset(0, 1).Select


ActiveCell.FormulaR1C1 = "Muy bien"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Bien"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Regular"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "Malo"

ActiveCell.Offset(0, 1).Select

ActiveCell.FormulaR1C1 = "No aplica"

ActiveCell.Offset(0, -5).Select


Else

End If



For i = 0 To Preguntas


ActiveCell.Offset(1, 0).Select


    Ortega = i + 1


    ActiveCell.FormulaR1C1 = "Pregunta " & Ortega


Next i

    ActiveCell.FormulaR1C1 = ""


    'inicia la preparacion de la hoja de encuestas


 Worksheets("Total Encuestas").Select

      ActiveCell.FormulaR1C1 = dia

     ActiveCell.Offset(1, 0).Select

With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .AddIndent = False

        .IndentLevel = 0

        .ShrinkToFit = False

        .ReadingOrder = xlContext

        .MergeCells = False


    End With


For i = 0 To Preguntas


ActiveCell.Offset(1, 0).Select


    Ortega = i + 1


    ActiveCell.FormulaR1C1 = "Pregunta " & Ortega


Next i

    ActiveCell.FormulaR1C1 = ""




  Worksheets("Concentrado").Select


    'envia mensaje de ingreso correcto


    MsgBox "Se ingresaron las preguntas"


    MasPreguntas = Application.InputBox("Quieres ingresar otro día?", "1 = Si, 0 = No", , 250, 75, "", , 1)

    If MasPreguntas = 1 Then

        Selection.End(xlDown).Select

        Selection.End(xlDown).Select

        Selection.End(xlDown).Select

        Selection.End(xlUp).Select

        ActiveCell.Offset(2, 0).Select

        GoTo A:

    Else

    End If





End Sub [/Code]

ejemplo.zip

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

Domina Excel, de Cero a Experto

¿Atascado? Deja de buscar soluciones puntuales. Aprende a dominar Excel para siempre con nuestro curso online. Más de 115 lecciones y soporte directo.

Ver el Curso Completo

193 Archivos
99 Comentarios
30 Revisiones
Última descarga

Agenda Calendario Vintage
- 2

Fechas Móviles

...la tabla no queda bien...
Adjunto archivo.
Feriados Moviles (B).xlsx

Por Victor7, · publicado hace 20 horas 20 hr
Fechas Móviles

Lo siento, pero voy a repetirme sobre lo que dije en mi anterior intervención: "Sería interesante que explicaras con detalle qué es lo que falla de tu archivo, por qué, y qué es lo que buscas obtener".
A ver si así avanzamos: Supongamos que tienes esta tabla:
Inicial
Final
Inicial
Final
Ajuste
Dia Habil
Habiles
Habiles
Año
2025
2026
01/10/2025
31/10/2025
01/10/2026
31/10/2026
5
5
23
23

01/10/2025
31/10/2025
01/10/2026
31/10/2026
3
4
23
23

01/10/2025
31/10/2025
01/10/2026
31/10/2026
2
7
23
23

01/10/2025
31/10/2025
01/10/2026
31/10/2026
7
3
23
23

¿Qué 4 fechas concretas deberían aparecer en cada una de las 2 últimas columnas?
¿Cómo se llega a ellas? ¿Qué cálculos son necesarios?

Por Victor7, · publicado hace 20 horas 20 hr
Fechas Móviles

Saludos Sr @Victor7
Con este cuadro lo que pretendo es poder obtener cualquier fecha móvil existente en el calendario festivo y que la misma se actualice de manera automática en las Celdas AB y AC sin la necesidad de hacer ajustes posteriores de allí que tome las formulas que se muestran en el tutorial y las fui anidando de forma tal que pudiera obtener el mismo resultado del ejemplo por lo cual es conveniente indicar que de acuerdo al ejemplo del tutorial:
Celda X: Aquí se introduce manualmente el número del día de la semana donde se ubica la fecha móvil buscada
Celda Y: Aquí se introduce manualmente la cantidad de días hábiles existentes antes de la fecha móvil buscada
Celdas Z y AA: Muestra la cantidad de días hábiles existentes en el mes de la fecha móvil
Celdas AB y AC: Arrojan la fecha móvil exacta conforme al año y los datos introducidos en las Celdas X y Y
Haciendo un análisis de los datos infiero que el problema radica en que el ejemplo del tutorial está configurado para arrojar resultados correctos solamente para la semana que contenga el tercer viernes de un mes determinado de allí que al buscar otra fecha móvil los datos que se introducen en las Celdas X y Y no sean no sean los que realmente deberían para que se puedan alcanzar las fechas exactas en las Celdas AB y AC, sin embargo hay fechas que aun introduciendo datos correctos en las Celdas X y Y o aproximándolos lo más posible no es posible obtener resultados correctos.

Por jues, · publicado ayer a las 15:011 día
Fechas Móviles

Hola,
Sería interesante que explicaras con detalle qué es lo que falla de tu archivo, por qué, y qué es lo que buscas obtener.
Hasta la columna W todo parece entendible, pero habría que ver cómo los datos X:Y introducidos a voluntad (supongo), afectan al comportamiento (o no) de los siguientes cálculos. Igual que las columnas AB:AC, qué resultados pretenden plasmar.
Saludos,

Por Victor7, · publicado ayer a las 06:551 día
Fechas Móviles

Saludos amigos espero estén bien
Nuevamente acudo a ustedes para que me ayuden con lo siguiente inconveniente, con la ayuda de este tutorial https://youtu.be/LFCT9xU4alc?si=gVeIDHcKwCUmO0sM configure el archivo adjunto para obtener los resultados requeridos coincidentemente dos de las fechas que necesito cumplen con los parámetros utilizado en el tutorial es decir el tercer viernes de un mes, sin embargo cuando intento determinar otra fecha con el mismo metodo no me arroja resultados congruentes ejemplo el cuarto lunes de octubre o el segundo martes de febrero y así sucesivamente
Mucho les sabre agradecer la ayuda que me puedan brindar

Feriados Moviles.xlsx

Por jues, · publicado el Lunes a las 14:112 días

No hay usuarios registrado para ver esta página.

Conéctate a Ayuda Excel

Crear lista y colocar formula en celdas diferentes

Featured Replies

Archivado

Archivos

Agenda Calendario Vintage

Cómo conservar la función AHORA()

Agenda v01

Gráficos de aranceles con colores difusos

Cómo crear hipervínculos inteligentes con fórmulas

Estadísticas de descargas

Mensajes

Fechas Móviles

Fechas Móviles

Fechas Móviles

Fechas Móviles

Fechas Móviles

Visualizado recientemente 0

Account

Navigation

Buscar

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)