jhon fredy

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

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

expertos buenos dias como puedo unir las celdas como se muestran en el libro pista.xlsx

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

gracias

algun libro excel que contega todo lo anterior mencionado

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

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,

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

hola-expertos-como-puedo-hacer-funcionar-esta-sopa-de-letras-teniendo-los-codigos-incluidos-en-el-libro sopa de letras.xlsm

la-idea-es-como-puedo-exportar-valores-de-la-hoja1-a-hoja2-mediante-un-spin-button-a-la-celda-a1- Book1.xlsm

como hago para que funcione con la misma idea que la primera

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

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

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