Jump to content

Milton Cordova

Members
  • Content Count

    286
  • Joined

  • Last visited

  • Days Won

    1

Everything posted by Milton Cordova

  1. eso hago peron no hay ninguna accion o resultado Gracias
  2. Master he descargado el archivo en la columna C no hay ningun boton o userform. Cual sria la causa favor verificar gracias
  3. Gracias estoy aprendiendo de esta nueva herramienta
  4. saludos expertos he descomprimido y tengo los 2 archivos, la verdad solo veo resultados en Hoja 1 de 500. Deseo saber como esta trabajando en Power Query. Soy muy novato en este tema. Gracias
  5. saludosSaludos investigando encontre una solucion que la comparto, y al mismo tiempo agradexco el apoyo de los masters que apoyaron este debate o consulta Sub pasar_datos() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Select 'Selecciona la hoja a copiar Range("A1:C13").Copy 'Selecciona el rango a copiar Sheets(1).Select 'Selecciona la primera hoja Cells(i * 13 + 1, 1).Select 'Hace un despazamiento vertical para evitar que los datos se sobre escriban ActiveCell.PasteSpecial 'Se pegan los datos Next i Application.CutCopyMode = False End Sub Tema solucionado, cerrado
  6. Saludos agradecere su ayuda al recibir muestra al respecto. Gracias
  7. Saludos es un libro en verdad mal estructurado con hojas indivuduales y justamente lo quiero mejorar haciendo una sola hoja las cerca de 400 hojas. el archivo pesa 20 G. es por ello que no lo puedo subir, excede al límite permitido. Gracias
  8. MSaludos tengo un libro con 500 hojas, de las cuales por ejemplo desde la hoja 20 hasta la hoja 400 tienen un cuadro con el mismo rango desde A1:M70 Lo que deseo es poder unir las hojas por ejemplo desde la 20 hasta la 400 en una sola hoja y asi evitar tener demasiadas hojas. Gracias
  9. Gracias por la ayuda, seguire investigando. Tema solucionado, cerrado.
  10. Saludos me ayudo a detectar el error y estaba en que la division para cero por no haber datos daba #!DIV/0! me pueden indicar si el ......codigo ,16.Select corresponde a el error #REF!, existe alguna codificacion al respecto, si es asi cual seria el código para encontra #!DIV/0!. Gracias
  11. Existe alguna forma para ubicar las celdas que tienen este problema de #REF!, para corregir el error. Gracias
  12. Gracias no he subido el adjunto poe demasiado grande es de 30G hay alguna forma de buscar o rastrear este nombre #REF! en las hojas. Gracias
  13. Saludos tengo archivo en excel 2003 funciona muy bien, cuando la abro con excel 2013 me sale el siguiente mensaje Se han detectado uno o varios nombres no validos en este libro. Dichos nombres se han cambiado a REF! Como detectar en que parte se enceuntra ste error gracias
  14. Gracias excelente ayuda com o siempre genial. Cada día sed aprende mas de los Masters. Dpy por cerrado solucionado el tema
  15. Gracias excelente ayuda, finalmente si deseo poner fondo a la celda color negro por ejem. y fuente color blanco, como quedaria la macro estuve haciendo un ensayo pero me salta unba fila Private Sub Worksheet_Change(ByVal Target As Range) With Target If Not Intersect(Target, Range("c1,d1,A1:A100,B1:B100")) Is Nothing Then If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub Application.EnableEvents = False .Value = VBA.StrConv(.Value, vbUpperCase) Selection.Font.ColorIndex = 2 With Selection.Interior .ColorIndex = 1 .Pattern = xlSolid End With Application.EnableEvents = True End If End With End Sub Gracias
  16. Saludos veo que funciona pero para cierto tipo de fuente, lo que yo utilizo mas es arial. Como hacerlo Gracias
  17. Saludos me pueden ayudar con alguna solución ya sea con macros o funciones para hacer que en celdas por ejm A1, B5, C8....., o rangos "A1:A100; B1:B100" el texto siempre este con mayusculas, aun cuando se ingrese con minuculas la informacion. Gracias
  18. Gracias Master, hay algo que no funciona es que al ingresar X en celda en M93:M100 tambien debe borrar o limpiar dato del rango L93:L100. Encontre la solucion con Range("L93:M100") = "" Tema solucionado cerrado exitosamente Gracias
  19. Con esta macro inserto una “X” en celdas de rango M93:M100 con doble clic. Lo que necesito es que al hacer doble clic en otra celda de M93:M100 se inicialice borrando todo desde L93:M100 y se inserte la X en la celda nueva seleccionada. Gracias Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean) If Not Intersect(target, Range("M93:M100")) Is Nothing Then Cancel = True target(1, 1) = IIf(target(1, 1) = "X", "", "X") target.Offset(0, -1).Select End If End Sub inicializa entrada de X en rango.xls
  20. Gracias estimado Abraham como siempre exlente tu ayuda y aporte para todos Doy por cerrado solucionado el tema
  21. excelente aporte, veo que la imagen se muestra al mismo nivel de la fila parte superior, seria posible que por ejm. al seleccionar la celda E12 la imagen se muestre a partir de la fila 4 y asi tendría la imagen centrada respecto a la celda respectiva Gracias
  22. Saludos, en una Hoja “PLANILLA” al seleccionar rangos E12:E613 se muestra la imagen “hierros” y al seleccionar celdas del rango F12:F613 muestra imagen “perfiles” Al momento de ir hacia la parte inferior estas imágenes se quedan en la parte superior, esto sucede a partir de la fila 40, como se puede ver la imagen sin importar la ubicación de la selección. No deseo tampoco inmovilizar una parte de la hoja. Adjunto documento y la macro es: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("F12:F603")) Is Nothing Then Sheets("PLANILLA").Shapes("perfiles").Visible = True Sheets("PLANILLA").Shapes("hierros").Visible = False Else Sheets("PLANILLA").Shapes("hierros").Visible = False Sheets("PLANILLA").Shapes("perfiles").Visible = False End If If Not Application.Intersect(Target, Range("E12:E603")) Is Nothing Then Sheets("PLANILLA").Shapes("hierros").Visible = True Sheets("PLANILLA").Shapes("perfiles").Visible = False End If End Sub Actualizar Imagen.xls
  23. Como siempre excelente solucion, gracias una vez mas tema solucionado, cerrado
  24. Saludos una pregunta mas por favor, si tengo otra hoja BD desde donde se ingresa informacion y a partir de esta se registra 1 en el rango B1:B4 de la Hoha "datos", cual seria la solucion Gracias por no haber realizado la pregunta desde el inicio Cambia color Pestana segun valor de celda.xls
  25. En un archivo tengo una Hoja datos en el rango D3:D5 ingreso información en cada celda. Al ingresar un valor en D3 se activa al 1 en B1 Al ingresar un valor en D4 se activa al 1 en B2 Al ingresar un valor en D5 se activa al 1 en B3 Al ingresar un valor en D6 se activa al 1 en B4 Desde el rango B1:B4 de la hoja datos de envía la información a las Hojas “calculo1”; “calculo2”; “calculo3”; “calculo4” a la celda A1 de cada Hoja ya sea 0 o 1 Lo que necesito es que en la hoja que se registre 1 en la celda A1 cambie automáticamente el color de la pestaña He logrado con una macro que se cambie de color siempre y cuando vaya a la Hoja de “calculo1,2,3,4” y me ubique en la celda A1 y le de Enter. No cambia cunado se cambie el valor desde Hoja “datos” La macro debe ejecutarse automáticamente Private Sub worksheet_change(ByVal target As Range) ActiveSheet.Unprotect "CE" Set etiqueta = ActiveWorkbook.Sheets("calculo1").Tab If Range("A1") <> "" Then etiqueta.ColorIndex = 28 Else etiqueta.ColorIndex = 2 ActiveSheet.Protect "CE" End Sub Gracias Cambia color Pestana segun valor de celda.xls
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png