Jump to content

fredy122

Members
  • Content Count

    10
  • Joined

  • Last visited

About fredy122

  • Rank
    Member

Converted

  • Campos
    ,

Recent Profile Visitors

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

  1. hola expertos tengo este libro y me gustaria mejorar su formulario agregando que busque la media aritmetica , mediana, varianza,error tipico, moda,desviacion estandar,varianza de la muestra,curtosis,coeficiente de asimetria,coeficiente de variacion les agradeceria mucho si no se puede todos por lo menos los que se puedan Simular Barra Estado.xlsm
  2. Alguna manera de desproteger el libro maestro
  3. expertos buenos dias como puedo desarrollar esta idea si tengo en una hoja varios numeros de 4 cifras y al seleccionarlos me mostrara su estadistica descriptiva ( media,error estandar,mediana,moda,desvio estandar, varianza,kurtosis,asimetria,rango,minimo,maximo,suma,cuenta) en un formulario no modal si no es posible que me muestre todas las descripcioness anteriores por lo menos las que mas se puedan o si alguien tiene en su archivo de programacion algo parecido me gustaria que me lo accedieran muchas gracias
  4. y lo mismo con el codigo byfejoal del libro que envie como puedo modificarlo o reducirlo y ademas me da error en esta linea .celda1.interior.color =colormarca
  5. maestro antoni entendi mi error pero habra alguna otra forma de expresar esa misma linea de codigo
  6. maestro este es el libro y lo que necesito es enviar los numeros que estan en probables a una hoja destino https://drive.google.com/open?id=1X5ZAoOscZa7Jd4i4AQ4p0k2nIKEjwBmK
  7. como puedo mejorar este codigo byfejoal para que realice la condicion de resaltar las celdas azules que estan cerca a la celda de borde a una distancia de 21 celdas anterior y porterior a la celda de borde el codigo realiza ese proceso pero me gustaria que el codigo fuera un poco mas reducido y ademas tengo problema con esta linea del codigo sub color Sub color() Worksheets("hoja2").Range("b2:ac33").Interior.color = xlNone Set ha = Worksheets("hoja2").Range("b2:ac33") Set hn = Worksheets("hoja1").Range("a1:cy42") 'controlar rango For i = 1 To hn.Cells.Count 'si la columna es par se omite If hn.Cells(i).Column Mod 2 = 0 Then GoTo SALIDA numero = hn.Cells(i) cuenta = WorksheetFunction.CountIf(ha, numero) If cuenta > 0 Then For j = 1 To cuenta If j = 1 Then Set busca = ha.Find(numero) If j > 1 Then Set busca = ha.FindNext(busca) On Error Resume Next 'si no se encuentra busca se omite el error Celda = busca.Address If Worksheets("hoja2").Range(Celda).Interior.ColorIndex = xlNone Then Worksheets("hoja2").Range(Celda).Interior.ColorIndex = 6 End If Next j End If SALIDA: Next i End Sub les agradezco la colaboracion si alguien me puede ayudar a resolverlo BuscarHoja2.xlsm
  8. es que son dos libros uno se llama analisis2018 y el otro se llama porograma 4 cifras y de acuerdo a ese procedimiento se pegan ciertas celdas de un libro a otro lo que quisiera es acortar este codigo anterior de otra manera
  9. como puedo modificar este codigo de pegado de un libro a otro libro ejecutandose a partir de la celda ax1 a cw 42 Sub Macro40() ' ' Macro40 Macro ' ' ActiveCell.Select Windows("programa 4 cifras 1.xlsm").Activate ActiveCell.Offset(-36, -2).Range("A1:D6").Select Selection.Copy Windows("Analisis2018.xlsm").Activate Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(-36, 4).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(-36, 4).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy Windows("Analisis2018.xlsm").Activate ActiveCell.Offset(6, 0).Range("A1").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows("programa 4 cifras 1.xlsm").Activate Application.CutCopyMode = False Calculate Selection.Copy
  10. hola experto la idea es como reducir o modificar este codigo byfejoal ya que lo que realiza es resaltar en la hoja 2 las celdas azules que estan cerca de la celda de borde grueso ejemplo2.xlsm
  11. como puedo hacer para que al seleccionar cualquier celda de la columna A me coloree ese numero en los cuadros tablaresultados (1).xlsm
  12. hola buenos dias a todos estoy tratando de buscar un patron numerico entre los cuadros de acuerdo a sus movimientos cada vez que cambie el numero y primero me gustaria que los numeros queden en color blanco como en el ejemplo del primer cuadro para visualizar mejor sus movimientos y lo segundo seria que hiciera el movimiento de color rojo en los cuadros de acuerdo a cada celda de la columna A en vez de lo que esta haciendo con las flechas actualmente y como dije desde un principio busco un patron numerico tomando como ejemplo los movimientos en la tabla de ajedrez si alguien tiene una gran idea para identificar o que me acerque al patron numerico se los agradeceria mucho tablaresultados.xlsm
  13. maestro gerson el ultimo codigo del maestro leopoldo me funciona no me importa el tiempo pero podremos modificar el codigo ya que me ocasiona otro problema con un codigo de mi libro eliminando los repetidos y dejando la celda en blanco le agradeceria mucho
  14. muchas gracias maestro asi lo estaba buscando
  15. hola expertos algun codigo que de acuerdo al numero que este en la columna z lo busque en el rango a1:w42 y si lo encuentra colocarle borde grueso a esa celda Libroprueba.xlsm
×
×
  • Create New...

Important Information

Privacy Policy