Jump to content

Max2005

Members
 View Profile  See their activity

  • Content Count

    202

  • Joined

  • Last visited

  • Days Won

    2

Posts posted by Max2005

  10. Posted · Report reply

    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

     

  18. Posted · Report reply

    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 !!!

  20. Posted · Report reply

    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

     

  21. Posted · Report reply

    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

     

  23. Posted · Report reply

    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

  I accept

CTA Templates.png