Jump to content

MisterHP

Members
  • Posts

    194
  • Joined

  • Last visited

Everything posted by MisterHP

  1. Gracias por preocuparte en responder y preparar un ejemplo, ahora bien hasta ahi ya estoy claro pero como se asigna la letra a presionar en el caso de ACEPTAR sin tener que usar Enter, ya vimos que funciona con S y N o en su defecto si la maquina estuviera en ingles seria Y o N pero el caso especifico que busco es sin usar Enter por eso hablaba de asignar letras al un MsgBox sin usar otros comando habituales.
  2. Ok acabo de entender los puntos que me mencionas lo que si tengo como problema es que en mi caso S no funcionaba por estar mi maquina en ingles, supongo que la letra debe ser y, pero bien como el 90 por ciento pulsamos aceptar solo habria q moverse para que sea un no porque si se presiona no se marca el aceptar es mi caso segun lo que he probado, pero bien como podria solucionar el OK? ya que si presiono O no funciona y trate presionando todas las letras del teclado y no respondia.
  3. Gracias a los que han respondido lo que busco es agilizar el proceso de aceptar o negar o al indicar Ok que solo al presionar una letra que sea predeterminada en el teclado afirma lo que busco sin tener que presionar mas teclas o tomar el mouse y hacer click con el, por supuesto tal como se comenta la solucion que he visto es creando un userform pero ya eso seria algo mas largo y lo que busco es una solucion simple pero por lo visto creo q solo seria posible mediante form por lo que tendre que obviarla y seguir asi.
  4. Gracias por responder, he visto en otros programas que cuando te pregunta si o no, solo pulsas una tecla por ejemplo s o n o o de ok y algo asi es q busco no tener que hacer otro tipo de acceso mas rapido ni usar el mouse sino acelerar el proceso de confirmacion.
  5. Amigos todos, traigo una inquietud respecto a como hacer que al realizar algo como esto: If MsgBox("Desea Imprimir los Datos que se Encuentran en el ?", vbYesNo) = vbYes Then If MsgBox("¿Realmente quiere eliminar el registro seleccionado", vbQuestion + vbYesNo, "INFORMACION DE ADVERTENCIA") = vbYes Then como hago para que se me permita presionar una tecla en forma de acceso rapido es decir si elijo S o N se seleccione lo que deseo, que funcione como los commabutton que uno puede elegir una letra rapida pero a diferencia de que en este caso solo seria una sola? Gracias
  6. Hola nuevamente no tuve oportunidad de volver a responder, deseo que se ejecute al realizar algun cambio en la celda donde introducire lo que quiero buscar. Gracias, saludos
  7. Amigos gracias a ambos por la colaboracion q me hacen han aceptardo ambos aunque tal como explico Gerson queria saber la direccion, ahora solo una cosita mas como hago para que se ejecute sola sin tener q colocar un boton que cuando cambie el dato automaticamente me de el resultado?
  8. Hola amigos todos, despues de unos dias ausente he regresado por aca para solicitar la ayuda de ustedes con lo siguiente: Quisiera buscar el valor que introduzca en D1 segun los datos que se encuentra en una fila desde E1:P1 y me informe en cual columna se encuentra si encuentra mas resultados me informe tambien en cuales otras esta ese valor, es decir si por ejemplo yo en D1 pongo 5 y este valor esta en la columna F1 me informe que este valor esta en F1, sino lo encuentra me informe que no se encuentra ese valor. Me perdonan por no subir un archivo pero debido a restricciones no puedo alojar en la web archivos. Gracias,
  9. Excelente, gracias era lo que buscaba cualquier cambio estudio el codigo y lo modifico. Saludos,
  10. Hola a todos despues de unos dias de ausencia estoy de regreso por aca. Me pasa lo siguiente tengo un archivo con varias columnas con unos valores que desearia que estos sea multiplicados segun el valor que hay en una celda e inmediatamente se sustituyan en la misma celdan donde estan ubicados, como no sabia si esto se puede lograr con una formula o con una macro. Subo el archivo. Gracias por adelantado. Saludos, Multiplicar.rar
  11. Hola a todos me uno a este aporte pero haciendo unas pruebas veo que no me arroja los datos esperados: Coloque estos valores asi: CAPITAL NOMINAL 24,000 PERIODO AMORTIZACION 36 TIPO INTERES ANUAL 32.00 FECHA (DD/MM/AAAA) 12/09/2010 INTERES MENSUAL 2.67% INTERES DIARIO 0.09% Obtuve esto: TOTAL 8,410,952.31 -8,160,397.46 250,554.85 Por cierto creo que conviene tomar dinero prestado en otros paises jeje ya que mirando veo q las tasas de interes son muy bajas considerando que pago un de un 28% a un 32% Anual.
  12. Gracias amigo excelente, ya si puedo dar como resuelto el tema y en caso de requerir alguna otra cosa pues abrire un tema nuevo. Hasta una proxima. Gracias,
  13. Buen dia, retomando el tema y ya solo una cosa mas, como se le da formato numero al listbox de manera que quede asi ###,###,###.00 suponiendo que quisiera darle formato a este .Column(4, ListBox1.ListCount - 1) = C.Offset(0, 3).Value
  14. Acabo de solucionar el problema todo tenia que ver con el ancho de las columnas que le habia dado mas valores que los que deseaba mostrar. Gracias mil, mas adelante comentaré si todo va bien para dar por solucionado el tema.
  15. Ok acabe de editar el tema antes de este para que veas el archivo estaba tratando de modificar y no lo logre y lo deje tal cual.
  16. Ok entonces como deberia quedar en el caso de la columna 5 el listbox? estuve ahora probando y no logro hacerlo pero bien subo el archivo asi es mejor de comprender. GigaSize.com: Host and Share your Files
  17. Gracias por responder, lo que comento en el anterior tema se trata de un listbox que me ayudaste en el que se mostraban los datos de una columna como veo la utilidad de usarlo en otro formulario que tengo pero que los datos que va a traer estan organizados distintos hay una columna que deseo traer pero debido a la programacion anterior no me la trae solo las tres primeras columnas pero no asi una que esta mucho mas lejos a esa. Este es el codigo que pienso que tiene que ver con esto aunque podria que falte mas. With ListBox1 .ColumnCount = 5 .ColumnWidths = "20;260;60;60" .AddItem ListBox1.ListCount + 1 .Column(1, ListBox1.ListCount - 1) = C.Value .Column(2, ListBox1.ListCount - 1) = C.Offset(0, -1).Value .Column(3, ListBox1.ListCount - 1) = C.Offset(0, -2).Value .Column(4, ListBox1.ListCount - 1) = C.Offset(0, 25).Value End With La columna es la numero 25 que es la que no me funciona, las demas si lo hace. Gracias
  18. Ok Stack gracias por responder, aunque expuse que en cuanto a lo ofrecido por Logroastur va excelente solo hay un unico problema y es que hay cliente q tengo que tienen digitos numeros pero que al ingresarlos en el combobobox estoy recibiendo un error 1004 y hay q examinar la funcion que esta probocando esto.
  19. Bueno espero en cuanto se pueda corregir esta parte error 1004 y dice q no se puede obtener la propiedad Match de la clase worksheet function para poder completar lo que necesito, este error solo se recibe si en los clientes tengo alguno que sean clientes con datos numeros, y ya respecto a lo que dije antes del listbox que estaba trabajando en el poder incluir una columna mas. Gracias,
  20. Bueno creo que el cambio era simple solo hacer esto: Private Sub UserForm_Initialize() Dim celda Dim x For Each celda In Sheets("Clientes").Range("A2:A" & Sheets("Clientes").Range("A" & Rows.Count).End(xlUp).Row) x = WorksheetFunction.CountIf(Sheets("Clientes").Range("A2:A" & celda.Row), celda) If x = 1 Then ComboBox1.AddItem celda End If Next celda End Sub Algo que olvide mencionar por que no me permite tener clientes que tengan solo codigos con numeros y solo con letras ya que si lo hago recibo error 1004 y dice q no se puede obtener la propiedad Match de la clase worksheet function y yendo a ese codigo en el userform2 veo que esta programado asi: w = WorksheetFunction.Match(busque, myrange1, 0) + y - 1 no se si tenga q ver esta parte.
  21. Una cosa que observe y es que los valores del combobox se tomen de la hoja Clientes ya que veo que se estan tomando de la hoja DatosGuardados y lo que necesito es que haya una comparacion de que si no hay ningun dato pueda trabajar con los clientes y darle registro pero intente agregar un cliente mas en la hoja Clientes y no se muestran en el combobox y al eliminar de la hoja DatosGuardados note que de ahi eran los valores tomados. Bueno espero haberme dado a explicar ahora, sino comentar mientras voy a seguir analizando. Gracias mil
  22. Excelente creo que si era posible hacer lo que pedia wow acabo de descargarlo y veo que funciona como buscaba, ya que estaba por optar por un listbox pero el espacio que dispongo no era mucho, aunque me serviria lo que mencione arriba sobre el listbox para otro form que si tendre espacio para este. Gracias amigo voy a probar y comento mas adelante mientras si puedes sacarme la duda del listbox estare totalmetne agradecido.
  23. Amigo logroastur que bueno verte mientras estabas ahi respondiendo estuve analizando un codigo que una vez me aportaste para un listbox solo tengo un unico inconveniente con el y es que necesito mostrar una columna en el y no he podido aun y es que quiero q me refleje la fecha pero esta esta en la columna 25 de los datos que guardo y al hacerlo no logro pues solo toma los datos hasta la columna 9 With ListBox1 .ColumnCount = 5 .ColumnWidths = "20;260;60;60" .AddItem ListBox1.ListCount + 1 .Column(1, ListBox1.ListCount - 1) = C.Value .Column(2, ListBox1.ListCount - 1) = C.Offset(0, -1).Value .Column(3, ListBox1.ListCount - 1) = C.Offset(0, -2).Value .Column(4, ListBox1.ListCount - 1) = C.Offset(0, 25).Value End With
  24. Hola nuevamente, alguien podria darme alguna otra forma de hacer lo que necesito aunque tenga que agrandar un poquito mas el userform pero colocando un listbox que haga lo que necesito? de manera que si hay registros lo pueda ver en el mismo en una parte de alguna esquina pero este como muestro en el userform donde esta el listbox? Gracias
  25. Gracias por interesarse en darme una solucion subí ya el archivo modificando el mensaje claro el archivo solo es una idea de lo expuesto aca.
×
×
  • Create New...

Important Information

Privacy Policy