Jump to content

Milton Cordova

Members
  • Content Count

    286
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Milton Cordova

  1. Saludos Gilberto, funciono muy bien Gracias por tu ayuda Doy por solucionado del tema
  2. Saludos macro perfecta, un adicional si deseo que el libro luego de ejecutar esta macro se posicione al una hoja determinada puedo poner Sheets(“Hoja1”).Select el problema lo tengo cuando cambio el nombre de la "Hoja 1" por ejemplo a "SEG" no me reconoce esta hoja Gracias por la consulta
  3. Saludos no se como puedo integrar la macro, he intentado con esto en ThisWordBook, pero cuando cierro o guardo no protege las hojas, quiza algunza ayuda adicional Gracias WorkBook_BeforeClose Sub Proteger_Hojas() Dim Sheet As Worksheet For Each Sheet In ThisWorkbook.Worksheets If Not Sheet.ProtectContents Then Sheet.Select ActiveSheet.Protect ("MC") MsgBox "Se ha protegido la siguiente hoja : " & Sheet.Name, vbExclamation + vbOKOnly, "Porteger_Hoja" End If Next End Sub
  4. Saludos si tengo un libro inicial con 5 hojas la macro seria Sheets(Array("Hoja1", "Hoja2", "Hoja3", "Hoja4", "Hoja5")).Select Sheets("Hoja1").Activate Pregunto como puede ir detectando todas las hojas que se vayan creando en lo posterior y cambiendo el nombre de las hojas gracias
  5. saludos alguien me puede indicar si existe alguna forma o macro que verifique si alguna hoja del libro no esta protejida, con la finalidad de crear siempre un seguro de que al guardar el libro oarchivo, queden todas las hojas protejidas Gracias
  6. Ok ayuda fabulosa, gracias Doy por solucionado el tema
  7. Saludos solicito ayuda para que mediante una macro al seleccionar la celda B2 de la Hoja 1 se muestre la imagen de la hoja 2. al quitar la seleccion de la celda B2 quitar la vista de la imagen y quedarse en la hoja 1 normalmente. He subido un archivo llamado "Mostrar imagen al seleccionar celda" Mostrar imagen al seleccionar celda.xls
  8. Gracias por la ayuda doy por solucionado el debate hasta pronto, felicidades
  9. Saludos Gerson, como adaptar la macro para funcione solamante en el rango de la columna E4:E200 Gracias
  10. Gracias por la aplicación pero no se como aplicarla al ejemplo que necesito en el documento subido mil disculpas por el incipiente conocimiento
  11. Saludos he tratado con esta macro, pero me busca todas las filas de la columna, lo cual demora demasiado tiempo. como podria hacer para que me busque unicamente en un rango desde la fila 3 hasta la fila 155 analizando los datos de la columna E Sub Insertafilas() Selection.End(xlDown).Select Do Until ActiveCell.Row = 3 'Insert blank row. If Not IsEmpty(ActiveCell) Then ActiveCell.EntireRow.Insert shift:=xlDown 'Move up one row. ActiveCell.Offset(-1, 0).Select Loop End Sub
  12. Saludos adjunto un ejemplo mas explicito. Lo que deseo es lo siguiente: luego de realizar un calculo este me entrega los resultados en un rango que puede ser variable es decir, puede tener 10, 20, 100 filas, lo que deseo es que luego de obtener este resultado se inserte una fila vacia luego de cada fila con dato o activa, lo hice manualmente mediante Ctr + seleccion de filas insertando filas, pero resulta demasido complejo para rangos de 2000 filas en adelante Gracias Insertar filas en blanco intercaladas.xls
  13. Saludos necesito una ayuda pare insertar filas en un rango A2:A400 de una hoja de tal manera que vaya insertando solamente luego de las filas que tienen datos. investigando encontre una macro pero me inserta en todo el rango incluyendo filas vacias Sub Insert_Blank_Rows() 'Select last row in worksheet. Selection.End(xlDown).Select Do Until ActiveCell.Row = 1 'Insert blank row. ActiveCell.EntireRow.Insert shift:=xlDown 'Move up one row. ActiveCell.Offset(-1, 0).Select Loop End Sub Gracias
  14. Saludos gracias funciono perfectamente. Doy por solucionado este debate o tema Gracias
  15. Saludos mil gracias fabulosa ayuda, bendiciones gracias
  16. saludos deseo algun apoyo para complementar una macro que ingrese una "S" al hacer doble click en la celda A10, al hacer otra vez sobre esta celda boble click se elimine la X y se ingrese "N". adjunto la macro Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A10")) Is Nothing Then Exit Sub Cancel = True Select Case Target.Value Case vbNullString, "" Target.Value = "S" Case "S" Target.Value = "N" Case "N" End Select End Sub
  17. Saludos, ha servido de ayuda, doy por cerrado el tema Gracias
  18. saludos, voy a esperar un poco mas para ver si alguien tiene alguna solucion para sumar valores con formato condicional negritas, caso contrario dar por cerrado el tema Gracias
  19. Saludos no encuentro la forma de como apliar esta funcion, ya que lo que necesito es que sume un rango en funcion de un formato de negritas determinado por un f. condicional Gracias
  20. saludos, funcional perfectamente, tengo una consulta adicional para negritas con formato condicional no funcion, favor ayuda Gracias sumar segun negritas.xls
  21. Saludos deseo realizar una suma de valores de un rango, investigando he llegado mediante una macro pèro me da error he subido un archivo "sumar segun negritas" Function Sumar_bold(Celdacolor As Range, Rangosuma As Range) As Double Dim celda As Range For Each celda In Rangosuma If celda.Font.BoldIndex = Celdacolor.Cells(1, 1).Bold.Index Then Sumar_bold = Sumar_bold + celda Next celda Set celda = Nothing End Function sumar segun negritas.xls
  22. Saludos gracias por el aporte. me sirvio. doy por solucionado este tema
  23. Saludos, tengo un archivo con varias hojas que solo se púede ver un area o rango para trabajar, como puedo hacer para debloquear esto y poder ver todo la hoja con sus celdas ya que solo se puede ver el rango de trabajo. ejm A1:AE59 no hay ninguna macro en el libro que me bloquee esto de todas maneras subo el archivo Gracias
  24. gracias, excelnet ayuda, me sirve de mucho para mi cálculo Doy por solucionado el debate
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png