Jump to content

Antoni

Members
  • Content Count

    10,157
  • Joined

  • Last visited

  • Days Won

    554

Everything posted by Antoni

  1. 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.
  2. 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
  3. No, no te explicas bien y sin archivo, menos.
  4. 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
  5. 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
  6. He tenido que modificar algunos conceptos porqué estaban duplicados (GAS, OTROS,..). NUEVO REPORTE FINAL.rar
  7. 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
  8. 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
  9. 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
  10. La solución es válida solo para este formato condicional. Adjunto archivo en mensaje nuevo.
  11. Se me ha complicado el tema, a ver si mañana lo saco, porqué estoy algo confuso.
  12. No me acaba de salir, pero seguiré intentándolo, déjame el fin de semana.
  13. Con el paso del tiempo me olvido de las consultas, con lo que no me afecta si el consultante agradece o no la respuesta, allá el con su conciencia. 😂😘
  14. Esto vale para todas las fechas. descomponer_fech (1).xlsm
  15. Se toma como base el año de la celda A2. Sub Descomponer() Application.ScreenUpdating = False Range("C2:N" & Range("A" & Rows.Count).End(xlUp).Row).ClearContents For x = 2 To Range("A" & Rows.Count).End(xlUp).Row fecha = Range("A" & x) For fecha = fecha To Range("B" & x) If Year(fecha) = Year(Range("A2")) Then Cells(x, Month(fecha) + 2) = Cells(x, Month(fecha) + 2) + 1 End If Next Next End Sub
  16. Prueba a ver si lo he entendido. Generar DC.xlsm
  17. Prueba así: Code128 20, 20, 20, 1.1, ThisWorkbook.ActiveSheet, Range("A1")
  18. Pon la propiedad ShowModal=False en el formulario o muéstralo así: UserForm1.Show vbModeless
  19. Última oferta. Parking control II.xlsm
  20. Se parte de la premisa que el procedimiento de entrada y salida de vehículos es manual. A la entrada del vehículo, introducir el Nº de Boleto y pulsar ENTRADA A la salida del vehículo, seleccionar el Nº de Boleto de la lista, seleccionar la tarifa, cobrar 🙂 y pulsar REGISTRAR. Esto no es una solución personalizada. No se admiten modificaciones, salvo mal funcionamiento. Parking control.xlsm
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png