Jump to content

rogermv27

Members
  • Content Count

    6
  • Joined

  • Last visited

Everything posted by rogermv27

  1. Realice estos cambios y si funciono a lo que quiero, si esta bien la macro me corrigen por favor, muchas gracias por su tiempo Sub Ocultar_Columna_y_mostrar() Sheets("Hoja1").Select For Col = 33 To 78 If Cells(13, Col) = 0 Then Columns(Col).EntireColumn.Hidden = Not Columns(Col).EntireColumn.Hidden Else Columns(Col).EntireColumn.Hidden = False End If Next End Sub
  2. Hola Buenas tardes,Como puedo hacer para esta macro de ocultar los valores en cero de la fila 13 del rango de columnas del 33 al 65la macro cumple su cometido pero si quiero volver a mostrar todo incluido los valores en cero como seria ?Agradeceré mucho si me apoyan, grcsSub Ocultar_Columna_y_mostrar()Sheets("Hoja1").SelectFor Col = 33 To 65If Cells(13, Col) = 0 ThenColumns(Col).EntireColumn.Hidden = TrueElseColumns(Col).EntireColumn.Hidden = FalseEnd IfNextEnd Sub
  3. Hola Buenas Tardes,

    Si alguien me puede ayudar para extraer la informacion de los archivos xml al formato excel

    Gracias por su ayuda le estare agradecido

    Saludos,

    Roger

     

     

     

     

    Lectura del XML.zip

  4. Hola Buenas Tardes,

    Si podrian ayudarme con esta macro de generar txt con pipe

    Lo he realizado con captura de una celda por el momento y lo que deseo es que capture toda la columna B de la celda 2 hacia abajo (que tenga informacion)

    Asi mismo encontre una macro en el foro pero no logro ajustarlo a lo que requiero y lo pueden adicionar que asu vez el archivo txt generado lo comprima en zip

     

    Sub CreaTXT()
    
        Dim NombreArchivo, RutaArchivo As String
        Dim obj As FileSystemObject
        Dim tx As Scripting.TextStream
        Dim Ht As Worksheet
        Dim i, j, nFilas, nColumnas As Integer
        
        NombreArchivo = "XXXXT02"
        RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".txt"
        
        Set Ht = Worksheets("Datos")
        Set obj = New FileSystemObject
        Set tx = obj.CreateTextFile(RutaArchivo)
        
        nColumnas = Ht.Range("A1", Ht.Range("A1").End(xlToRight)).Cells.Count
        nFilas = Ht.Range("A2", Ht.Range("A2").End(xlDown)).Cells.Count
        
        For i = 1 To nFilas
        
            For j = 1 To nColumnas
                    
                tx.Write Ht.Cells(i + 1, j).Value
                If j < nColumnas Then tx.Write "|"
                    
            Next j
                    
            tx.WriteLine
        
        Next i
        
        tx.Close
        
        Set obj = Nothing
        
        MsgBox "El txt XXXXT02 se ha generado con exito..."
    
    End Sub

     

    txt con pipe.rar

×
×
  • Create New...

Important Information

Privacy Policy