Jump to content

Antoni

Members
  • Content Count

    10,379
  • Joined

  • Last visited

  • Days Won

    581

Everything posted by Antoni

  1. Mientrasn haces lo que te indica Abraham, Inténtalo así: Sub AllUnidades(TUnidades As String, lvUnidad As Control) o quizás: Sub AllUnidades(TUnidades As String, lvUnidad)
  2. Falta la dependencia de los combos, mañana lo miro.
  3. Revisa el adjunto. Y recuerda, me llamo Antoni, no Antonio. ¿De acuerdo? 😏 existencias ayuda Excel 1.xlsm
  4. A ver si me aclaro, pendiente de 0% a 100% va de 0º a 90º, la línea iría de horizontal a vertical. ¿Si❓ Lo que no acabo de ver es lo de la pendiente negativa. Cuando es positiva, cada punto en porcentaje equivale a 0,9º, entiendo que es negativa cuando es superior al 100% y la rotación iría de 270º a 360º, ¿Pero como lo hago si no tengo un valor máximo en %❓ El ejemplo de pendiente que has puesto es de 400%, ¿Que ángulo de rotación le corresponderÍa ❓ De paso te propongo eliminar los signos mas-menos, por los colores rojo-azul de la línea.
  5. Revisa el adjunto. existencias ayuda Excel 1.xlsm
  6. Te adjunto el archivo teniendo en cuenta los cambios de página y el botón para eliminar las imágenes, de todas formas, ¿Sabes que en Imprimir\Configuración\Configurar página se puede repetir unas filas en concreto en cada página sin tener que repetirlas en la hoja? ¿Y que en la pestaña Vista\Ventana\Inmovilizar paneles se pueden inmovilizar filas/columnas para que queden fijas cuando te mueves por la hoja? En cuanto a lo de la pendiente, técnicamente es muy parecido a lo del rumbo, pero no veo claro su representación, sube de nuevo el archivo con un par o tres ejemplos de cual sería tu idea. Planificación con AZIMUT exacto.xlsm
  7. Pues fíjate que ha sido más fácil de lo esperado. He añadido la hoja AZIMUT hoja con una autoforma agrupada, con el nombre GLOBO, que contiene un círculo, 2 líneas a modo de ejes y una flecha con el nombre AZIMUT que se hace rotar en el momento de copiar. Te dejo un archivo con un ejemplo, la macro quedaría así. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Application.ScreenUpdating = False If Target.Row Mod 10 = 4 And Target.Row > 3 And Target.Address Like "$E$*" Then ActiveSheet.Shapes("F" & Target.Row).Delete Sheets("AZIMUT").Shapes("AZIMUT").Rotation = Target Sheets("AZIMUT").Range("A1:B7").Copy Target.Offset(1).Resize(7, 2) ActiveSheet.Shapes("GLOBO").Name = "F" & Target.Row Target.Offset(1).Resize(7, 2).Interior.Color = Target.Interior.Color End If End Sub Planificación con AZIMUT exacto.xlsm
  8. Te dejo lo que he hecho. Vale para cualquier fila. Estoy intentando hacerlo de otra manera para plasmar los grados con exactitud. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim Rango As Range, Resto As Integer Application.ScreenUpdating = False Resto = Target.Row Mod 10 If Resto = 4 And Target.Row > 3 And Target.Address Like "$E$*" Then '-- ActiveSheet.Shapes("F" & Target.Row).Delete Select Case Target Case "": Exit Sub Case Is <= 20: SavePicture FM_Flechas.fnn.Picture, "imagen.jpg" Case Is <= 70: SavePicture FM_Flechas.fne.Picture, "imagen.jpg" Case Is <= 111: SavePicture FM_Flechas.fee.Picture, "imagen.jpg" Case Is <= 160: SavePicture FM_Flechas.fse.Picture, "imagen.jpg" Case Is <= 201: SavePicture FM_Flechas.fss.Picture, "imagen.jpg" Case Is <= 250: SavePicture FM_Flechas.fso.Picture, "imagen.jpg" Case Is <= 291: SavePicture FM_Flechas.foo.Picture, "imagen.jpg" Case Is <= 340: SavePicture FM_Flechas.fno.Picture, "imagen.jpg" Case Is <= 361: SavePicture FM_Flechas.fnn.Picture, "imagen.jpg" Case Else: MsgBox "Azimut fuera de parámetros aceptables" End Select '-- ActiveSheet.Pictures.Insert("imagen.jpg").Select 'original With Selection.ShapeRange Set Rango = Target.Offset(1).Resize(7, 2) .Name = "F" & Target.Row .LockAspectRatio = msoFalse .Top = Rango.Top + 1 .Left = Rango.Left + 1 .Width = Rango.Width - 2 .Height = Rango.Height - 2 End With '-- ActiveCell.Select End If End Sub
  9. SI no te contestan antes, le echaré un vistazo este fin de semana y te digo algo. 🙂😷
  10. Pues como no subas tu archivo y te expliques sobre él, me parece que aquí te va a pasar lo mismo.
  11. Prueba la macro: Sub Prueba() For x = 1 To 23 If Not IsNumeric((Trim(Range("A" & x)))) = True Then fila = fila + 1 Range("B" & fila).Value = Range("A" & x) & " " & Range("A" & x).Offset(1, 0) x = x + 1 End If Next End Sub
  12. Siento no poder ayudarte, he analizando en profundidad tu archivo y no veo por donde cogerlo.😒 Eliminar filas/columnas en blanco y descombinar las celdas sería un primer paso, las macros no serían complicadas, si te interesan lo comentas. Por otro lado, estoy de acuerdo con Abraham. ¿Hay un fichero txt previo?, de ser así, quizás se podría atacar el tema desde el.
  13. No tengo instalado el control Calendar, mi versión de Excel no lo soporta, he puesto un formulario propio. Effetto Calendario e Textbox.xlsm
  14. set celda = Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False) if not celda is nothing then celda.Font.Bold = True
  15. Nosotros no. Pues no. Súbelo a un servidor en la nube. (DropBox, Mega, ...)
×
×
  • Create New...

Important Information

Privacy Policy