Haplox

Hola! Te puedo hcer una consulta respecto a este codigo, al ejecutarlo me entrega el valor que está en la celda incluida la formula, como podría hacer para que solo me entregué el valor?

Sub Extraer_Datos()
Dim shDestino As Worksheet
Dim ufo As Integer, ufd As Integer
Set shDestino = Worksheets.Add(After:=Sheets(Sheets.Count))
shDestino.Name = "d"

For I = 1 To Sheets.Count - 1
    If Sheets(I).Name = "ESCUELAS" Then
    Else
        ufo = Sheets(I).Range("A" & Cells.Rows.CountLarge).End(xlUp).Row
        ufd = shDestino.Range("A" & Cells.Rows.Values).End(xlUp).Row
        Sheets(I).Range("AA2:AJ" & ufo).Copy shDestino.Range("A" & ufd)
        
    End If
Next I
End Sub
 

Hola José Haplox),

Primero y ante todo quiero expresarte mi mas profundo y sincero agradecimento por tu valiosa ayuda hasta ahora.

Espero no haberte dejado un mal sabor de boca y mareo sobre mis dudas.

Hoy precisamente despues de unas 8 horas asiduas he acabado (no se como) de completar la plantilla con todas mis dudas.

Lo pondre en el post diciendo que ya esta y pedirte que cierres el tema (no se si es tu atrea o no).

Agradeciendote de nuevo tu ayuda me despido deseandote una buena semana.

P.S. - Espero que en un futuro poder contar con tus valiosas aportaciones.

Saludos, ?

Haplox saludos atentos,  este es archivo.  Lo que necesito está claramente indicado con colores y notas. Te agradezco de antemano tu valiosa ayuda.  Mil gracias.

Consulta Macro Hoja Avances.xlsx

Hola !muchas gracias por tu ayuda mira tengo sobre el excel que te pase le puse las barras con el objeto las tareas en el shapes queda mas lindo! pero no puedo ponerle los conectores usando la columna predecesora para unir las barras de gantt te adjunto el archivo modificado podrias ayudarme a ver como puedo poner los conectores?

yo he visto una macro para poder graficar conectores en dos celdas quise meter ese codigo pero la verdad me maree...

**********************************************************************************

Sub InsertarConector()

'Inserta un conector entre D5 y H13
'----------------------------------

ActiveSheet.Shapes.AddConnector(msoConnectorElbow, _
            Range("D4").Left, Range("D4").Top, _
            Range("E5").Left, Range("E5").Top).Select

            
End Sub

***************************************************************************************

Muchas Gracias!

GANTT practica.xlsm

Muchas gracias por responder a mi pregunta!!

Podrías ayudarme con otra duda que tengo o debo hacer un tema nuevo?

Gracias

<3

Buenas amigo HAPLOX, necesitaria de tu ayuda, como te dije, en el tema de macro voy un poco corto pero me meto en algunos berejanales que luego no se salir.

Te mando un archivo con el que estoy trabajando, lo que ocurre que no me sale la macro para poder realizar una consulta y modificacion de los datos del formualrio que tengo. He poddio hacer el de guardar e imprimir, lo que ocurre que si al introducir los datos una vez impresos necesitas modficarlos, no puedo volver a imprimir las modifciaciones.

Te agradeceria tu ayuda, creo que habria que hacer una macro de consulta y modificacion y luego volver a imprimir.

Te mando el archico para que veas la estructura.

Gracias y ya me cuentas.

ORDEN TRABAJO TALLER NEW.xlsm

Hola antes que nada gracias por tu valiosa ayuda, estaba en un curso y ahora puedo regresar a trabajar  crees poder ayudarme haciendo couching en este archivo? Trato de dar de baja un carro que esta repetido pero solo escribe los valores sobre primero que esta, los subsecuentes los ignora, donde estara mi error? te agradezco el apoyo      Accesos.xlsm,

? 

Haplox, puedes eliminar las publicaciones que hice? Ya que están repetidas?

Hola, buenas tardes. 

Espero pueda ayudarme. 

Estoy trabajando en una base de datos para unos equipos conectados en red. La base de datos me descarga el ticket y en esa misma fila las direcciones logicas asociadas a ese ticket. Pasa que cuando trabajo la data solo toma la primera dirección lógica y las demás se pierden.

Necesito crear una macros que me inserte una fila por cada dirección logica copiando el ticket.

Ejemplo:

A: ticket

B: dir. Logica.

A=1

B= 1; 2; 3; 4

APARECE ASI:

A             1; 2; 3; 4

Debe separarse asi

A             1

A             2

A             3

A             4

Usted podría ayudarme con esto? He tratado de muchas formas y no logro dar con la macros exacta. Veo que ud tiene bastante experiencia. Yo apenas estoy comenzando a trabajar con Excel.

la cosa es que se incerte una columna por cada direccion logica, copiando el mismo ticket y la misma informacion de las demas columnas... es para separarlas y no perder la data.

Agradezco su colaboracion

Haplox, te envío un fichero en el link adjunto. Por favor, te lo envío en privado.

No se el por qué, pero la macro que me pusiste ahora no consigo que funcione y llevo horas intentando ver que le pasa y no encuentro por qué.

Necesito me eches una mano por favor.

https://drive.google.com/open?id=13GiLllJlYlgGaS0Y6kGB2GOJS3tu8cn2

Te lo agradezco de antemano.

Moisés.

Tengo una gran duda de como realizar lo siguiente, espero me puedan ayudar, gracias de antemano.

En la hoja 1 tengo una gran lista de alimentos en la columna A tengo ej.
manzana cruda, 
manzana cocida, 
frutas picada, 
chayote crudo, 
mango manila 
mango petacon 

y en las columnas subsecuentes tengo la información nutricional correspondiente para cierta cantidad de alimento  de calorías, proteína, carbohidratos, etc.

Mi objetivo es que en una hoja 2, en la columna A pueda poner el nombre de los alimentos pero que no sea necesario teclear todo el nombre ya que algunos tienen nombres muy largos y la diferencia en el nombre muchas veces es solo crudo o cocido, por lo que me gustaría que al empezar a escribir el nombre me saliera una lista de opciones a escoger.
Y una vez que el nombre del alimento esta escrito, me extraiga el nombre y toda la información nutricional de lista de la hoja 1 en las columnas subsecuentes y que pueda jugar con la cantidad (con una regla de 3).

Y por ultimo toda la información copiada de la hoja 1 poder trasladarla a la hoja 3 y asi poder borrar lo que escribí y poder meter mas alimentos.

Adjunto una hoja de ejemplo para poder ser mas claro. 

Saludos!!

Hoja ejemplo.xlsx