Jump to content

Antoni

Members
  • Content Count

    10,117
  • Joined

  • Last visited

  • Days Won

    548

Everything posted by Antoni

  1. Probad esta macro, aunque solo sea por curiosidad (Gentiliza de Héctor Miguel) Sub SheetsNavigator() With Application.CommandBars.FindControl(ID:=957) If Right(.Caption, 3) = "..." Then .Execute Else .Parent.ShowPopup End With End Sub Otra curiosidad, en el tab de hojas, en la parte de las flechas de la izquierda, probad a hacer Click derecho, a ver que pasa.
  2. Pues lo mismo, pero con el evento MouseMove del Userform.
  3. Añade al final de la macro Borrar(): Hoja1.xNum = 0
  4. La función Val() no debe utilizarse para convertir de texto a número ya que solo extrae los números de izquierda a derecha hasta el primer carácter no numérico. Usa la función CDbl() o CCur. Funciones de conversión de tipos de Visual Basic .
  5. Vamos a ver, el único secreto de esta forma de programar cuando hay múltiples controles, se basa en ser muy riguroso con el nombre de los controles, o sea, todos los controles de la misma columna deben empezar por la misma letra A, T y C y todos los controles de la misma fila y del mismo turno deben tener el mismo número, por ejemplo, A1, T1 y C1 o A15, T15 y C15, resumiendo los controles deben empezar por A, T y C seguidos de un número del 1 al 14 para el el primer turno y del 15 al 28 para el segundo. Aclarado este punto, no están nada claro los conceptos Av, Supervisor, Carbón y Tolva que mencionas en tu consulta, revísalos. Y por último, podrías hacer lo mismo con solo frame de 14 filas y un combo donde se pudiera escoger el turno. Copia de Reclamo Nvo v4.xlsm
  6. El control ListView, aunque algo más complejo de programar que el control ListBox, también es una buena alternativa. 🙂
  7. Con el tiempo que llevas por aquí ya deberías ser capaz de hacer una modificación tan simple como esta. UDF-Cifras a letras (1).xls
  8. Esta UDF se subió al foro de aportes en su día. UDF-Cifras a letras .xls
  9. Algo no debes haber hecho bien, en cualquier caso te adjunto de nuevo el archivo al que le he añadido algunos adornos, también he añadido un sistema de auto-comprobación al generar los números. Joc de memòria II.xlsm
  10. Había un error en la macro: Sub Calcular18(Rango As Range) Dim v(18) As Integer Do Until v(18) <> 0 Do: n = Int((18 * Rnd) + 1) ok = True For x = 1 To 18 If v(x) = 0 Then Exit For If v(x) = n Then ok = False Exit For End If Next Loop Until ok = True v(x) = n Loop For Each Celda In Rango c = c + 1 Celda.Value = v(c) Next End Sub
  11. Otra versión sobre tu archivo. Joc de memòria.xlsm
  12. En el adjunto encontrarás un juego de emparejamiento. El juego permite hasta 18 números/letras/palabras/frases o lo que se te ocurra. Los valores y formatos se toman de la columna A de la hoja NÚMEROS,. Pulsa CREAR JUEGO para empezar. Los mensajes de alerta desaparecen al cabo de 2 o 3 segundos. JUEGO CASAR PAREJAS.xlsm
  13. Puede haber alguna pista por aquí: Run-time Error 2147352571(8002005) Prueba también añadir .Value al AddItem Me.cbx_Cliente.AddItem .Cells(i, 3).Value También he tenido problemas al utilizar Final como nombre de variable.
  14. Lo mismo que Abraham, pero agrupando las líneas como un solo objeto en la propia macro. Modifica esta parte: '.... '.... 'Barcode drawing Dim Grupo() As String CurBar = 0 ReDim Grupo(0) For i = 1 To Len(ContentString) Select Case Mid(ContentString, i, 1) Case 0 CurBar = CurBar + 1 Case 1 CurBar = CurBar + 1 TargetSheet.Shapes.AddLine(X + (CurBar * LineWeight) _ * XCompRatio, Y, X + (CurBar * LineWeight) _ * XCompRatio, (Y + Height)).Select With Selection.ShapeRange .Line.Weight = LineWeight .Line.ForeColor.RGB = vbBlack End With Grupo(UBound(Grupo)) = Selection.Name ReDim Preserve Grupo(UBound(Grupo) + 1) End Select Next i ActiveSheet.Shapes.Range(Grupo).Select Selection.ShapeRange.Group.Select Selection.Placement = xlFreeFloating ActiveCell.Select End Sub
  15. No, no te explicas bien y sin archivo, menos.
  16. Otra visión del tema con, prácticamente, el código de JSDJSD, al que aprovecho para felicitar por su gran avance en poco tiempo en este largo camino del interminable aprendizaje de Excel y VBA. 🙂 Hacer formulario para OF(Prueba2) (1).xlsm
  17. Una forma de "proteger" una columna sin proteger la hoja: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address Like "$B$*" Then ActiveCell.Offset(0, 1).Select End Sub
  18. He tenido que modificar algunos conceptos porqué estaban duplicados (GAS, OTROS,..). NUEVO REPORTE FINAL.rar
  19. Revisa el adjunto. He cambiado la propiedad Enabled = False de los textbox por Locked = True, mejora la visibilidad y permite copiar el contenido. Las operaciones aritméticas solo pueden realizarse con variables numéricas y los tetxbox, como su nombre indica, son de tipo texto, por lo que es conveniente convertirlos ante de operar con ellos. Aparte de los cálculos facilita el traspaso a Excel de forma correcta. 🙂 Prueba de formulario.xlsm
  20. Para salir del paso: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count = 1 Then Application.EnableEvents = False Set activa = ActiveCell Rows(Target.Row).Select activa.Activate Application.EnableEvents = True End If End Sub
  21. He cambiado la función y he optado por el consejo de Abraham Valencia, o sea, reproducir en la función las condiciones del formato condicional. Revisa las fórmulas del adjunto. PRUEBA - Rutinas mantenimiento y abonos 2019 II.xlsm
  22. La solución es válida solo para este formato condicional. Adjunto archivo en mensaje nuevo.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png