Janlui

Primero dale forma a lo que quieres medir, evaluar, gestionar, etc. Con esto ya tendras un punto de partida Posteriormente, como lo quieres medir y por último como quieres ver los resultados con toda la información que acumularás. Espero te de una luz. Saludos.

Observo que el cuerpo de las preguntas no corresponde al cuerpo de la información obtenida. Te lo comento porque se podría obtener el resultado de la encuesta por cada pregunta, tiempos de respuetsa, opinion segmentado por sexo,etc.

Macro en Modulo 2 - sub salida_txt Ejemplo salida txt.xlsm

Prueba esto, aunque veo que las cantidades son las mismas en ambos meses Sub suma_M() Sheets("mes2").Select r = 2 Do While Cells(r, 2) <> "" If Cells(r, "p") = "Ya existente" Then Cells(r, "q").Select ActiveCell.Formula = "=match(b" & r & ",'mes1'!b:b,0)" Z = ActiveCell.Value Cells(r, "q") = Worksheets("mes1").Cells(Z, "m") + Cells(r, "m") End If r = r + 1 Loop End Sub

Lo ideal es que subas tu archivo para comprenderlo mejor. Saludos.

Cuando inicias el for hay que vaciar la variable resultados For x = 2 To Range("A" & Rows.Count).End(xlUp).Row resultados = empty

Me puedes enviar tu último archivo?. Yo seria de la idea que en la Hoja Preguntas, ahi pongas la primera parte y en Hoja1 dejala como esta.

La cuestión es que el formato establecido en tu maquina el punto separa a los decimales y cuando lo cambias por coma, pierde el valor y lo convierte en cadena de caracteres o Texto.

Te dejo este archivo como ejemplo, espero sea lo que buscas. Saludos. condicional.xlsx

Podrás subir tu archivo ? la respuesta es: claro que se puede con una función o con macro

Buenos días a todos. - Como detectar quien tiene Membresía (aportador) para ofrecerle mejor calidad en tiempo de repuesta y contenido. - A estos Aportadores, ofrecerles mayor capacidad para subir sus archivos. - En general, todas las repuestas o soluciones las deberá calificar el solicitante (Mala - Regular - Buena - Excelente) para conocer la calidad de atención, pero ver la forma que sea obligatoria la calificación. Quizá mandar un alertamiento cuando quiera hacer una nueva consulta y la anterior no la a calificado... no se. - Los Visitantes (No Aportadores) cuando se les proporcione una solución a su solicitud, adicionarle cuanto valora la respuesta (1 euro - 2 euros - Mas) y una segunda pregunta.. (Quieres Aportar ? Si, No, Mas delante). al responder SI, alguien se contactará con el Visitante. Junto a estas preguntas poner su actividad ej. Solicitudes ?? - Atendidas ?? - Colaboración ?? que le permita ver los beneficios de participar en el Foro. Que tengan un excelente día.

- Ya no se utiliza la Hoja2. - El resultado lo pone dentro de la carpeta donde se encuentra tu archivo excel en SALIDA.TXT - Al ejecutarlo no debe estar abierto el archivo SALIDA.TXT Espero que esto ya se encuentre solucionado Sub salida_txt() Application.ScreenUpdating = False Set datos = Worksheets("Hoja1") Sheets("hoja1").Select arch = ActiveWorkbook.Path & "\salida.txt" Dim cadena As String Open arch For Output As #1 For i = 1 To 5 Print #1, "Pregunta " & i Print #1, ">a" Print #1, ">b" Print #1, ">c" Print #1, ">d" Next Print #1, String(40, "*") rd = 2 xc = Chr(34) Do While Cells(rd, 1) <> "" cadena = xc & Left(Cells(rd, 3), Len(Cells(rd, 3)) - 6) & xc & "," & xc For i = 7 To 11 cadena = cadena & Cells(rd, i) Next cadena = cadena & xc & "," & xc For i = 12 To 56 cadena = cadena & Cells(rd, i) Next cadena = cadena & xc & "," & xc & datos.Cells(rd, 1) & xc Print #1, cadena rd = rd + 1 Loop Close #1 Application.ScreenUpdating = True MsgBox "Reporte Generado en: " & arch Range("a1").Select End Sub

Observé un pequeño error, espero ya esté bien. Sub genera_txt() Set datos = Worksheets("Hoja1") Sheets("hoja2").Select Dim cadena As String Range("a27:a5000").ClearComments rd = 2 rs = 27 xc = Chr(34) Do While datos.Cells(rd, 1) <> "" cadena = xc & Left(datos.Cells(rd, 3), Len(datos.Cells(rd, 3)) - 6) & xc & "," & xc For i = 7 To 11 cadena = cadena & datos.Cells(rd, i) Next cadena = cadena & xc & "," & xc For i = 12 To 56 cadena = cadena & datos.Cells(rd, i) Next cadena = cadena & xc & "," & xc & datos.Cells(rd, 1) & xc Cells(rs, 1) = cadena rs = rs + 1 rd = rd + 1 Loop End Sub

Disculpa que no te lo regrese en el archivo, pero mi nivel de membresía no me permite completar al 100% el apoyo que solicitan.

Copia la macro y el resultado lo pondrá en la Hoja2... Saludos Sub genera_txt() Set datos = Worksheets("Hoja1") Sheets("hoja2").Select Dim cadena As String Range("a27:a5000").ClearComments rd = 2 rs = 27 xc = Chr(34) Do While datos.Cells(rd, 1) <> "" cadena = xc & Left(datos.Cells(rd, 3), Len(datos.Cells(rd, 3)) - 6) & xc & "," & xc For i = 6 To 10 cadena = cadena & datos.Cells(rd, i) Next cadena = cadena & xc & "," & xc For i = 11 To 56 cadena = cadena & datos.Cells(rd, i) Next cadena = cadena & xc & "," & xc & datos.Cells(rd, 1) & xc Cells(rs, 1) = cadena rs = rs + 1 rd = rd + 1 Loop End Sub

Todas tus celdas deberán tener formato numérico.

Pon esta formula en C15... =66000/(2400/30.3) En C17... =AÑO(C15)-1900 = TE PONDR'A LOS AÑOS En C19... =mes(C15) = TE PONDR'A LOS MESES En C21 =dia(c15) = TE PONDRA LOS DIAS Disculpa que no te envie el archivo de regreso pero ya no me lo permiten. SALUDOS.

=ELEGIR(F20,7500,5000,5000,3500,3500,3500,2500,2500,2500,2500,2500,1500) Espero te sirva

Coloca esta subrutina y el resultado lo pondrá en la Hoja Principal "E15" hacia abajo... Saludos Sub concatena() Set DATOS = Worksheets("Verificar Matriz") Sheets("principal").Select Range("E15:E5000").ClearContents rt = 5 RD = 6 RS = 15 Do While DATOS.Cells(RD, 4) <> "" pasa = 0 For C = 5 To 22 If DATOS.Cells(RD, C) <> "0" Then pasa = pasa + 1 End If Next If pasa > 0 Then CADENA = "" For C = 5 To 22 If DATOS.Cells(RD, C) > 0 Then If Len(CADENA) > 0 Then CADENA = CADENA & "," End If CADENA = CADENA & C - 4 & "-" & DATOS.Cells(rt, C) & "=" & Chr(34) & DATOS.Cells(RD, C) & Chr(34) End If Next Cells(RS, "E") = CADENA RS = RS + 1 End If RD = RD + 1 Loop End Sub

Sub Concatenar() Dim fn As Long uFila = Range("H" & Cells.Rows.Count).End(xlUp).Row pFila = 1 For fila = pFila + 1 To uFila fn = Range("I" & fila) Range("O" & fila) = Range("H" & fila) & fn Next fila End Sub

Hola, sube el ejemplo

ENE FEB MAR ABR MAY JUN JUL AGO SEP OCT NOV ANTEPE… PENULT… ULTIMO 23 43 253 46 437 47 4 564 3 45 564 3 45 28 48 5 258 51 442 52 9 569 8 50 569 8 50 33 53 10 263 56 447 57 14 574 13 55 574 13 55 38 58 15 268 61 452 62 19 579 18 60 579 18 60 formulas de la fila 3 Antepenultimo DESREF($A$1,FILA(A3)-FILA(A$1),CONTARA($A$1:$K$1)-3) Penultimo DESREF($A$1,FILA(A3)-FILA(A$1),CONTARA($A$1:$K$1)-2) Ultimo DESREF($A$1,FILA(A3)-FILA(A$1),CONTARA($A$1:$K$1)-1)

Ejecuta la macro cuando estes en la hoja 2

Aprovechando el tema, necesito extraer información de paginas de inmubles (ejemplo (Mitula, Mercado Libre y otros mas) tienes algo de VBA para hacer pruebas? Gracias.

Claro que es posible... la macro lo prepara en formato csv para DBF o Access lo pueda importar. Saludos