Jump to content

vinzent

Members
  • Content Count

    250
  • Joined

  • Last visited

  • Days Won

    1

vinzent last won the day on November 30 2014

vinzent had the most liked content!

About vinzent

  • Rank
    Advanced Member
  • Birthday 01/17/1977

Contact Methods

  • Website URL
    http://betazamx.tumblr.com/

Profile information

  • Gender
    Hombre
  • Localización:
    Mexico Excel 2013

Converted

  • Campos
    ,

Recent Profile Visitors

590 profile views
  1. Para poder cerrar el tema, esta es la macro funcionando, por si alguien mas lo necesita: Sub vinzent() Dim Rng As Range, Cl As Range, Dest As Range Dim Ows As Worksheet Dim i As Long Set Ows = Sheets("Original") Set celda = Sheets("Datos").Range("B2") Do While celda.Value <> Empty And celda.Offset(0, -1).Value <> Empty i = 31 Set celda2 = celda cont = 0 Do While celda2.Offset(1, -1).Value = Empty And celda2.Offset(1, 1).Value <> Empty cont = cont + 1 Set sig2 = celda2.Offset(1, 0) Set celda2 = sig2 Loop Set sig = celda.Offset(cont + 1, 0) Set Rng = Range("A" & celda.Row & ":A" & cont + celda.Row) Set Dest = Ows.Range("T:T").Find(Rng(1).Value, , , xlWhole, , , False, , False) If Dest Is Nothing Then Set Dest = Ows.Range("T" & Rows.Count).End(xlUp).Offset(1) Dest.Value = Rng(1).Value End If For Each Cl In Rng If Cl.Offset(, 11) <> "No cuenta" Then Cl.Offset(, 1).Resize(, 5).Copy Dest.Offset(, i) i = i + 5 End If Next Cl Set celda = sig Loop MsgBox "Por favor revisar..." End Sub Saludos
  2. Adjunto el archivo de ejemplo un poco mas detallado, una disculpa si me logre explicar bien: La pestaña Original trae información en las columnas C1, C2,C3, etc. los borre para que no pesara mucho el archivo. 1er caso: DATOX, DATO Y, DATO Z no tiene informacion, se queda en blanco. 2do caso: DATO 1 a DATO8 se consolida la informacion de la hoja Datos hacia la derecha, al estilo transponer, no considerando los datos que tengan en la columna L ¨No Cuenta¨ 3er caso DATO 9 tiene la primer fila una columna ¨No Cuenta¨ esa no se incluye, pero tiene otras que si necesito agregarlas. Muchas gracias Copia de Ejemplo.xlsx
  3. Veo que solo consolida lo que encuentra de la pestaña datos, pero en la pestaña original hay mas informacion aparte de DATOS1, DATOS2, etc, por ejemplo DATOS10, y que no cuentan con informacion, se puede modificar para que en vez de borrarlos no los considere?
  4. Muchas Gracias @Antoni!! como siempre me has ayudado a mi problema.
  5. Hola nuevamente a todos, estoy requiriendo de su ayuda para terminar una macro: Tengo la pestaña "Datos" en ella hay informacion de cada material, necesito consolidar de los datos a otra pestaña que he nombrado Original, pero tengo dos dificultades para mi: 1.- Los materiales deben de ir de manera horizontal (parecido a la funcion transponer) 2.- Las filas que tienen en la columna "No Cuenta" no son consideradas al momento de pasar la informacion. He adjuntado un ejemplo del archivo y en la pestaña "Como debe de quedar" esta el ejemplo cuando lo hago de manera manual Cualquier ayuda proporcionada sera bienvenida. Mil Gracias Ejemplo.zip
  6. No muestra error, pero simplemente no hace nada, solo aparece asi como en la imagen mostrada, en tu archivo me marca el error que puse anteriormente. Algo raro es que la macro si funciona con los datos de la pestaña1, pero no con los datos de la pestaña dos.
  7. Estoy pensando que es por eso que me marca error la macro original que subi como ejemplo, hoy o a mas tardar mañana, subire el video de como lo estoy haciendo.
  8. Si, eso exactamente estoy haciendo, probamos la macro en el trabajo, dejame revisar con la de la casa.
  9. Lo probamos en 4 computadoras diferentes, nos muestra el mismo error Sistema Operativo: Windows 7 Enterprise Microsoft Office Professional Plus 2013 (Inglés)
  10. Me sale el mismo error, la macro esta creando un archivo nuevo y copia la informacion del archivo original, pero solo hace eso.
  11. No estoy seguro si sea el caso, pero revisando nuevamente veo que la macro genera un archivo nuevo.
  12. Hola @Cacho R Aquí es donde me está mostrando el error en esta línea: Range(D, E).Offset(, 1).Copy
  13. Mira Cacho, aqui dejo tu macro con la informacion que aparecen en la hoja 3, estos son los datos reales: https://www.dropbox.com/s/e4wjtetpfwt43l5/Ejemplo518 Con informacion real.zip?dl=0 Y este es el error de la Macro
  14. Antoni La macro no muestra error, pero me faltan algunos numeros en las notas: Ejemplo: 52C391593 son 9 numeros no duplicados, pero veo que la macro solo muestra 7, los que no veo son estos: 4119677943 , 4119649033
  15. La informacion esta en la hoja 3, esos son los datos. Lo que hice fue copiarlos a tu archivo y al momento de correrlo me muestra error.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png