Jump to content

Dr Hyde

Members
  • Content Count

    498
  • Joined

  • Last visited

  • Days Won

    16

Everything posted by Dr Hyde

  1. prueba esta macro Sub colorear_fuente_condicionado() Set miRango = Range("a1").CurrentRegion With miRango filas = .Rows.Count For i = 1 To filas numero = .Cells(i, 1) Select Case numero Case 0, 1, 2, 4, 5, 7, 8 .Cells(i, 1).Font.ColorIndex = 3 End Select Next i .Cells(filas, 1).Interior.ColorIndex = 1 .Cells(filas, 1).Font.ColorIndex = 3 End With Set miRango = Nothing End Sub
  2. una ciclo do while es muy lento comparado con un ciclo For i, next, ademas es mucho mas rapido agregar los datos a la hoja a traves de una matriz todos a la vez en vez de 1 por uno como lo muestras, todas las soluciones planteadas aqui son mas eficientes que como lo planteas, en fin es la solucion que elegiste personalmente no la usaria y vaya que tengo años trabajando con sistemas de numeros aleatorios.
  3. prueba con esta macro, el valor que pones e fraccion Excel lo toma como un 1, asi que opte por usar un split para conseguir el valor en decimales de esa fraccion Private Sub CommandButton1_Click() TextBox4.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)) valor = Split(TextBox3, "/") resultado = valor(0) / valor(1) TextBox4.Text = (Val(TextBox1.Text) * Val(TextBox2.Text)) * resultado End Sub
  4. para generar numeros aleatorios hay diferentes metodos desde los mas simples a los mas complejos, usando el promedio y la desviacion o probabilidades como en la simulacion de montecarlo, en el archivo anexo veras una muestra de lo que quieres usando la funcion de Excel aleatorio.entre que junto con un contenedor de memoria filtraran los repetidos dejandote solo unumeros unicos numeros aleatorios.xlsm
  5. prueba esta macro, teclea en cualquier celda un nombre y añade numeros Y/o caracteres, la macro te indicara que no admite caracteres diferentes a letas y te pedira que tecles un nombre restriccion.xlsm
  6. prueba con esta macro, se maneja a base de matrices con un solo ciclo For para hacer el recorrido, la depuracion de los repetidos y el concatenado Prueba_Conca.xlsm
  7. lo unico que no pude resolver es el filtro por fechas y por horas, por lo demas puedes filtrar por cualquier columna, para lo que quieres hacer no ocupas un select case con autofiltros y una hoja auxiliar se resuelve, solo hay otro inconveniente al cargar el listbox se hace a traves de una matriz porque la macro hace la conversion serial a fecha para que asi la veas en el resultado final y cuando este es el caso no se pueden poner los encabezados al listbox, si uso el rowsource que si permite titular el listbox las horas y fechas quedan en numeros decimales Buscar con combobox y llenar en listbox_GP.xlsm
  8. y si usas in if por ejemplo if tiempo1>="23:59:00" and tiempo2<="00:00:00" then tiempo=1 (o tiempo=60 ) 'considerando 1 minuto 0 60 segundos segun lo requieras endif
  9. macro como tal no existe lo que puedes hacer es poner una condicion por ejemplo if x=2 then end cuando la condicion se cumpla la macro pondra fin a las macros que esten activas y que esten relacionadas con la macro donde esta la condicion, la instruccion END pone fin a la macro o macros.
  10. el problema de lo que pides es que si hay una formula matematica y es esta M/R=((i+1)-(i+1)^n)/i solo que tienes que ir variando el valor de i hasta que igual el valor de M/R por ejemplo por medio de la funcion tasa para estos datos Monto=8000, pago mensual=-200, años=4, interes o tasa sera igual a 0.0077015 por la funcion matematica tendrias que hacerlo asi primero pasas los años a meses y le sumas uno 8000/-200=(1+i)-(1+i)^49, luego vas poniendole valores al interes por ejemplo .05, 0.06, .07 -40=(1+0.00700147)+(1+0.00700147)^49 -40=-40.0580 como ves el valor del interes para que ambos lados de la ecuacion sean casi iguales es 0.00700147 y es casi similar a 0.0077015 al calculado con la funcion TASA, de hecho la funcion tasa hace el calculo de manera similar a lo que te explique. y esa es la funcion matematica equivalente a la funcion tasa.
  11. una forma mas corta seria esta, como no mencionas si en tu hoja hay mas informacion hace una copia de tu informacion en la hoja2, elimina los duplicados y hace la carga al combobox Sub cargar_combo() Range("e2").CurrentRegion.Copy With Sheets("hoja2").Range("a1") .PasteSpecial .CurrentRegion.RemoveDuplicates Columns:=1 matriz = .CurrentRegion End With ComboBox1.List = matriz Sheets("hoja2").Cells.Clear End Sub
  12. puedes usar una matriz de datos y la propiedad combobox1,list Sub cargar_combo() filas = Range("e1").CurrentRegion.Rows.Count matriz = Range("e1").Resize(filas, 1) ComboBox1.List = matriz End Sub
  13. Para que la macro funcione la tabla necesita esta como esta en el ejemplo adjunto, con eso es mas facil mas programacion como tu la tienes es muy dificil programar, la macro lee la informacion y confome tu escogas el pais la va sectorizando por estados primero, seleccionas un estado y la sectoriza por municipios, prueba y comentas, ojo el alcance de la macro solo tiene colo limites la cantidad de filas y columnas de la hoja, si tu quitas o agregas paises la macro lo tendra en cuenta la siguiente vez que la corras PAISES Y PROVINCIAS.xlsm
  14. cambia esta linea If ThisWorkbook.Sheets(NombreHoja).Cells(fila, 1) = ListBox1.Column(0) Then 'AQUI SE DETIENE LA INSTRUCCION If ThisWorkbook.Sheets(NombreHoja).Cells(fila, 1) = ListBox1.List(ListBox1.ListIndex, 1) Then tu instruccion le esta diciendo a Excel que coloque en una celda especifica toda la columna 0 del listbox1, con la instruccion que te paso solo el valor correspondiente a la fila de la columna 1 es la que se captura en la celda.
  15. prueba con esta macro Sub copiar_categorias() Set h1 = Worksheets("catalogo") Set h2 = Worksheets("hoja3") Set datos = h1.Range("a2").CurrentRegion Set lista = h2.Range("a3").CurrentRegion filasd = datos.Rows.Count filasl = lista.Rows.Count Set resultado = h2.Range("f3").Resize(filasd, 2) With lista For i = 1 To filasl If i > 1 Then Set resultado = resultado.Rows(filasd + 1).Resize(filasd, 2) resultado.Columns(1) = .Cells(i, 1) resultado.Columns(2).Value = datos.Value Next i End With Set resultado = Nothing: Set lista = Nothing End Sub
  16. @Sergio esto es lo que me aparece cuando pego la direccion IP que me pasaste si o es la forma de accesar por favor indicame como. @bigpetroman Gracias tu respuesta era una de las que yo esperaba, la otra ya la dio Sergio, fuera de eso ya no voy a contestar ningun otro comentario. Las dos respuestas me dejan satisfecho y como veo que esto va a en camino a una solucion y tambien se que solucionar se lleva su tiempo yo se esperar el tiempo que sea necesario, Asi que de nuevo honor a quien honor merece muchas gracias de nuevo a los dos.
  17. Gracias @Antoni por tu respuesta ya investigue el problema y va por otro lado.
  18. vaya, vaya, vaya @Silvia bien comencemos por el principio y este es el titulo del tema: Fallas en la pagina de ayudaexcel segun he visto cada que alguien sube un nuevo tema aparece de inmediato al lado derecho de la pantalla para que todos nos demos cuenta de que hay tema nuevo, yo siendo administrador o moderador si veo un mensaje con este titulo investigo cual es el problema, o si el problema lo tengo yo o el usuario/colaborador y lo que menos pensaria del colaborador/usuario es darle una respuesta como la que me acabas de dar, tu respuesta me dio la razon al no incluir a ningun moderador ademas las consultas y tu bien lo sabes (salvo excepciones) no se dirigen a nadie en particular o todos los que suben una consulta segun tu estan gritando al aire?. 2.- Me consta que ningun moderador lo vio o si lo vio lo ignoro por la siguiente razon en temas mas triviales le han indicado al usuario en una situacion similar a esta lo siguiente: tu tema ha sido movido a..... por no tener relacion con esta area, de hecho tu pudiendo moverlo a donde corresponde no lo has hecho tienes los permisos para hacerlo ¿o me equivoco? 3.- en serio tu solucion magica es el CCleaner?, esa es tu solucion sin hacer una investigacion sobre el tema? solo falta que me digas que borre las cookies o que use ctrl+alt+del y con eso se soluciona. 4.- ya que no vi respuestas inteligentes aqui o por lo menos una razonable me di a la tarea de investigar el porque me esta pasando esto y para tu informacion es la siguiente: el servidor donde esta alojada esta pagina usa un protocolo de seguridad (cifrado) RC4 el cual Google, Opera, Microsoft (y proximamente Mozilla) han dejado de usar por considerarlo inseguro y para evitar hackeos u otro tipo de ataques informaticos los mencionados navegadores simplemente bloquean el acceso a dicha pagina que use el mencionado protocolo, la unica solucion que me dieron y no hay otra es: informar al propietario de la pagina de esta situacion para que el tome las medidas necesarias y solo hasta que el solucione esta situacion podras acceder a esa pagina, para validar esto busque paginas con este protocolo y me pone exactamente la misma pantalla que subi y que estoy seguro que no vieron, tambien hay se explica claramente el problema. Ahora dime esto se arregla con un ccleaner? o con borrar las cookies? porque mi ccleaner hace limpieza de cookies automaticamente al cargar windows, ahora querer seguir colaborando en esta pagina es para ti renegar?, querer saber el porque ya no puedo accesar desde Chrome es renegar?, puedo entrar por Mozilla (por cuanto tiempo no se) pero a pesar que es mas ligero que Chrome es lentisimo simplemente me esta llevando mucho tiempo escribir esta respuesta por los continuos congelamientos que tiene pero bueno ese es mi problema. En fin que tengas buenas noches
  19. @sergio Vaya a pasado una semana desde que puse esta consulta y ningun administrador o moderador ha tenido la educacion o por lo menos la cortesia de responder, lo cual no habla bien de Uds. Vuelvo a preguntar a que se debe que me salga este mensaje (Anexo) en Google Chrome y Opera, la unica forma que tengo de entrar y eso cuando no deja de funcionar es a travez de mozilla, a alguien mas le pasa lo mismo con Chrome?.
  20. Buenos dias Quiza no sea el lugar para colocar esta duda que tengo ya que no se relaciona con las macros aunque si con el funcionamiento de esta pagina, ultimamente no se si alguien mas lo habra notado o no se sea mi maquina o algo que este haciendo diferente pero batallo para entrar a esta pagina, hace unas semanas tarde 3 dias en entrar cuando cargaba la pagina me salia un error que la pagina tenia caducos los sellos de seguridad o algo asi y me mandaba de una pagina de origami de un tal sergio, despues de eso empezo a poner un codigo 404 que me indicaba que esta pagina no existia y ahora me sale lo siguiente anexo una pantalla, la pregunta concreta ¿es normal esto?, cabe mencionar que entro a las paginas desde Google y para colocar este póst use el Mozilla pero el Mozilla no se porque alenta mi equipo y aqui viene mi segunda pregunta si esto ya paso en Chrome ¿pasara en otros navegadores?. Saludos y espero no incomodar con mi pregunta PD: Si ya no me ven por aqui o tardo en contestar los temas en los que participo no es nada personal las razones de mi ausencia o falta de respuesta las expuse lienas arriba
  21. checa las macros y checa tambien las columnas que tienes ocultas tienen errores de referencia. Columna.xlsm
  22. solo que este archivo es muy diferente al que te mande con la solucion planteada por Cacho R. este archivo esta basado en la informacion que enviaste para calcular polinomios de 4o grado, lo unico que le falta es aplicarle el Solver.
  23. prueba la macro, para cambiar la numeracion en todas las celdas solo cambia el valor en la celda ab5 EJEMPLO.xlsm
  24. solo da click en el boton EJEMPLO.xlsm
  25. antes de hacer la macro con la solucion planteada por R. Cacho te envie un archivo con una macro hecha con la informacion que me mandaste para el calculo de coeficientes, has intentado trabajar con ese archivo?, solo tienes que agregar las instrucciones para que el solver haga su funcion. Respecto a los problemas que tienes has visto todas las referencias?, dale un recorrido a todo el listado y desmarca las que tenga Falla: o Fail: esa son la que impiden que la macro se ejecute. Si el problema estuviera en la macro te enviaria a la linea que marca el error o bien las pondria en rojo en el editor de VBA. como quiera te mando de nuevo la macro previa a la informacion que mando R. cacho. InterseccionDeGraficas (2).xlsm
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png