¿Cómo inserto un texto específico para cada encabezado, en una macro?
Buen día.
Necesito indicar un rango numérico por cada encabezado, pero en el resultado no siempre aparecerán en el mismo orden los encabezados.
¿Cómo hago para que cada vez que se genera el resultado también aparezca debajo del encabezado su rango correspondiente?
EJEMPLO:
Este puede ser un resultado:
A B C D E
1 PROT TRIG COL GLU URIC
2 6.4-8.3 35-250 50-200 74-106 3.5-7.2 etc
3
Supongamos que este es el resultado de otro archivo:
A B C D E
1 TRIG COL PROT URIC GLU ---> No siempre van en orden
2 35-250 50-200 6.4-8.3 3.5-7.2 74-106
3
Es decir: abajo de cada encabezado irá el mismo rango numérico.
Esta sería la lista de rangos para cada encabezado:
GLUO 74-106
CREA 0.7-1.6
CHOL 50-200
TRIG 35-250
UREA 13-43
UN 7-20
UA 3.5-7.2
AST 8-33
ALT 4-36
LDLP 105-333
ALPAMP 25-100
Na 136-145
K 3.5-4.5
Cl 98-107
ALB 3.4-5.0
TBIL 0.3-1.2
DBIL 0.0-0.3
CA 8.6-10.0
BILI 0.0-0.9
Mg 1.7-4.9
IP 2.5-4.5
%A1c3 < 7
TP 6.4-8.3
GLOBUL 2.0-3.5
AMYLAS 25-125
A/G 1.0-2.0
HDL 35-85
La macro es la que me enviaron en la pregunta pasada del día 26 de junio.
¿ó si gustan les puedo enviar por e-mail el archivo con la macro?
No la escribí porque está algo grande.
Gracias.
1 respuesta
¿Quieres una macro nueva o tiene que ir ligada a otra macro?
Si es nueva utiliza esto
Sub encabezado()
'Por.DAM
Set h1 = Sheets("Hoja1")
Set h2 = Sheets("Hoja2")
For i = 1 To h1.Cells(1, Columns.Count).End(xlToLeft).Column
Set b = h2.Range("A:A").Find(h1.Cells(1, i))
If Not b Is Nothing Then
h1.Cells(2, i) = h2.Cells(b.Row, "B")
End If
Next
End SubEn la hoja1 tienes que poner tus encabezados. En la hoja2 tienes que poner en la columna A los encabezados y en la columna B el rango. Revisa los rangos por que algunos aparentemente son fechas, por ejemplo este UN 7-20 (el 7-20 te lo poner como 1 de julio de 2020), para evitar que te cambie el dato a fecha deberás poner los rangos como tipo texto.
Saludos. Dante Amor
Si es lo que necesitas, no olvides finalizar
Hola.
De echo es para que vaya ligada a otra macro, (que me ordena datos verticales en horizontales).
La macro se encuentra en mi pregunta anterior.
http://c/:\Users\Henrry\Downloads\Editando\Macro
Gracias anticipadas.
No puedo ver tu archivo. O envíame tu archivo con la macro para ponerle lo nuevo
