Jump to content

DiegoLG

Members
  • Content Count

    798
  • Joined

  • Last visited

  • Days Won

    8

DiegoLG last won the day on June 15 2019

DiegoLG had the most liked content!

3 Followers

About DiegoLG

  • Rank
    DLG
  • Birthday 08/31/1990

Contact Methods

  • Website URL
    https://es-la.facebook.com/solucionesmsexcelvba/
  • Skype
    solucionesmsexcelvba@gmail.com

Profile information

  • Gender
    Hombre
  • Localización:
    México

Converted

  • Campos
    ,
  • Mi versión de Excel:
    2

Recent Profile Visitors

3,143 profile views
  1. Estimado, prueba así: Workbooks("Nombre de tu archivo.XLS").Close SaveChanges:=True Saludos,
  2. Estimado! @96andres96, hay que manejar un poco la lógica: Si te diste cuenta, el nombre de cada hoja te concentra en la primera hoja columna A, Lo que yo haría, es: al momento de visualizar el nombre de cada hoja, primero elimino que hojas no necesito, y considero que con eso, queda. la verdad de tanto leer texto, me dio flojera jeje.. y si no es lo que necesitas, mejor has un ejemplo en donde obtienes la información y como debe de quedar, Saludos, Diego.
  3. Estimado @96andres96, en resumen, lo que quieres es tener un menú donde te vaya mostrando las nuevas hojas: algo así se me ocurre: Private Sub ComboBox1_Change() Sheets(ComboBox1.Text).Select End Sub Private Sub UserForm_Initialize() fil = 1 For s = 1 To Sheets.Count If Sheets(s).Name <> "Menu" Then Hoja1.Range("A" & fil) = Sheets(s).Name fil = fil + 1 End If Next uf = Hoja1.Range("A" & Rows.Count).End(xlUp).Row For i = 1 To uf ComboBox1.AddItem Hoja1.Range("A" & i) Next Columns(1).Clear End Sub te adjunto el ejemplo y adaptalo en tu proye
  4. Hola Diego,

     

    Vi tu aportación acerca de un Concatenado condicional en el cual sugerías un UDF de la sforma que adjunto, pero me gustaría saber que ajuste sugerirías para que el resultado lo pueda obtener separando por un salto de línea a cada uno de los valores que jala el concatenado. (Pensé que modificando la fórmula a  CARACTER (10) lo lograría, pero no fue así)

    De antemano muchas gracias!!

    Function ConcatenarSI(Criterios As Range, Condicion As String, Datos As Range, _
                            Optional Exacto As Boolean = False, _
                            Optional Separa As String = " ") As String
      Dim Criterio As Range, Sig As Integer, Coincide As Boolean: ConcatenarSI = ""
      For Each Criterio In Criterios: Sig = Sig + 1: Coincide = IIf(Exacto, _
        Criterio = Condicion, LCase(Criterio) = LCase(Condicion))
        If Coincide Then If Not IsEmpty(Datos.Cells(Sig)) Then ConcatenarSI = _
          ConcatenarSI & IIf(Len(ConcatenarSI), Separa, "") & Datos.Cells(Sig)
      Next
    End Function
    1. DiegoLG

      DiegoLG

      La verdad no entiendo a que te refieres con salto de linea.

      Si quieres adjunta tu archivo en el foro si no puedo ayudarte, estoy seguro que alguien mas te va ayudar.

      Saludos Amigo.

  5. Checa el archivo Saludos, Copia de PonerContraseñaBoton.xlsm
  6. Estimados, gracias por la ayuda, ya solucioné mi proyecto , Saludos,
  7. @Luis Antonio Torres Muchas gracias por el apoyo amigo, revisando y realizando pruebas, si tengo mas de 1 xml, solo me esta leyendo 1 xml y los otros xml no lo esta leyendo, En espera de tus comentarios. Saludos Amigo.
  8. Buenos días amigos, un gusto saludarlos de nuevo, Espero alguien me puede dar una idea de como puedo realizar este pequeño proyecto! Tengo un libro donde lee un archivo xml. Dentro del archivo xml trae complemento, como a continuación se muestra: Esta información ya lee el código, sin embargo, solo he logrado dejar esta información en una sola celda, pero lo que necesito es dejar en diferentes celdas cada IdDocumento. Cabe mencionar que en cada .xml esta información es variable. Adjunto archivo de ejemplo y unos xml por si necesitan realizar pruebas.
  9. Apenas empece a utilizar el UI Editor, la verdad no es muy complicado. lo trabaje en office 2013 y 2019, y no he tenido ningún problema. Saludos,
  10. Estimad@ @ofol Lo que no se si la columna K:L debe de cumplir exactamente las dos columnas. valida con este código: Sub combinar() For i = 8 To Hoja2.Cells(Rows.Count, "C").End(xlUp).Row If Hoja2.Cells(i, 3) = Hoja2.Range("K13") Or Hoja2.Cells(i, 3) = Hoja2.Range("L13") Then Hoja2.Range(Cells(i, 4), Cells(i, 7)).Merge If Hoja2.Cells(i, 3) = Hoja2.Range("K14") Or Hoja2.Cells(i, 3) = Hoja2.Range("L14") Then Hoja2.Range(Cells(i, 4), Cells(i, 7)).Merge If Hoja2.Cells(i, 3) = Hoja2.Range("K15") Or Hoja2.Cells(i, 3) = Hoja2.Range("L15") Then Hoja2.Range(Cells(i, 4), Cells(i, 7)).Merge
  11. Muchas gracias amigo, ya probé tu fórmula y funciona perfectamente, gracias a todos por el tiempo que me brindaron. Saludos, Tema solucionado.
  12. Tienes razón silvia. gracias por la observación... 🙂
  13. Ahora siii, ya valide el archivos, ambas respuestas es correcta, Me funcionó al 100 % agradezco el apoyo @Luis Caballero y @Silvia , la verdad, de plano me bloquee y no hallaba una forma hacer.. muchas gracias, Doy por tema solucionado. Saludos.
  14. Muchas gracias por la respuesta, una disculpa, desde el sábado no he podido checar el mensaje, mas tarde valido, y les cuento, Saludos y excelente día.
×
×
  • Create New...

Important Information

Privacy Policy