Jump to content

Milton Cordova

Members
  • Content Count

    286
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Milton Cordova

  1. oK un agradecimiento inmeso por su ayuda, excelente aporte tema cerrado solucionado Hasta pronto
  2. Saludos, estimados Masters me pueden ayudar con alguna macro o funcion para excel 2003. que me muestre una imagen llamada "hierros" al seleccionar cualquier celda de D12:D603, de igual forma para el rango E12:E603 se muestre imagen "perfiles", cuando se este fuera de estos rangos las imagnes deben estar ocultas. subo archivo Gracias una avez mas Mostrar imagen seleccionando celdas de rangos.xls
  3. Estimados Masters gracias mil gracias por sus aonocimientos compartiendo para un mejor entendimiento y aprendizaje. excelente solucion Tema solucionado
  4. Saludos estimados Masters, me podrán ayudar con alguna macro que haga lo siguiente: El dato de la celda W12 de la Hoja 1 me sirve para hacer cálculos, este dato lo ingreso manualmente, lo que deseo es que cuando ingrese un dato en la celda M2 de la Hoja 2 el dato de la celda W12 de la Hoja 1 se actualice con este valor. Si luego regreso a la celda W12 de la Hoja 1 e ingreso otro valor el valor de la celda M12 de la Hoja 2 se actualice a este. ejm. celda W12 de la Hoja 1 = 1 ok celda M2 de la Hoja 2 = 2 entonces celda W12 de la Hoja 1 =2 celda W12 de la Hoja 1 = 3 entonces celda M2 de la Hoja 2 =3 Gracias datos en celdas se actualicen.xls
  5. Gracias por la ayyda cada dia aprendo mas gracias a ustedes Hasta pronto tema solucionado
  6. Saludos probe no funciona , me olvide de indicar que es para excel 2003 Sub A() Hoja1.Name Sheets(1).Name Sheets("Hoja1").Select Range("C4").Select With Selection.Interior .ColorIndex = 6 .Pattern = xlSolid End With ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True End Sub Gracias
  7. Saludos estimados masters, deseo saber si hay alguna forma de que al cambiar el nombre de una hoja este nombre se ectualice automaticamente en la macro que hacer referencia a la hoja. Gracias
  8. saludos como utilizo las opciones Usa hojas no ocultas sino "muy ocultas" - Usa la propiedad "AddIn" en "True" (obvio solo si te conviene) Gracias
  9. Saludos por favor deseo una ayuda para ver la posibilidad de quitar la opcion de desprotejer hoja. La hoja esta con clave pero aun asi puede ser abierta con algun truco. Gracias
  10. Gracias excelente ayuda estimado Master, gran apoyo Hasta pronto doy por solucionado el tema
  11. Saludos disculpas por hacer otra consulta por favor: al hacer doble clic ingresa el * correcto, lo que deseo es que al hacer otra vex doble clic sobre el * se borre este y tambien el valor ingresado en columna G. actualmente luego de hacer doble clic se queda el cursor en la misma celda desearia que salte hacia abajo una celda. otra situacion que encuentro es que cuando la celda de C esta vacia no admite el ingreso de asterisco con boble clic Gracias por la ayuda
  12. Saludos deseo ayuda para que esta mecro : Debe ibgresar "*" con dobre clic en el rango de columna C1:C50 que automaticamente se ingrese el "*" el dato o valor de la columna E se copie en la columna G Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 3 Or Target.Rows.Count > 1 _ Or Target.Columns.Count > 1 Then Exit Sub Application.EnableEvents = False With Target If VBA.IsNumeric(.Offset(, 2)) Then If .Value = "*" Then .Offset(, 4) = .Offset(, 2) Else .Value = "x" .Offset(, 4) = Empty End If End If End With Application.EnableEvents = True End Sub Gracias Copiar dato con asterisco.xls
  13. Saludos estimado Gerson puedo hecer una consulta sobre este tema Gracias
  14. Exelente genial, Gracias Doy por cerrado solucionado el tema
  15. Saludos perdon por la falta ortografica, doy por Cerrado el tema, me ha servivo Gracias
  16. Muy comedidamente solicito ayuda para la macro Esta macro funciona solo para celdas independientes, del rango C68:C79, cuando tengo celdas combinadas no funciona Por ejm. Para las celdas C68:C69, C70:C71, C72:C73, C75:C76, C77:C78 no funciona. En esta caso solo aplica para la celda C79 que esta individual Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C77:C79")) Is Nothing Then Range("C77:C79").ClearContents Target = IIf(Target = "X", "", "X") Target.Offset(0, 1).Select End If End Sub insertar X en celdas combinaldas.xls
  17. Saludos la solucion esta perfecta gracias Doy por errado y solucionado el tema
  18. Saludos la solucion esta perfecta gracias Doy por errado y solucionado el tema
×
×
  • Create New...

Important Information

Privacy Policy