Captura de Datos de Hoja de Selección Múltiple
Necesitó hacer una captura de datos de un cuestionario que tiene preguntas con varias selecciones, la selección se hace mediante “x” debo copiar esa información en la hoja base de datos y remplazar esa “x” por algo como por ejemplo” Sobresaliente”
Agradezco la orientación en mi caso.
Saludos
1 respuesta
Como no quedó claro dónde ubicar el resultado, por ahora la macro coloca el texto en la col K de la misma fila, en la hoja de Evaluaciones.
Entra al Editor de macros (Alt+F11 o botón Programador, Visual Basic), inserta un módulo y allí copia lo siguiente:
Sub resultados()
'x Elsamatilde
Dim finx As Integer, x As Integer
Dim califica As Variant
Dim i As Byte
finx = Range("A" & Rows.Count).End(xlUp).Row 'establecer el fin de la tabla de datos
For x = 2 To finx 'recorrer todas las filas
For i = 3 To 7 'recorrer las 5 col de valuaciones, empezando por C
If UCase(Trim(Cells(x, i))) = "X" Then 'evalua si la celda contiene el texto x
Cells(x, "K") = Cells(28, i) 'en ese caso coloca en col K de la misma fila el texto del título
Exit For 'y finaliza el bucle
End If
Next i
Next x
End SubEn la instrucción: Cells(x,"K") debieras indicar nombre de hoja, fila y col donde se colocará este resultado. Si necesitas ayuda para esta parte, deja una imagen de la hoja Base, donde se vean los encabezados y la relación entre estas 2 hojas (¿coinciden las ubicaciones de cada registro?).
Hoja_de Evaluacion (alli se encuenta el formulario), al dar click a guarda de enviar la selección a la Hoja Data
¿Podrías completar por favor 1 o 2 registros en tu hoja Data, según la muestra de la hoja Evaluación?
Por ejemplo, ¿la siguiente fórmula te devolverá el resultado de la fila 29 ... pero dónde colocarla?
=INDICE(Hoja_de_Evaluación!$C$28:$G$50;1;COINCIDIR("x";Hoja_de_Evaluación!C29:G29;0))
Reemplaza el valor 50 por el número de la última fila ocupada.
Sdos!
