Jump to content

Max2005

Members
  • Content Count

    202
  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Max2005


  1. Hola @Haplox,

    No se si fue tu intención para que @diego920 pensara en la respuesta 5 y obtubiera por el la solución a su "EXAMEN", ya que yo tambien creo que es un examen, pero con SumaProducto me da un resultado diferente, dejo mi aporte. 

    =SUMAPRODUCTO(($C$4:$C$252="Alimentos")*H4:H252+(($C$4:$C$252="Bazar")*H4:H252)+(($C$4:$C$252="Papeleria")*H4:H252))

    de cualquierforma, le quedan 9 respuestas por resolver

    Saludos !!!

    Mucha Suerte

     


  2. Hola @sprit36

    Mi separador de Argumentos es ",", tal vez el tuyo es ";" pero date cuenta que las respuestas te llevan al mismo resultado, solo es un poco mas como lo indica @Mauricio_ODN

    Hace 13 minutos , Mauricio_ODN dijo:

    tu hubieras podido modificarlo

    Yo corrobore ambas respuesta tanto la de el como la mia y funcionan, solo tienes que hechar a volar tu imaginación, no solo estas pueden ser las respuestas, hay un sin fin de posibilidades

    Saludos Amigos !!!


  3. Hola @DICXON_A,

    Entendiendo que tu solicitud es para transferir los datos de la hoja Libro Revisado a Definitivo y que depende de las filas de la celda C1 de tu hoja Libro Revisado, pero si solo quieres pasarlas filas de acuerdo a tus registros, te dejo este código, aunque no se si sea lo que necesite, pues si cambia la cantidad de registros ¿se debe sobre poner o como?

    Sub Transferir()
    'Max2005
        Sheets("LIBRO REVISADO").Select
        x = Range("C1")
        Range("A3:R" & 3 + x).Copy
        Sheets("DEFINITIVO").Select
        Range("A9").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        
        With Selection.Interior
            .Pattern = xlNone
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
        
        Range("A1").Select
    End Sub

    Saludos !!!

    Mucha Suerte

     


  4. Hola @Jamel

    Coloca este código dentro de tu módulo y ejecutalo, te va ha borrar el formato de tu hoja, pero lo puedes poner despues

     

    Option Explicit
    Public sLn As String
    Public sFName As String
    Public iFNumber As Integer
    Public lR As Long
    Public lC As Long
    Public vVal As Variant
    Public iC As Integer
      
    Public Sub ExtraerTxt()
    'Max2005
        Sheets("01").Select
        Range("A1").Select
       
        sFName = "C:\01.txt" 'Cambiar a la ubicación de tu base de datos TXT
        iFNumber = FreeFile
        
        Open sFName For Input As #iFNumber
        Hoja1.Cells.Clear
        lR = 2
        
        Do
            Line Input #iFNumber, sLn
            vVal = Split(sLn, "|")
            
            With Hoja1
                lC = 1
                For iC = LBound(vVal) To UBound(vVal)
                    .Cells(lR, lC) = vVal(iC)
                    lC = lC + 1
                Next iC
                
            End With
            lR = lR + 1
        Loop Until EOF(iFNumber)
        
        Close #iFNumber
    End Sub

    Espero sea lo que necesitas

    Saludos !!!

    Mucha Suerte

     


  5. Hola @johnmpl y @richicho24

    Excelente aporte John, estaba leyendo y tratando de entender la solicitud y llegaron tus respuestas, y solo tengo una pregunta de acuerdo a lo que había entendido, no primero se tendría que orden por la columna "Q", esta haciendo una Macro y puse:

    Range("A1", Cells(uF, "V")).Sort Key1:=Range("Q1"), Order1:=xlAscending, Header:=xlGuess

    Y posterior obtener los duplicados,

    Saludos !!!

    Mucha Suerte  @richicho24

×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png