Saltar al contenido

Toda la actividad

Este flujo se auto actualiza     

  1. Última hora
  2. Milton Cordova

    Proteccion vb

    Saludos me pueden informar cual es la opcion para cuando se ingresa al editor VB y al querer acceder o abrir no me muestre la ventana que pide ingresar una contraseña. Gracias
  3. Today
  4. Hola @Haplox que tal?. Te comento que logre evitar el problema. El error derivaba dado que las hojas se encontraban con contraseña de protección. He eliminado la protección y la planilla ha funcionado de maravilla. Nuevamente, muchas gracias por tu ayuda. saludos!
  5. Yesterday
  6. Muchas gracias mi estimado MacroAntonio @Antoni Me sirvió mucho tu respuesta. Solo para comentarte, este es un archivo que es necesario que tenga este mensaje, ya que será para un usuario final, y este debe hacer las verificaciones pertinentes. Con lo del Txt ya lo logré solucionar, únicamente adapté tu respuesta para que se vaya a una variable y esta me sirva tanto para el MsgBox como para el cuerpo del Txt. Tema solucionado.
  7. Te recuerdo que existe la función Replace(), que es capaz de eliminar los guiones de forma automática, en cualquier caso, aquí tienes la macro corregida para lo que quieres. Sub ValidarNIT() Dim Filas As String For Fila = 7 To Range("A" & Rows.Count).End(xlUp).Row If InStr(1, Hoja1.Cells(Fila, 6), "-") Then Filas = Filas & ", " & Fila End If Next If Len(Filas) > 0 Then MsgBox "En las filas " & Mid(Filas, 3) & " hay un guión." & vbNewLine & _ "Por favor elimine todos los guiones de la columna NIT", vbExclamation End If End Sub
  8. Muy buenos días, tardes, noches. Vengo a molestarlos con algo que no he podido resolver. Estoy haciendo la validación si en los datos de una de las columnas existe un guión medio "-", y para ello estoy haciendo uso de una macro, la cual funciona bien. Lo que necesito es que si hay varias líneas con guiones me unifique estos resultados y los muestre en un solo MsgBox y que además los genere en un TXT. Adjunto el archivo para su mayor comprensión. Quedo atento a su pronta respuesta, y gracias de antemano por la ayuda. Libro de Compras y Ventas.xlsm
  9. Revisa el adjunto. SAEStock.xlsm
  10. Hola estimados Foristas Tengo un buscador de productos que tiene una BD en Access, esta en un formulario con un Listbox. Necesito que al dar click en el listbox se cargue tambien la imagen. He hecho una prueba pero solo me carga la primera imagen que encuentra, no carga de acuerdo a la selección que doy al dar click en el listbox. Agradeceria me puedan ayudar. Adjunto la carpetita en Google Drive Gracias FELIX https://drive.google.com/open?id=1oxg4oRgv61d-KQXo44YVh43CwP-rZhFT
  11. Última semana
  12. johnmpl

    Convertir matriz en tabla

    ¡Hola, a todos! Dejo otra opción en el adjunto, teniendo en cuenta dinamismo también en los años a extraer, además de tener el conteo de meses y años para evitar el SI.ERROR (Consumo adicional de recursos por arrastre de fórmula matricial). ¡Bendiciones! foroexcel.xlsx
  13. Leopoldo Blancas

    Convertir matriz en tabla

    Si, vi tu archivo, pero no comente nada... Creo que perdiste tu Bola de Cristal.... Saludos.
  14. Buenas tardes tegno una macro que descargue en este mismo foto la cual lee los XML pero requiero que los conceptos y sus montos los coloque por filas y no las agrupe en una sola columna Sub Ruta_CFDI() Dim fs, carpeta, archivo, subcarpeta As Object contador = 2 Set fs = CreateObject("Scripting.FileSystemObject") With Application.FileDialog(msoFileDialogFolderPicker) If .Show = -1 Then Ruta = .SelectedItems(1) End If End With If Ruta = "" Then Exit Sub End If Set carpeta = fs.GetFolder(Ruta) For Each archivo In carpeta.Files If Right(archivo, 4) = ".xml" Then Range("AB" & contador).value = Ruta & "\" & archivo.Name contador = contador + 1 End If If Right(archivo, 4) = ".XML" Then Range("AB" & contador).value = Ruta & "\" & archivo.Name contador = contador + 1 End If Next If contador = 1 Then MsgBox "No se encontro ningún archivo *.XML" & Chr(10) & Ruta, vbCritical, "Importar datos CFDI" End If Call Lectura_CFDI End Sub Sub Lectura_CFDI() Dim doc As MSXML2.DOMDocument60 Dim objXMLDOMNodeList As MSXML2.IXMLDOMNodeList Dim intIndiceNodo As Integer Dim Concepto As String Set doc = New MSXML2.DOMDocument60 Set r = Range("p1").CurrentRegion filas = r.Rows.Count For i = 2 To filas doc.Load ("" & Cells(i, 28) & "") Cells(i, 8) = 0 Cells(i, 9) = 0 Cells(i, 10) = 0 Set lists = doc.DocumentElement EmisorRFC = lists.ChildNodes(Emisor).getAttribute("Rfc") & lists.ChildNodes(Emisor).getAttribute("rfc") EmisorNobmre = lists.ChildNodes(Emisor).getAttribute("nombre") & lists.ChildNodes(Emisor).getAttribute("Nombre") EmisorRegimen = lists.ChildNodes(Emisor).getAttribute("RegimenFiscal") ReceptorRFC = lists.ChildNodes(1).getAttribute("rfc") & lists.ChildNodes(1).getAttribute("Rfc") ReceptorNobmre = lists.ChildNodes(1).getAttribute("nombre") & lists.ChildNodes(1).getAttribute("Nombre") ReceptorUso = lists.ChildNodes(1).getAttribute("UsoCFDI") Set objXMLDOMNodeList = lists.ChildNodes For intIndiceAtributo = 0 To objXMLDOMNodeList.Item(2).ChildNodes.Length - 1 Concepto = Concepto & lists.ChildNodes(2).ChildNodes(intIndiceAtributo).getAttribute("descripcion") & "\" & lists.ChildNodes(2).ChildNodes(intIndiceAtributo).getAttribute("Descripcion") & "\" Next intIndiceAtributo Cells(i, 2) = doc.DocumentElement.getAttribute("serie") & doc.DocumentElement.getAttribute("Serie") Cells(i, 3) = doc.DocumentElement.getAttribute("Folio") & doc.DocumentElement.getAttribute("folio") Cells(i, 4) = ReceptorRFC Cells(i, 5) = ReceptorNobmre Cells(i, 6) = EmisorRFC Cells(i, 7) = EmisorNobmre Cells(i, 8) = Folio Cells(i, 9) = Concepto Cells(i, 10) = doc.DocumentElement.getAttribute("subTotal") & doc.DocumentElement.getAttribute("SubTotal") Cells(i, 14) = doc.DocumentElement.getAttribute("total") & doc.DocumentElement.getAttribute("Total") Cells(i, 15) = doc.DocumentElement.getAttribute("fecha") & doc.DocumentElement.getAttribute("Fecha") Cells(i, 16) = doc.DocumentElement.getAttribute("fecha") & doc.DocumentElement.getAttribute("FechaTimbrado") Cells(i, 17) = doc.DocumentElement.getAttribute("tipoDeComprobante") & doc.DocumentElement.getAttribute("TipoDeComprobante") Cells(i, 18) = doc.DocumentElement.getAttribute("CondicionesDePago") & doc.DocumentElement.getAttribute("CondicionesDePago") Cells(i, 19) = doc.DocumentElement.getAttribute("FormaPago") Cells(i, 20) = doc.DocumentElement.getAttribute("metodoDePago") & doc.DocumentElement.getAttribute("MetodoPago") Cells(i, 21) = EmisorRegimen Cells(i, 22) = ReceptorUso Cells(i, 23) = doc.DocumentElement.getAttribute("Moneda") Cells(i, 24) = doc.DocumentElement.getAttribute("LugarExpedicion") Cells(i, 25) = doc.DocumentElement.getAttribute("NoCertificado") & doc.DocumentElement.getAttribute("noCertificado") Cells(i, 26) = doc.DocumentElement.getAttribute("version") & doc.DocumentElement.getAttribute("Version") Cells(i, 27) = RfcProvCertif ReceptorRFC = "" ReceptorNobmre = "" EmisorRFC = "" EmisorNobmre = "" Folio = "" Concepto = "" If Cells(i, 11) = "" Then Cells(i, 11) = 0 End If If Cells(i, 12) = "" Then Cells(i, 12) = 0 End If Next Set doc = Nothing MsgBox "Ernesto Zamora" & Chr(10) & "", vbApplicationModal, "Proceso Terminado - Contacto" End Sub
  15. Silvia

    Convertir matriz en tabla

    POS!! tu te pareces a MummRa mas que yo... rsrsrsrsrsrsrsrrsrskkkkk
  16. Gerson Pineda

    Convertir matriz en tabla

    Pues a ver quien tiene mas poderes!
  17. Silvia

    Convertir matriz en tabla

    ahhh, jajaja la quería al revés... de la hoja1 a la 2..
  18. Gerson Pineda

    Convertir matriz en tabla

    Hola Blecho Te adjunto 2 opciones mas con formulas [la primera es compatible con cualquier versión de Excel, la segunda a partir de 2010] @Silvia creo que esta vez, estas perdiendo el don de la adivinanza o yo lo estoy aprendiendo mejor... Saludos Mostrar mes segun x_GP.rar
  19. Macro para combinaciones sin repetición 2ª Parte??? Buenas de nuevo. Bueno como digo en el post 2ª Parte ,es de lo mismo que el post anterior que lo soluciono desinteresadamente Antoni. Más que subir un libro con explicaciones que pueden ser a la primera no muy buenas, se me ocurre poner este enlace https://www.youtube.com/watch?v=eJWg4IX8wh4 de todas las opciones que se ve en el video solo me interesaría la 7º,8º,2º ,3º y 4º Si es mucho lio pues con la 7º,8º,2º o 7º,8º,2º ,3º Salud2….
  20. Revisa el adjunto. Tutorial VBA almuerzos.xlsm
  21. Muchas gracias por tu solución es justo lo que necesitaba. Pero si tienes información que pudieras facilitarme para poder instruirme, te lo agradecería mucho. Adicional, olvidé mencionar que las marcaciones deberían estar ordenadas también por fechas, es decir al finalizar de transponer se debería ordenar por Código, Empleado y Fecha. Si me puedes ayudar lo agradeceré nuevamente.
  22. Silvia

    Convertir matriz en tabla

    Hola a todos. adjunto otra opción saludos, Silvia foroexcel SQ.xlsx
  23. Estimados HAPLOX y FRANKPALMA, le agradezco a los dos por la paciencia y por sus valiosos tiempo en atender mi inquietud, les comento que lo mio ya esta solucionado y funciona al adaptar la macro..mi necesidad es un podo diferente a la de FRANKPALMA, pero muy similar..nuevamente mis agradecimiento a Uds.. Abrazo..
  24. Leopoldo Blancas

    Convertir matriz en tabla

    Archivo MatrizMeses.xlsm
  25. No amigo, no hay problema, en ningún momento me faltaste el respeto, al contrario, fuiste muy amable y me ayudaste a resolver el problema que tenía con ese código, por lo cual te estoy muy agradecido, pero seguiré tu consejo y pondré cuando necesite algo, tal cual como debe ser. Gracias nuevamente.
  26. Leopoldo Blancas

    Convertir matriz en tabla

    Espero que sea lo que buscas... Sub MatrizMeses() Dim nFila As Long, mFila As Long, n As Long, nDatos As Long, nOffset As Long Hoja2.Cells(1, 1) = "Años" nFila = 2 mFila = 2 Do While Hoja1.Cells(nFila, 1) <> Empty nDatos = WorksheetFunction.CountIf(Range("B" & nFila & ":M" & nFila), "*") If nDatos <> 0 Then Hoja2.Cells(mFila, 1) = Hoja1.Cells(nFila, 1) nOffset = 1 For n = 2 To 13 If Hoja1.Cells(nFila, n) <> Empty Then Hoja2.Cells(mFila, 1).Offset(0, nOffset) = Hoja1.Cells(1, n) nOffset = nOffset + 1 End If Next n mFila = mFila + 1 End If nFila = nFila + 1 Loop Hoja2.Select MsgBox "Gracias por consultar en este gran foro...!!!" & vbNewLine & "Pero ya ponte a estudiar." End Sub Saludos.
  27. Internet es un medio en el que nos comunicamos con palabras, pero sin ver las intenciones. No era mi intención faltar a nadie si se supiera el ánimo con que dije lo anterior, pero solo escribimos Debes comprender que el que pregunta siempre tiene muy claro que quiere y que es lo que tiene, pero el que da alguna ayuda solo tiene lo que se ha expuesto en la pregunta, y con esto debe propporcinar un código. Por eso la ayuda se presta en función de lo que se pide, sin entrar en darle vueltas a todos los posibles cambios que vosotros tenéis claro que podéis hacer. Está bien intentar aprender, y por lo tanto exponer dudas (como las tuyas), aclarando eso, que son dudas, sino se da por hecho (de nuevo solo leemos sin saber la intención) que se buscan nuevos cambios sobre lo preguntado. Lo dicho, en ningún momento mi internción fue el faltarte al respeto, si no no hubiese seguido proporcionándote la nueva solución
  28. Excelente mi estimado amigo HAPLOX, muchas gracias por tu amabilidad y gentileza en ayudarme, y te pido mil disculpas si te molesté o incomodé con mis dos últimas peticiones, no fue a propósito, es que a veces mi curiosidad por aprender y mi ignorancia en estos temas de programación avanzada, me hacen querer probar si las macros funcionan en distintos ámbitos, pero no lo hago de maldad o subiendo archivos con trampas. Te estoy muy agradecido por tu tiempo, esfuerzo y paciencia. Un fuerte abrazo y que tengas un excelente día mi buen amigo. Gracias.
  29. Abre el adjunto y pulsa sobre la flecha azul. almuerzos.xlsm
  1. Cargar más actividad
  • Regístrate en Ayuda Excel

    Regístrate en Ayuda Excel

×

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.