............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

macros mal ayuda ????

Ver el tema anterior Ver el tema siguiente Ir abajo

macros mal ayuda ????

Mensaje por Invitado el Jue Sep 27, 2012 12:23 pm

Hola tengo Un libro Excel que no funciona lo he modificado y no funciona bien. Creo que tiene mal los códigos o macros
El problema que tiene:
He generado 11 columnas A, B, C, D.E, F, G, H, J, K con 10 celdas cada columna y en cada celda tenga 1 número pero 10 celdas por columna y en cada celda tenga 1 número pero 10 celdas por columna

Y una columna h que tenga 40 celdas con números del 1 al 40
Y que repartan los números de esta columna h las columnas A, B, C, D.E, F, G, H, J, K
Pero no funciona bien.
Soy novato y necesitaría algo de ayuda

Invitado
Invitado


Volver arriba Ir abajo

tengo el codigo que tiene libor excel

Mensaje por Invitado el Jue Sep 27, 2012 12:26 pm



este es el codigo macro que tiene el libro excel como no puedo subir el libro lo he puesto asi.

gracias por todo

For n = 1 To 110
nsort.Add Worksheets("Hoja1").Range("K" & CStr(n)).Value
Next n

For n = nsort.Count To 1 Step -1
sort = Int(n * Rnd + 1)
col2.Add nsort(sort)
nsort.Remove sort
Next n

For n = 1 To col2.Count
Worksheets("Hoja1").Cells(n, 1) = col2(n)
Next n

Selection.Cut Destination:=Range("B1:B10")
Application.CutCopyMode = False
grupo2 = Range("A11:A20").Select
Selection.Cut Destination:=Range("B1:B10")
Application.CutCopyMode = False
grupo3 = Range("A21:A30").Select
Selection.Cut Destination:=Range("C1:C10")
Application.CutCopyMode = False
grupo4 = Range("A31:A40").Select
Selection.Cut Destination:=Range("D1:D10")
Application.CutCopyMode = False
grupo5 = Range("A41:A50").Select
Selection.Cut Destination:=Range("E1:E10")
Application.CutCopyMode = False
grupo6 = Range("A51:A60").Select
Selection.Cut Destination:=Range("F1:F10")
Application.CutCopyMode = False
grupo7 = Range("A61:A70").Select
Selection.Cut Destination:=Range("G1:G10")
Application.CutCopyMode = False
Grupo8 = Range("A71:A80").Select
Selection.Cut Destination:=Range("H1:H10")
Application.CutCopyMode = False
grupo9 = Range("A81:A90").Select
Selection.Cut Destination:=Range("I1:I10")
Application.CutCopyMode = False
grupo10 = Range("A91:A100").Select
Selection.Cut Destination:=Range("J1:J10")
Application.CutCopyMode = False



Range("K1").Select

Application.ScreenUpdating = True

End Sub
]

Invitado
Invitado


Volver arriba Ir abajo

Re: macros mal ayuda ????

Mensaje por icehell el Jue Sep 27, 2012 2:48 pm

Hola aaaamigueete, soy el pesado que te sigue dando soluciones, pega esto y ya me dirás,
Código:
Sub aaaamigueete()

Dim i As Integer, j As Integer
Dim a() As Long
Dim esta As Boolean
Dim x As Long, y As Long, z As Long, num As Long

    x = 1
    y = 40
    z = 10
For r = 1 To 10
    ReDim a(z)
    Randomize
    a(1) = Int((y - x + 1) * Rnd + x)
        For i = 2 To z
            Do
                num = Int((y - x + 1) * Rnd + x)
                esta = False
                For j = 1 To i - 1
                    If num = a(j) Then esta = True: Exit For
                Next j
            Loop While esta
        a(i) = num
        Next i

    For i = 1 To 10
        Cells(i, r) = a(i)
    Next i
    Next r
End Sub

Por mi parte es todo, hasta aquí llegué, suerte.
avatar
icehell

Masculino Cantidad de envíos : 64
Edad : 43
Ciudad - Pais : Arrecife
Version de Excel : 2010
Fecha de inscripción : 26/11/2010

http://icehellsoftware.260mb.org/

Volver arriba Ir abajo

Re: macros mal ayuda ????

Mensaje por Invitado el Jue Sep 27, 2012 5:02 pm

Icehell muchas gracias.
Pero no sé como lo has hecho pero ahora me funciona y parece muy bien Lo único que tiene que las columnas B,C,D,E, No tienen los mismos colores que tienen el resto de las columnas
Lo único que he hecho copiar tu código y se ha acoplado al libro Excel y no sé como ha pasado pero parece que funciona.
Intentare arreglarlo a ver si puedo
Bueno muchas gracias de corazón por todo desde Málaga
Aaaamigueete


Invitado
Invitado


Volver arriba Ir abajo

Re: macros mal ayuda ????

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.