Jump to content

Milton Cordova

Members
  • Content Count

    286
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Milton Cordova

  1. Solicito ayuda para esta macro quer me da error. al hacer doble clik en la celda B1 de la Hoja 1 debe llevarme a la celda A1 de la Hoja2 al hacer doble clik en la celda B2 de la Hoja 1 debe llevarme a la celda A1 de la Hoja3 me indica error en Range("A1").Select Option Explicit Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) Target.Offset(0, 1).Select Select Case Target.Address(False, False) Case "B1" Sheets("Hoja2").Select Range("A1").Select Case "B2" Sheets("Hoja3").Select Range("A1").Select End Select End Sub Ir a hoja con boble clik en celda.xls
  2. Me parece muy interesante la presentacion sigue adelante Hasta pronto
  3. Gracias por esta ayuda tan genial, de seguro servira para otros foristas Gracias doy por solucionado el debate
  4. Saludos deseo ayuda en una macro que debe hacer lo siguiente en D14 D8O al hacer doble clic ingresar la B en E14:E8O al hacer doble clic ingresar la M en F14:F8O al hacer doble clic ingresar la A en G14:I8O al darle doble clic debe ingresar una "X", la condicion es que en este rango en la fila correspondiente al darle clik se borre cualquier X ingresada y se registre en la celda activa esta es la macro 'Doble click para ingresar y para borrar. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'If Intersect(Target, Range("A1:A10", "B1:B10")) Is Nothing Then Exit Sub If Not Intersect(Target, Range("D14:D80")) Is Nothing Then Target = IIf(Target = "B", "", "B") Target.Offset(, 1).Select End If If Not Intersect(Target, Range("E14:E80")) Is Nothing Then Target = IIf(Target = "M", "", "M") Target.Offset(, -1).Select End If If Not Intersect(Target, Range("F14:F80")) Is Nothing Then Target = IIf(Target = "A", "", "A") Target.Offset(, -1).Select End If If Not Intersect(Target, Range("G14:I80")) Is Nothing Then Exit Sub Else Cancel = True Cells(Target.Row, 1).Resize(, 3).ClearContents: Target = "X" End Sub[/CODE] Gracias por la atención
  5. tengo una macro qur funciona para pie de pagina el asunto sería poder tener el texto tipo marca de agua en el centro de la pagina,Gracias Private Sub Workbook_BeforePrint(Cancel As Boolean) With ActiveSheet.PageSetup .LeftFooter = Sheets("Hoja 1").Range("A1") End With End Sub
  6. Funciona, como hacer para que nadie pueda desactivar esta marca esdecir deseo darle seguridad para que mediante alguna macro esta de dispare al momento de enviar la accion de imprimir Gracias
  7. Saludos he subido un ejm de lo que quiero, el texto de la celda A1 Hoja1 sea el que de vea en cada hoja a imprimirse en las Hojas 2 y Hoja 3 Impresion con marcas de agua.xls
  8. Saludos le pido disculpas pero no encuantro lo que necesito en el link que me enviaste
  9. Saludos, deseo consultar si existe alguna macro que se dispare al momento de imprimir para que en algunas hojas de un libro se vea en la impresion un texto tipo marca de agua Gracias
  10. Saludos excelente erl aporte, me ha solucionado mi pedido Doy por cerrado el debate Gracias
  11. Existe alguna macro que me permita ingresar desde la celda A1 de la Hoja1 3 nombres diferentes, los cuales se registren en la Hoja2 celdas A1,A2,A3, luego de lo cual al detectar que se ha ingresado los tres nombres se bloquee el ingreso desde la celda A1 de la Hoja1. He subido un archivo ejem. INGRESO DATOS CON BLOQUEO INGRESO DATOS CON BLOQUEO.xls
  12. Saludos excelente ayuda doy por solucionado el debate Gracias una vez mas
  13. Saludos consulto si es posible que una hoja se bloquee automaticamente luego de un evento con un clave aleatoria que nadie la pueda decifrar Gracias
  14. Gracias ayuda fenomenal Doy por cerrado solucionado el debate Hasta pronto
  15. saludos entiendo que no me he sido lo sufiente explicito: Lo que deseo es que al hacer dodble clic en el rango a13:C300 se ingrese una X. con la macro que envie esto funciona Lo que deseo me ayuden es que cuando en una celda A13 esta la X, al momento darle doble clic en cualquiera de las celdas B13 o C13 se ingrese una X ya sea en B13 o C13 y automaticamente borre la X que esta en A13, y asi sucesivamente para cada fila del rango. Debe quedar una sola X por fila en las tres columnas Gracias
  16. Saludos, solicito ayuda para completar una macro que haga lo siguiente Deseo colocar una X con boble click en un rngo A3:C300 esto esta funcionando Si tengo ingresado una X en A13, al hacer click en la celda A14 se ingrese la X y que automatocamente se borre todo lo que exista en B14 y C14 el archivo no pudo subirlo es mas pesado del permitido Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A13:A300,B13:B300,C13:C300")) Is Nothing Then Exit Sub Cancel = True Select Case Target.Value Case vbNullString, "" Target.Value = "X" Case "X" Target.Value = "" End Select End Sub Gracias
  17. Gracias la macro funciona genial hasta pronto doy por cerrado este debate
  18. saludos por favor me puedes ayudar para que este formato solo funcione para el rango G13:H282 el resto de celdas de la hoja no se debe aplicar el formato Gracias por tu tiempo Att. Milton
  19. Milton Cordova, post: 190019, member: 73198"]Saludos tengo una ultima pregunta necesito que esto funcione para un rango G13:H282 tambien la opcion color negro debe ser aplicada para el valor =0 o sea el rango o(G13:h282 =0;G13:h282 =1) Gracias por la ayuda
  20. Saludos como podria obtener cuando la cuarta opcion si la celda es igual a 4 el texto se ponga en negritas adjunto archivo ejemplo Gracias formato condicional 4 criterios.xls
  21. saludos, por favor deseo ayuda para 5 condiciones de formato en excel 2003. Ejm. para un rango de a1:a30 colocar fuente color negro para valor 1 colocar fuente color azul para valor 2 colocar fuente color rojo para valor 3 colocar fuente color verde para valor 4 colocar fuente color amarillo para valor 5
  22. Saludos, favor me puedes ayudar ocultando la Hoja "casa" al momento de salir de esta hoja, con la finalidad de que solo este visible cuando en la celda A1 de la Hoja 2 este seleccionada. Gracias
  23. Saludos necesito una macro que al seleccionar la celda A1 en la Hoja 2 se muestra la Hoja "casa" en la celda a1, y al momento de salir de la hoja "casa" esta se oculte lo he intentado asi pero no funciona Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address(False, False) = "A1" Then Sheets("casa").Visible = True Sheets("casa").Select End If End Sub Private Sub Worksheet_Deactivate() Sheets("casa").Select Sheets("casa").Visible = False End Sub control.xls
  24. deseo obtener alguna macro o funcion que bloqee la opcion de que alguien pueda copiar el contenido de una hoja excel a Word Gracias
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png