Jump to content

Luis paz

Members
  • Content Count

    122
  • Joined

  • Last visited

  • Days Won

    5

Everything posted by Luis paz

  1. Lo mejor sería dejar aquí el tema Muchas gracias por tus comentarios, siempre son de gran utilidad
  2. Excelente, que gusto que ya tienes la solución amigo! Por allí debiste haber empezado: investigando Saludos!
  3. No encuentro el sentido de lo que quieres realizar, por lo que te comparto lo que me imagino: Sub Encontrar() Dim i, Final, rl As Variant Dim tm As Date tm = Now Final = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row rl = 0 For i = 2 To Final If Cells(i, 3).Value = "Planificado" Then rl = rl + 1 End If Next i Range("E1").Value = "Tiempo de ejecución " & Now - tm & " segundos" Range("f2").Value = rl End Sub
  4. Hola @Marcos14 Puedes adjuntar tu archivo para ver si es un tema del código, y no de tu excel, ya que no podemos acceder a tu computadora para verificar jaja🤣
  5. Hola @diego208 En lo personal, no conózco alguna manera para trabajar como tú esperas, sólo las que mencionas, Sólo compartiendo un archivo excel y visualizandolo online, te aparece una opción que dice, abrir en escritorio... Sólo eso se me ocurre, pero no es una solución como tal. Epero alguién más pueda apoyarte, saludos!
  6. Disculpa que ni terminé de leer tu tema, pero podrías subir un archivo similir, y si quieres cambiarle los datos en caso de ser confidenciales? Saludos
  7. Estimado, creo que no entendiste el archivo que te envié.. Puedes revisarlo de nuevo nos comentas historico de ventas.xlsx
  8. @Ridisc Reaccionaste a los comentarios, pero te sirvió? Se puede cerrar el tema?
  9. Hola @Antoni No se pudo haber expresado mejor! Concuerdo totalmente Es verdad que está muy tranquilo el foro, parece ser que ahora todo ya se encuentra en la red, incluyendo todos los temas que se han tocado en este foro. Respondiendo a la pregunta, en mi opinión. Vale la pena si los miembros activos del foro nos pongamos nuevo retos y colaboramos entre nosotros para mejorar y llevar más allá los conocimientos, proponiendo temas complicados que algún día llegó a nuestra mente "de podría hacer..." . Repito, es mi opinión, ya que dudo que los nuevos miembros tengan interés de aprender y no sólo que les resuelvan su problema, tal y como lo planteas... Saludos!
  10. JAJAJA es lo que dije, pero bien resumido 🤣
  11. Hola @Ridisc Te propongo utilizar lo siguiente en la lista desplegable =INDIRECTO("'"& 'historico de ventas'!A2 & "'!A2:A5") Adjunto un archivo para tu mejor comprensión Recomendación personal: Veo que eres nuevo en el foro.. como recomendación cuando vayas abrir un tema, procura ser así de específico como ahora, y si puede un poco más, y además si puedes proporciona algún material para trabajar y tengamos una idea de más o menos que es lo que necesitas, ya que personas ocmo yo a veces nos cuesta, tedrás mucha suerte si @Silvia te responde porque ella le entiende a todos Bienvenido al Foro Amigo, Saludos! historico de ventas.xlsx
  12. Luis paz

    Hola!

    Bienvenido Amigo!
  13. Hola, Se soluciona con lo siguiente: Option Explicit Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String Dim e As Variant Sub ElegirAccion2() srtTitulo = "PRUEBITA" intConsecutivo = ThisWorkbook.Sheets("BOLETA PDF").Range("CONSECUTIVO").Value intInicial = Sheets("BOLETA PDF").Range("N4") intFinal = Sheets("BOLETA PDF").Range("M3") If intFinal < intInicial Or intFinal > intConsecutivo Then MsgBox "Valida el ID final.", vbExclamation, srtTitulo Else Worksheets.Add.Name = "PDF" Sheets("BOLETA PDF").Select Ruta = ActiveWorkbook.Path e = 0 For i = intInicial To intFinal e = e + 87 ThisWorkbook.Sheets("BOLETA PDF").Range("B5").Value = i ThisWorkbook.Sheets("BOLETA PDF").Range("B5").Value = i Sheets("BOLETA PDF").Range("A1:J87").Copy Sheets("PDF").Range("A" & e - 86 & ":J" & e).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Next i End If Sheets("PDF").Select Sheets("PDF").PageSetup.PrintArea = "$A$1:$J$" & e Sheets("PDF").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & i & " Boletas" & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Sheets("BOLETA PDF").Select Sheets("PDF").Delete End Sub Existe un problema con el formato ya que no queda de la misma manera cuando imprimer uno por uno (con un formato específico y un área de impresión específica) a cuando imprimes todo... Yo por lo pronto, solo puedo aportarte una idea, no la solución en sí. Saludos amigo!
  14. Jajaja🤣, no mi estimado, si te hice mucho caso, y gracias a ello, pude avanzar un monton este fin de semana. ¡Gracias por cierto! Respuesta: Tomé en cuenta lo que me dijiste y modifiqué las relaciones, quitando el título y relacionandolo directamente campo articulo con la Tabla Ley; también agregué la parte del orden, sólo que en lugar de agregar 10.10.2 lo hice 0001 En cuanto a la relación de artículo, ese no lo puedo eliminar, ya que ese es uno de los objetivos. Y cargué todos los datos, porque según yo, ya lo tengo, pero me gustaría conocer tú opinión, si tienes oportunidad, y sino, no pasa nada Objetivo: Formulario de control de Leyes (Form "ART_LEYES"), mediante este poder visualizar y agregar algunos filtros para encontrar algún articulo específico. Formulario análisis por artículos (Form "ART_RELACION"), en este quiero seleccionar un artículo en especifico y de este articulo que selecioné, poder ver en el form la relación que tiene con otros artículos y los tags, y no solo verlos, sino también agregar dihcas relaciones y los tags allí mismo. Formulario de Orden (fORM "LEYES_ORDEN"), en este pretendo trabajarlo para que pueda manipular el orden al realizar el reporte de todos los artículos... (el cual se maneja de la sig manera: Ley1 0001 al 2051, Ley2 0001 al 3005) Básicamente esos son los formularios claves, los demás formularios que pueda crear serán como complemento para apoyar y hacer el proceso más fácil... Reporte general de todos los artículos (Reporte "") Este aún lo crearé, mediante el cual quiero que se muestre: Reporte de tags por artículos (Reporte "") Con este quiero que los tags sean los que agrupen los artículos en el reportes... Y otros reportes similares pero más detallados y específicos.
  15. Hola @ikanni Me ayudó mucho tu apoyo, Si tienes oportunidad ¿podrías hechar un vistados y compartirme tus observaciones? Sabré que voy en buen camino, si entras al access y te das una idea de lo que quiero con solo ver los forms 😆 Y sino, te explicaré. Gracias y saludos https://www.dropbox.com/s/wxg3nz04dvnmnlh/BD Actualización Fiscal V.2.accdb?dl=0 Nota: Ahora no me estoy preocupando por lo estético, sólo en obtener lo que quiero
  16. Propuesta: Sólo necesitas darle formato y ajustarlo la impresión a tu gusto Option Explicit Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String Dim e As Variant Sub ElegirAccion() srtTitulo = "PRUEBITA" intConsecutivo = ThisWorkbook.Sheets("BOLETA PDF").Range("CONSECUTIVO").Value intInicial = Sheets("BOLETA PDF").Range("N4") intFinal = Sheets("BOLETA PDF").Range("M3") If intFinal < intInicial Or intFinal > intConsecutivo Then MsgBox "Valida el ID final.", vbExclamation, srtTitulo Else Worksheets.Add.Name = "PDF" Sheets("BOLETA PDF").Select Ruta = ActiveWorkbook.Path e = 0 For i = intInicial To intFinal e = e + 87 ThisWorkbook.Sheets("BOLETA PDF").Range("B5").Value = i ThisWorkbook.Sheets("BOLETA PDF").Range("B5").Value = i Sheets("BOLETA PDF").Range("A1:J87").Copy Sheets("PDF").Range("A" & e - 86 & ":J" & e).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Next i End If ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & i & " Boletas" & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Sheets("PDF").Delete End Sub
  17. En la columna amarilla que señalas, coloca la sigguiente formula: =SI.ERROR(INDICE(BURRITOS_FILLING,COINCIDIR([@[PRODUCTO&DATA]],BURRITOS_FILLING[PRODUCT&DATA],0),COINCIDIR('IDEAL PRODUCTION'!G$2,BURRITOS_FILLING[#Encabezados],0)),"") Y listooo!
  18. Sí, son varias imagenes. Quizá alguien más pueda apoyarte, ya que no se me ocurre una manera... Saludos!
  19. Estimado observa esto http://www.vbaexpress.com/kb/default.php?action=13&kb_id=19
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png