Jump to content

djpawngdl

Members
  • Posts

    67
  • Joined

  • Last visited

Everything posted by djpawngdl

  1. Re: busqueda en combo box buscarv, sube tu archivo
  2. En lugar de utilizar un inputbox mejor utiliza un textbox, es decir las mismas instracciones que estas dando dejalas igual pero en lugar de poner inputbox= llama a otro userform en el cual pongas un textbox y un commandbutton y en las propiedades del textbox poner password char *,x o el simbolo que quieras
  3. Re: busqueda en combo box prueba con esto http://rapidshare.com/files/368558822/pruebas.xls
  4. Deberias de seguir leyendo por la red, ya que no es muy claro lo que quieres saber, un formulario es un fomulario y 1 hoja de excel es otra cosa, aunque van juntos o estas en uno o en otro, no en los 2 a la vez, o si te refieres a llamarlo es asi 'el nombre de tu formulario.show[/CODE] lo dificil es el codigo no el diseño, deberas de subir un archivo para saber lo que quieres que haga
  5. Re: ¿Me podrían orientar en cómo colocar una macro para cerrar sin guardar? Private Sub salir_sin_guardar() Application.DisplayAlerts = False 'si solo quieres cerrar el libro solo poner esta linea no la siguiente Activeworkbook.close 'para salir por completo de excel sustituye la linea anterior por esta Application.Quit End sub
  6. Re: Presupuesto con BUSCARV Checa el adjunto, creo que es lo que necesitas, solo falta bloquear las formulas para que no se editen presupuesto.zip
  7. Re: Presupuesto con BUSCARV =si(esnod(buscarv($a$1,hoja2!$a$2:$b$100,2,0)),"",buscarv($a$1,hoja2!$a$2:$b$100,2,0))
  8. Re: Asociar Textbox a Celda Checa el adjunto a ver si es algon como lo que necesitas Aprendiendo.zip
  9. Re: Mostrar mensaje de alerta Me tome la libertad de modificar tu codigo, espero que no te moleste en Hoja 1 quedaria asi Private Sub Worksheet_SelectionChange(ByVal Target As Range) fil = Target.Row col = Target.Column If fil = 0 Or col > 0 Then Fondo End If End Sub y en la macro de fondo quedaria asi Public Sub Fondo() If Hoja1.Range("e2").Value <= Hoja1.Range("b2").Value * 0.3 Then MsgBox ("El Fondo se está agotando. Por favor, solicite reintegro de lo gastado") End If End Sub
  10. Sub a_hoja_2() 'con boton control de formulario Sheets("hoja2").Activate Range("a1").Select End Sub Private Sub CommandButton1_Click() 'con boton de control activeX Sheets("hoja2").Select End Sub
  11. Private Sub UserForm_QueryClose(cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then MsgBox "DESHABILITADO", vbInformation, "PRESIONE EL BOTON DE CERRAR " cancel = 1 CloseMode = 1 End If End Sub Y EN EL BOTON Private Sub CommandButton1_Click() 'si deseas gurdar el contenido antes de cerrar el libro activeworkbook.save 'si deseas cerrar el libro activeworkbook.close 'si deseas salir por completo de excel entonces sustituir la instruccion anterior por esta application.quit End Sub
  12. Re: Como me puedo salir de este MsgBox sin que la instrucción se cumpla? prueba con esto if msgbox("DESEA COMPILAR ESTOS DATOS",VBINFORMATION+VBYESNO,"LO QUE GUSTES")=VBYES THEN 'Aqui va tu macro en caso de que seleccionen que si Else 'aqui debes de poner el fin de la instruccion Unload 'el nombre de tu userform End If End Sub
  13. Creo que en VBA no se puede, porque a la parecer quieres un control DirListBox que se usa en VB y no en VBA
  14. Respuesta: Detectar si hay mas de 1 libro abierto Encontre esto por otro foro por si a alguien le sirve Dim WB As Workbook For Each WB In Workbooks If WB.Name <> ThisWorkbook.Name Then WB.Close savechanges:=False End If Next WB Esto va en workbook open
  15. Que tal amigos del foro, necesito saber si es posible mediante alguna instruccion en vba que excel me detecte si hay mas libros abiertos, ya que tengo una instruccion a un libro que me limita el numero de usos, la cual es la siguiente usos = Sheets("PEDABA").Range("A3") If usos = 0 Then MsgBox "llame al administrador" Sheets("PEDABA").Range("A4") = Sheets("PEDABA").Range("A4") + 1 If usos = 0 Then CLAVES.Show Application.WindowState = xlMinimized Me.Windows(1).WindowState = xlMinimized entrada.Show End Sub en caso de que el numero de usos ya esta en cero se abre este userform, el cual ya funciona a la perfeccion, Private Sub CommandButton1_Click() If usuario = "***" And contraseña = "***" Then CLAVEUSOS = InputBox("INGRESE EL NUMERO DE USOS PARA ESTA LICENCIA") Sheets("PEDABA").Select Range("A2") = CLAVEUSOS Sheets("pedaba").Range("a4") = 1 MsgBox " SE HAN INGRESADO MAS LICENCIAS DE USO", vbOKOnly, "CONTROL DE INVENTARIOS" Sheets("PEDABA").Range("a3") = "=-A4+A2" CLAVES.Hide entrada.Show End If MsgBox "CONTRASEÑA INCORRECTA", vbOKOnly, "CONTROL DE INVENTARIOS" MsgBox " DEBE LLAMAR AL ADMINISTRADOR DEL LIBRO ", vbOKOnly, " CONTROL DE INVENTARIOS" End Sub el problema es que si tengo otro libro abierto pueden mediante el editor de vba entrar a mi otro libro y no quiero que ni siquiera entren a las hojas de calculo, ya que si se modifica de manera manual la hoja "pedaba" en el rango de licencias "a2,a3 y a4" de nada me sirve, el codigo anterior Concretamente se puede mediante algun codigo detectar si hay otro libro abierto y si este se abre estando otro abierto se cierre acutomaticamente muchas gracias
  16. Respuesta: Boton Grabar y borrar registro innecesarios
  17. Respuesta: Office Live workspace pues en general cuando trabajo en un archivo procuro abrirlo de workspace e inmediantamente despues le doy guardar en la pc, todo el tiempo estoy guardandolo en la pc y al final ya que termino cualquier modificacion procuro subirlo pero desde internet no desde excel intenten asi y veran que realmente le pueden sacar provecho al live workspace
  18. Respuesta: Hoja pesada, es decir muy lenta posiblemente al inicio de las instucciones en las macros debas de poner AplicationScreenupdating = false a mi se me hacen mas ligeros los procesos
  19. Que tal, de nueva cuenta saludandolos, llevo unos dias utilizando el sitio de office live y la verdad no se si alguien de ustedes lo use, para los que no lo conozcan les recomiendo que lo visiten http://workspace.officelive.com lo interesante de este sitio es que te funciona como un disco duro y los archivos siempre que los modifiques se modifican en tiempo real, anteriormente yo traia todos mis archivos en usb, pero al meterlos en una y otra maquina no me acordaba de las modificacion que iba haciendo en un a y otra, solo tienen que bajar el add-on desde la misma pagina y a trabajar.
  20. Respuesta: limpiar textbox me funciono a la perfeccion, muchas gracias
  21. Que tal, otra vez solicitando se du valiosa ayuda, tengo un userform que continene aproximadamente 1000 textbox porque esta en varias pestañas, como puedo hacer mediante un command button que todos los textboxes se se limpies si necesidad de meter codigo de uno por uno gracias
  22. Respuesta: Ayuda para convertir unidades a cajas completas muchisimas gracias, habia solucionado algo con esta formula, =SI(B4>=12,A4+1,A4)+SI(B4>=24,1)+SI(B4>=36,1)+SI(B4>=48,1)+SI(B4>=60,1)+SI(B4>=72,1)+SI(B4>=84,1)+SI(B4>=96,1)+SI(B4>=108,1)+SI(B4>=120,1) pero indiscutiblemente tu propuesta es mejor
  23. Necesito de su valiosa ayuda, tengo un archivo en el cual necesito que se hagan conversiones es decir, si vendo cierto numero de unidades de un producto sueltas me convierta en otra celda a cajas completas ventas del dia A cajas 12 B piezas 35 c conversion a cajas es decir si eran 12 cajas y cada una contiene 12 piezas que me arroje 14 cajas 14 cajas d restar de las 35 piezas las 24 que ya se convirtieron a cajas completas y me arroje 11 piezas 11 piezas gracias, espero haber sido claro, anexo un archivo para ver si alguien me puede ayudar ayuda archivo conversion1.zip
  24. Respuesta: Acumular datos en una hoja desde otra hoja de entrada de datos necesitas subir un archivo con tus necesidades para que alguien por aqui te pueda ayudar
×
×
  • Create New...

Important Information

Privacy Policy