Preguntas esperando respuesta
Actividad pública reciente
Ha empezado a seguir a 
James Bond
James Bond
Ha valorado "Excelente" la respuesta
Ordenar resultados de un dato de manera Horizontal
Prueba con esta macro, solo cambia el a1 y el a2 de las primeras 2 líneas de acuerdo a los datos que manejes en este caso A1 son los títulos Sub ordenar() filas = Range("a1").CurrentRegion.Rows.Count - 1 Set datos = Range("a2").Resize(filas, 2) With...
Ha empezado a seguir a 
Elsa Matilde
Elsa Matilde
Ha valorado "Excelente" la respuesta
¿Cómo puedo hacer múltiples búsquedas de encabezados, cortar y pegar las columnas con los resultados?
Esta macro te servirá para eso. Lee los comentarios para ajustar lo que hiciera falta (textos y nro de elementos de la matriz). Sub correColumnas() 'x Elsamatilde 'se buscan los títulos desde B1 [B1].Select col = 2 cadena = Array("Order Date", "Sales...
Ha empezado a seguir a 
Marc Climent
Marc Climent
Ha empezado a seguir a 
Dante Amor
Dante Amor
Ha cambiado su perfil.
- Ha cambiado su foto.
Ha preguntado en el tema en
Software y aplicaciones
y en 2 temas más
Macro para descargar PDF de SAP a tu disco duro
Busco la manera de descargar un PDF que me genera SAP a mi maquina. La transacción que utilizo es YAFZRIT, este es el código que utilizo para generar la información. Dim SapGuiAuto, SapApp, Sap As Object Set rotEntry = GetObject("SAPGUI") Set SapApp...
Sin respuestas
Ha cambiado su perfil.
- Nombre completo: Carlos Reta.
Ha valorado "Buena" la respuesta
Copiar filas dependiendo de cualquier valor mayor a 1
Esto tal vez te aporte algo más https://youtu.be/kiXoJ0hSblA https://youtu.be/afLArBjJyz8 https://youtu.be/LkiQIzCsWP8 https://youtu.be/FsqpNECrQqc https://youtu.be/qtkrkNVxsuQ
Ha valorado "Buena" la respuesta
Utilizar un macro que corra en base a nombre de pestaña y no archivos?
¿Puedes poner un ejemplo de tu código?
Ha valorado "Buena" la respuesta
Cambiar de color pestanas de excel compartido, con condicional
Carlos pon este código en el evento Change de la hoja: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then Select Case Target Case 1: ActiveWorkbook.Sheets("Hoja2").Tab.Color = vbRed 'Rojo Case 2:...