Hola!

Exelente foro, tengo un problema ya que no puedo correr el bucle, bueno explico lo que quiero hacer, tengo varias columnas y de las cuales cada fila cuenta con un valor diferente, en una nueva columna se debe sacar el numero mayor de cada fila, despuès de eso en otra columna se debe hacer con un bucle la resta del numero mayor con cada una de las columnas y cada que sea 0 asignar un nombre, pero me sale el error 1004.

este es el codigo:

f = 1

For Each o In Range("R2:R6362").Cells

Nombre = ""

b = 0

f = f + 1

For porce = 0 To 7

Set a = Worksheets("ejemplos").Cells(f, porce)

a = a + 1

If (o = 0) Then

o.Value = "Sin datos"

Nombre = o.Value

End If

If (o.Value = llamar) Then

Select Case a

Case 1:

Nombre = Nombre & Cells("D2").Value & ("/")

Case 2:

Nombre = Nombre & Cells("E2").Value & ("/")

Case 3:

Nombre = Nombre & Cells("F2").Value & ("/")

Case 4:

Nombre = Nombre & Cells("G2").Value & ("/")

Case 5:

Nombre = Nombre & Cells("H2").Value & ("/")

Case 6:

Nombre = Nombre & Cells("I2").Value & ("/")

Case 7:

Nombre = Nombre & Cells("J2").Value & ("/")

Case 8:

Nombre = Nombre & Cells("K2").Value & ("/")

Case 9:

Nombre = Nombre & Cells("L2").Value & ("/")

Case 10:

Nombre = Nombre & Cells("M2").Value & ("/")

End Select

End If

Next porce

o.Value = Nombres

Next o

End Sub

creo que el sacar el umero mayor no hay tanto problema, pero a la hora de asignar el nombre es donde se de de sacra por medio de restar la columna de numero mayor menos cada calumna y despues a la hora de restar y que de 0 se le asigna el nombre

ejemoloforo.zip

Adjunta un archivo ejemplo, con datos ficticios...........normas del foro...........

Un saludo,

Tese