Jump to content

Milton Cordova

Members
  • Content Count

    286
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Milton Cordova

  1. Saludos adjunto archivo ejem. con mas detalle de lo que necesito para mejor comprension Limpiar rango 3 Gracias Limpiar rango 3.xls
  2. Estimado jose he puesto la macro que me han enviado Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("M110:M117")) Is Nothing Then If Target = "X" Then Range("L110:M117").ClearContents Cancel = True End If End If End Sub pero no funciona, para empezar cuando le doy doble clic en el rango M11:M117 no ingresa. Sera que hay problema porque estoy con excel 2003 de todas maneras envio adjunto actualizado con la macro para que puedas veridficar. Gracias y disculpas si estoy en algun error de conocimientos Limpiar rango 2.xls
  3. Saludos creo que no me explique bien, deseo lo siguiente: en el rango M110:M117 al hacer doble clic ingresar una X en una de las celdas de M110:M117 al seleccionar otra celda distinta en la que se encuentra la X se ingresa la X en esta nueva celda borrando la anterior y tambien borra el contenido de la columna L110:L117. hasta aqui funciona lo que deseo es hacer doble clic en la celda en la que se encuentre la X y esta se borre al igual que la L110:L117 Gracias espero haber indicado de la mejor manera
  4. Saludos por favor me pueden ayudar en lo siguiente: Tengo una macro que en el Range("M110:M117") al dar doble clic inserta una “X” Por ejemplo si esta la X en la celda M110 al hacer doble clic en la M114 borra la celda anterior con X y registra la actual con X. Lo que deseo es modificar la macro para que cuando no quiero que quede ninguna X en el rango puedo darle doble clic en la celda que esta la X y esta se elimine. Gracias Limpiar rango.xls
  5. Saludos gracias como siempre ayuda y conocimientos excelentes. tema cerrado solucionado
  6. Saludos he realizado alguna propuesta para esta consulta pero no resulta. Espero me ayuden subo documento Regresar celda de hoja activa Gracias Regresar a la celda y hoja original.xls
  7. Saludos necesito alguna macro que haga lo siguiente: desde cualquer hoja puedo disparar una macro con Ctrl+r la cual me lleva otra hoja por ejm. si disparola macro desde Hoja 1 celda B2, me lleve a la Hoja2 por ejm. celda B10. Puedo poner una regreso mediante macro Crtl+r que me regres en esta caso a la Hoja 1 celda B2, y asi desde cualquier celda debe regresar a esta celda . Gracias
  8. Saludos fantástico es lo que necesito Cada dñia aprendo mas gracias a los masters, en esta caso Hector Miguel. Tema cerrado solucionado
  9. Disculpa mi falta de experticia en VB, donde debo pegar o copiar para el modulo de estnadar. Gracias
  10. Saludos hize lo recomendado me sale error en Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String envio archivo actualizado para revision. Gracias PASS acceso de hojas 1.xls
  11. Saludos probe modificando "InputBox" por "InputBoxDK" me dio error de compilación. debo indicar que estoy con excel 2003 Gracias
  12. Saludos por favor ayuda para la siguiente macro en la cual creo un pass para acceso a la hoja, cuando escribo el pass este se ve en la ventana. Este Pass debe coincidir con el registrado en la Hoja "PASS". Como hacer que este pass al ingresarlo se vea como **** o xxxx con la finalidad de que este pass no sea visible, caso contratio cualquier persona tenfria este pass y no serviria de nada. adjunto la macro: Private Sub Worksheet_Activate() Dim Mensaje, Título, ValorPred, MiValor, verdad, miclave, G, bandera Application.DisplayAlerts = False G = ActiveCell.Worksheet.Name 'nombre de la hoja donde esta el cursor Set x = Worksheets("MENU") 'hoja de retorno Set Y = Worksheets(G) 'hoja a la que se quiere ingresar es automatica Mensaje = " Ingrese su clave.." ' Establece el mensaje. Título = "Presupuestos" ' Establece el título. ValorPred = "" ' Establece el valor predeterminado. verdad = True bandera = 0 miclave = "" Range("A65536").Select Do Do While ValorPred = "" miclave = InputBox(Mensaje, Título, ValorPred) If miclave = Worksheets("PASS").[B1] Then verdad = False bandera = 100 Exit Do Else If miclave = "" Then verdad = False Exit Do End If End If Loop Loop Until verdad = False If bandera = 0 Then x.Select Else Y.Select Range("C6").Select End If End Sub Gracias PASS acceso de hojas.xls
  13. Saludos comprendo los comentarios. Gracias por sus respuestas tema cerrado solucionado
  14. Saludos quiza debo exolicarme mejor, me encontre con un archivo que cuando quise ingresar al VB directamente me salio un anuncio de que estaba protejido. Normalmente cuando pogo password o clave de acceso al ingresar sale la ventana de ingrese la clave. Veo que es mas seguro que no pida la clave solamente indique que esta protejido, esto con la finalidad de dar mayor seguridad. Gracias
  15. saludos el proyecto debe estar protegido, lo que deseo es que al querer entrar a VBAProjet no me lleve a la ventana de contraseña, que salga el mensaje esl Proyecto esta Protegido no hay acceso. gracias
  16. Saludos me pueden informar cual es la opcion para cuando se ingresa al editor VB y al querer acceder o abrir no me muestre la ventana que pide ingresar una contraseña. Gracias
  17. Tengo excel 2003 cuando abro sale el texto horizontal, sera que es por el excel 2003..... Gracias
  18. saludos la verdad he intentado de alguna forma hacer lo que me sugieren pero no me da resultado. Tengo gran deficiencia en el manejo de excel mil disculpas. subo el adjunto con la que hice sin que me de resultado Gracias Texto Inclinado.xls
  19. Saludos deseo que el texto insertado dentro de una imagen la cual esta inclinada tambien se incline, ya que el texto siempre esta horizontal Gracias Texto Inclinado.xls
  20. Gracias como siempre la ayuda y aportes excelentes. tema cerrado solucionado.
  21. Gracias Mauricio, lo he intentado pero se me queda solo la N en la celda no la reemplaza al hacer doble clic otra vez deberia cambiar a la S y asi alternadamente. Gracias ingresar la S y la N en celda.xls
  22. Saludos lo que necesito es al dar doble clic en la celda A7 me ingrese la "S" al dar otra vez doble clic se elimine la S y se ingrese la "N". adjunto una macro que estoy intentando pero no da resultado Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A7")) Is Nothing Then Target = IIf(Target = "N", "", "S") Target.Offset(1, 0).Select End If End Sub Gracias
  23. me funciona bien, para la opcion S N, como quitar la barra de desplazamiento dentro del userform Private Sub CommandButton1_Click(): On Error Resume Next d = "SN" For x = 0 To 1 If ListBox1.Selected(x) = True Then celda = celda & "-" & Mid(d, x + 1, 1) End If Next ActiveCell = Mid(celda, 2) Unload Me End Sub Private Sub ListBox1_Click() End Sub Private Sub UserForm_Initialize(): On Error Resume Next ListBox1.AddItem "Con reajuste" ListBox1.AddItem "Sin reajuste" d = "SN" días = Split(ActiveCell, "-") For x = 0 To UBound(días) ListBox1.Selected(InStr(d, días(x)) - 1) = True Next End Sub
  24. gracias no sabia como entrar pero encontre la forma haciedo doble clic en el uerform1 Gracias
  25. Gracias trabajo sensacional, tengo un a consulta como puedo variar para que por ejem me salga la opcion de escoger entre S y N ya que la opcion esta en funcion de los dias de la semana Gracias
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png