Jump to content

jhon fredy

Members
  • Content Count

    56
  • Joined

  • Last visited

About jhon fredy

  • Rank
    Advanced Member

Recent Profile Visitors

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

  1. hola expertos buenas tardes mi idea es la siguiente en este libro1. un mensaje que me diga que celdas desea marcar de color rojo en la hoja22. de acuerdo al listado numerico de la columna A de hoja actual enviar el listado de numeros que cumple con la posicion del color de la hoja2 Libro1.xlsm
  2. buenos días como puedo disminuir el rango de datos para que vayan de 0 a 9 y no de 10 a 24 en este libro y si me puedes mostrar el código que se efectua en este libro gracias estadistica1.xls
  3. expertos buenos dias como puedo unir las celdas como se muestran en el libro pista.xlsx
  4. hola buenas tardes quisiera saber como puedo ejecutar este codigo cambiandole esta linea Sheets("santander").Select por hoja activada o la hoja seleccionada el codigo completo es este Sub buscaCuadro() Dim nrop As String 'busca la combinación de nros en los cuadros de pista Set hopi = Sheets("pista") Sheets("santander").Select 'limpiar pista de colores anteriores 'opcional hopi.Range("E2:AV40").Interior.PatternColor = xlNone 'se recorre col AP de hoja resultado For x = 2 To Range("AL" & Rows.Count).End(xlUp).Row nrop = Range("AL" & x
  5. algun libro excel que contega todo lo anterior mencionado
  6. hola expertos como puedo modificar el principio de este codigo con la idea de transpasar no solamente los dato de la columa B sino tambien los datos de la columna A,B,C Sub zero() Dim ultimaCeldaDatos As String 'hallar la ultima celda con datos de la columna B de la hoja estadistica ultimaCeldaDatos = Sheets("analisis").Cells(Rows.Count, 2).End(xlUp).Row 'copiando datos de columna B Sheets("analisis").Range("b5:b" & ultimaCeldaDatos).Copy Sheets("archivo").Select 'posicionando en la celda donde pegare los datos en la hoja archivo Sheets("archivo").Cells(2, Columns.Count).End(xlToLe
  7. hola buenas tardes , tengo el siguiente codigo y me gustaria ampliar el rango ,que cambie de columna B a columna A,B,C para poder analizar dichos datos Sub Aleato() borrar_anteriores With Application .ScreenUpdating = False .DisplayAlerts = False '-- ufila99 = 1 + Sheet99.Cells(Rows.Count, 1).End(xlUp).Row tf = Sheets("estadisticas").UsedRange.Rows.Count tc = Sheets("estadisticas").UsedRange.Columns.Count '-- For x = 1 To 20 Do: f = Int((tf * Rnd) + 1) c = Int((tc * Rnd) + 1) Loop Until Sheets("estadisticas").Cells(f,
  8. la idea es extraer cualquier dato de la hoja1 a la celda a1 de la hoja2 y mediante un spin button ir cambiando cualquier dato de la hoja1 gracias
  9. hola-expertos-como-puedo-hacer-funcionar-esta-sopa-de-letras-teniendo-los-codigos-incluidos-en-el-libro sopa de letras.xlsm
  10. la-idea-es-como-puedo-exportar-valores-de-la-hoja1-a-hoja2-mediante-un-spin-button-a-la-celda-a1- Book1.xlsm
  11. como hago para que funcione con la misma idea que la primera
  12. como puedo cambiarle la linea a este codigo que en vez de colorear me bordee la celda Sub Macro1() ' ' Macro1 Macro ' ' Sheets("hoja1").Select With ActiveWorkbook.Sheets("programa4cifras").Tab .color = 255 .TintAndShade = 0 End With Sheets("hoja2").Select With ActiveWorkbook.Sheets("hoja2").Tab .ThemeColor = xlThemeColorAccent6 .TintAndShade = -0.249977111117893 End With Sheets("hoja3").Select With ActiveWorkbook.Sheets("hoja3").Tab .ThemeColor = xlThemeColorAccent1 .TintAndShade = -0.249977435298762 End
  13. como puedo hace rpara que se ejecute el mismo proceso en la siguiente hoja (hoja1) cada vez que se cambia la celda en la columna Q prueba1.xlsm
  14. una pregunta para el administrador sergio propergol ¿como me asegura usted como administrador de la pagina que mi informacion es privada? se que mis ideas del proyecto son publicas todos lo sabemos, pero quien me asegura a mi que otras personas hackeen mis paginas personales o mis proyectos los pongan en venta para beneficio propio o a terceros ya que muy bien sabemos que tanto aca en mi ciudad como es españa da para carcel y esto se tomaria como un delito judicial espero que mi proyecto no peligre
×
×
  • Create New...

Important Information

Privacy Policy