Jump to content

jonetoja

Members
  • Content Count

    906
  • Joined

  • Last visited

  • Days Won

    25

jonetoja last won the day on January 2 2016

jonetoja had the most liked content!

1 Follower

About jonetoja

  • Rank
    Advanced Member
  • Birthday 04/08/1966

Contact Methods

  • Website URL
    http://www.ninguna.com

Converted

  • Campos
    ;

Recent Profile Visitors

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

  1. hola amigo espero se encuentre muy bien

    necesito de su ayuda, escribame cuando pueda por favor

    saludos

  2. [uSER=216180]@nathyclear[/uSER], Hola, existen otras razones por las cuales se pueden cerrar o inclusive hasta eliminar tu pregunta; pero esperemos que el tiempo te las enseñará.
  3. Hola [uSER=186650]@juan santillan t[/uSER] ; hola nuevamente, estuve revisando muy superficialmente tu archivo y la verdad no entiendo muy bien tu necesidad, cuenta con una serie de errores en el Formulario4, me acuerdo algo que habíamos trabajado anteriormente, deberías a modo de sugerencia, ser más ilustrativo en cuanto a lo que tiene que ver con el resultado que esperas obtener. Ahora en lo que tiene que ver con: Para resolver ésta parte de tu problema o necesidad; utiliza la siguiente macro que deberás colocar en un módulo normal: Sub buscar() SendKeys "^b" ' Efectua la operación de oprimir "Ctrl + B" SendKeys "{NUMLOCK}" ' Activa nuevamente la parte del teclado numérico del mismo; sin ésta línea se mantiene desactiva. End Sub [/CODE] Espero tus comentarios y aclaraciones a lo demás. Saludos.
  4. [uSER=206490]@Cesar Durand[/uSER] , es que no te culpo, pues en verdad ante la encantadora intervención de una bella dama, ¿Quién no se desconcentra?; Jajajajajaja. Un gran saludo a ambos desde Colombia.
  5. Mi estimado [uSER=206490]@Cesar Durand[/uSER] . allí si con su permiso, me retiro, no conozco para nada el funcionamiento de las tablas dinámicas; pero buscando encuentro unos apartados, si bien es cierto no son exactamente tu problema, ellos posiblemente te sirvan para encontrar la solución: Cerrado - Decimales en tablas dinámicas Ideas de Excel: Dar formato numérico a una columna en una tabla dinámica Solucionado - No puedo solucionar redondeo de promedios Me disculpas si no es lo que necesitas, pero como digo: "Sé más de maternidad de gallinas que de Tablas dinámicas" un afectuoso saludo.
  6. Hola estimado [uSER=206490]@Cesar Durand[/uSER] ,Hola [uSER=52414]@Silvia[/uSER] , revisando tu requerimiento, observo que al aplicar la misma fórmula que utilizas, pero en otra celda el resultado me da "3871,08" y verificando el resultado tuyo, veo que estás manejando con 28 decimales en formato de celda, discúlpame entonces que no tengo claro cuál es tu problema; e igualmente, no entiendo según lo que esperas obtener ¿Cuál sería ese resultado correcto? Saludos.
  7. Por favor, realizaste modificaciones al diseño original y no tuviste en cuenta las observaciones, que te comenté: En la versión original, los datos de la columna "F" ya no inician en la celda "F6", si no en la celda "F11" que son dos celdas completamente diferentes. Ensayaste con el archivo que te envié?? Espero tus comentarios. Saludos.
  8. [uSER=27312]@elkely[/uSER] , Hola, te devuelvo entonces el archivo que suministraste con los ajustes anunciados en la pregunta, para que puedas verificar si realmente está funcionando o no adecuadamente y puedas proceder si es del caso a efectuar las aclaraciones correspondientes. Saludos y espero tus comentarios. Libro Borrar NOMBRES.xls
  9. Hola [uSER=27312]@elkely[/uSER] realicé unas pruebas posteriormente y me generaban unos errores que decidí corregir, creo que ya está en la manera que necesitas plenamente. Utiliza, la siguiente instrucción vinculada al botón "Eliminar" de tu Formulario. Private Sub Eliminar_Click() ' Modificado por Jonetoja Dim fCliente As Integer, ult As Integer, y As Integer fCliente = Irnombre(Nombre1.Text) If fCliente = 0 Then MsgBox "El nombre que quieres eliminar no existe", vbExclamation + vbOKOnly, "PROGRAMACIÓN 2016" Nombre1.SetFocus Nombre1.Text = "" Exit Sub End If Range("A1").Activate If MsgBox("¿Seguro que quiere eliminar este nombre?", vbQuestion + vbYesNo, "PROGRAMACIÓN 2016") = vbYes Then Range("F6", Range("F6").End(xlDown)).Select selection.ClearContents Cells(fCliente, 1).Select selection.Delete Shift:=xlUp y = Range("A" & Rows.Count).End(xlUp).Row ult = y + 5 Range("F6").Activate ActiveCell.formula = "=A1" selection.AutoFill Destination:=Range("F6:F" & ult), Type:=xlFillDefault Range("A1").Select MsgBox "Nombre eliminado", vbInformation + vbOKOnly, "PROGRAMACIÓN 2016" Nombre1.Text = "" Nombre1.SetFocus Range("A1").Activate End If End Sub [/CODE] Realiza las pruebas necesarias y si el resultado es el esperado te solicito que de una manera clara manifiestes que el tema se puede dar por "[color=#ff0000][i][b]Solucionado[/b][/i][/color]"; caso contrario por favor aclara para realizar los ajustes necesarios. Espero tus comentarios. Saludos desde Colombia
  10. Reemplaza la macro vinculada al evento click del Botón "Eliminar" del formulario. Private Sub Eliminar_Click() ' Modificado por Jonetoja Dim fCliente As Integer, ult As Integer fCliente = Irnombre(Nombre1.Text) If fCliente = 0 Then MsgBox "El nombre que quieres eliminar no existe", vbExclamation + vbOKOnly, "PROGRAMACIÓN 2016" Nombre1.SetFocus Nombre1.Text = "" Exit Sub End If Range("A1").Activate If MsgBox("¿Seguro que quiere eliminar este nombre?", vbQuestion + vbYesNo, "PROGRAMACIÓN 2016") = vbYes Then Cells(fCliente, 1).Select Selection.Delete Shift:=xlUp ult = Range("F" & Rows.Count).End(xlUp).Row If ult < 6 Then ult = 6 Range("F6").Select Selection.AutoFill Destination:=Range("F6:F" & ult), Type:=xlFillDefault Range("A1").Select MsgBox "Nombre eliminado", vbInformation + vbOKOnly, "PROGRAMACIÓN 2016" Nombre1.Text = "" Nombre1.SetFocus Range("A1").Activate End If End Sub [/CODE] Realiza las pruebas necesarias y comentas: Sustituye la fórmula que tienes en la celda "F6" [CODE] =A1 [/CODE] por la siguiente: [CODE] =SI(A1<>"";A1;"") [/CODE]
  11. Hola nuevamente, si lees; te solicité el archivo (Normas del foro); más no el código que en sí que genera error "No se ha definido Sub o Función" y el depurador se detiene en la siguiente línea: fCliente = Irnombre(Nombre1.Text) [/CODE]
  12. Hola, por favor aporta un archivo para saber que es lo que tienes y como resultaría la macro.
  13. jonetoja

    Formulas

    Hola [uSER=191882]@Hugo[/uSER] , cuando se manifiesta que se debe oprimir las combinaciones de teclas y ellas van unidas con el "+" como en éste caso: "Ctrl" + "Shift" + "Enter o Intro"; eso significa que se deben hacer casi simultáneamente o sin soltarlas, es manteniendolas oprimidas de manera sostenida; eso es lo que quiere decir el signo "+". Ahora lo que manifiestas en cuanto a la tecla "Shift", ella no es si no la que va en medio de las teclas de "Bloque de mayúsculas" y la de control a la izquierda que tambien se encuentra al lado derecho del teclado, fíjate por favor en la imagen las que te he encerrado de color verde. Cualquier otra duda con el mayor de los gustos comenta.
  14. Hola [uSER=216180]@nathyclear[/uSER] . Mi estimado y respetado [uSER=98799]@Enigma25[/uSER] ; a ambos un Feliz año 2.016. Nathy, por favor, en múltiples oportunidades se te ha insistido en la necesidad de aportar archivo, nuestra intención nunca es expiar y/o robar información confidencial de los demás, es por ello que podrás colocar datos ficticios. Mientras te decides a ayudarnos a ayudarte, te comento que los diferentes objetos de un formulario como "Combobox", "Listbox", "Textbox" y/o "Commandbutton", entre muchos otros, responden a eventos; ellos pueden ser, Click, Change, Exit y más. Una manera que puedes utilizar para indicarle al formulario es dando click con el botón secundario del mouse sobre el formulario y seleccionando la opción de "Orden de Tabulación" como muestra la imagen y se te desplazará el Foco, entre uno u otro objeto en la ordenación que has seleccionado. Acostúmbrate a aportar archivo y las ayudas que recibas siempre serán más efectivas y ágiles. Saludos a ambos.
  15. Siempre a la orden y en lo que te pueda servir, con el mayor de los gustos. Ha sido un placer el trabajar contigo. Saludos.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png