Jump to content

MarcoP

Members
  • Posts

    12
  • Joined

  • Last visited

  • Country

    Costa Rica

About MarcoP

Converted

  • Campos
    ;

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

MarcoP's Achievements

  1. Ya lo probé y Siguen los resultados bizarros.
  2. F22.xlsm Buenas noches un fraternal saludo. Tengo el siguiente código del que necesito encontrar la forma de que no me dé un resultado indeseado que obtengo. Sub MFD() ' ' ' P3FD1 Macro Dim fin As Long, final As Long Dim i As Long, j As Long, n As Long With Sheets("FD") ' With ThisWorkbook.Worksheets("Datos") fin = Application.CountA(.Range("A:A")) final = Application.CountA(.Range("1:1")) For i = 1 To final - 1 scadena = vbNullString n = .Cells(1, i + 1) For j = 1 To fin If .Cells(j, i) = n Then .Cells(j, i).Interior.Color = vbBlack If .Cells(j, i) = n Then .Cells(j, i).Font.Color = vbRed scadena = Trim(scadena & " " & .Cells(j, i)) scadena = Trim(Replace(scadena, n, "")) scadena = n & " " & scadena Next j matriz = Split(scadena, " ") c = 1 For Each numero In matriz .Cells(c, i + 1) = numero c = c + 1 Next numero Next i End With Range("A90").Select End Sub Sub MFU() ' ' ' P3FD1 Macro Dim fin As Long, final As Long Dim i As Long, j As Long, n As Long With Sheets("FU") ' With ThisWorkbook.Worksheets("Datos") fin = Application.CountA(.Range("A:A")) final = Application.CountA(.Range("1:1")) For i = 1 To final - 1 scadena = vbNullString n = .Cells(1, i + 1) For j = 1 To fin If .Cells(j, i) = n Then .Cells(j, i).Interior.Color = vbBlack If .Cells(j, i) = n Then .Cells(j, i).Font.Color = vbRed scadena = Trim(scadena & " " & .Cells(j, i)) scadena = Trim(Replace(scadena, n, "")) scadena = n & " " & scadena Next j matriz = Split(scadena, " ") c = 1 For Each numero In matriz .Cells(c, i + 1) = numero c = c + 1 Next numero Next i End With Range("A1").Select End Sub El codigo trabaja bien con numeros del 0 al 9, pero no de 0 a 99. De 0 a 9 trabaja bien, de 0 a 99 da resultados bizarros. Ese es el problema que necesito corregir. adjunto archivo de excel con una muestra.
  3. Buenas Sergio.

    necesito una ayuda. Por favor.

    es algo super sencillo, pero para mí, me da pena, no lo puedo hacer.!

    requiero dar la posición de un número de 0 a 9 de una lista de a1 a a10,

    y el número a buscar está en b1.

    a1   b1

    6     5  
    3  
    5  
    0  
    9  
    2  
    8  
    7  
    1  
    4  

    X=3

    Requiero en la pocision de la celda x, me diga en que lugar de la lista está el 5, en este caso "3.".

    me puede ayudar.?

    gracias.

     

     

     

     

     

     

     

    1. Sergio

      Sergio

      Marco, esto es un mensaje privado y desde aquí no respondemos a dudas, ya que puede ayudar a más personas.

      Por favor, plantea la cuestión en el foro correspondiente.

       

    2. MarcoP

      MarcoP

      Buenos días Sergio.

      Gracias por la aclaración. para el futuro lo haré así.

      saludos.

      mp.

       

×
×
  • Create New...

Important Information

Privacy Policy