............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Mejorar macro checklist

Ver el tema anterior Ver el tema siguiente Ir abajo

Mejorar macro checklist

Mensaje por Esgrimidor el Sáb Ene 19, 2013 11:03 am

Me gustaría mejorar esta macro

Código:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' Manage double clicking on the worksheet (used for changing the status of a check item or an entire topic)
Dim blnIsTopic As Boolean

    On Error Resume Next
   
    ' User double clicked outside the checklist area - > exit sub
    If Application.Intersect(ActiveCell, Range("myCheckList")) = False Then Exit Sub

    ' Set boolean variable: true, if user double clicked on a topic (header)
    blnIsTopic = (InStr(ActiveCell.Offset(0, -(ActiveCell.Column - Range("myCheckList").Column)), C_SEPARATOR) = 0) And _
                (ActiveCell.Offset(0, -(ActiveCell.Column - Range("myCheckList").Column)).Value <> "")
             
    If ActiveCell.Column = Range("myCheckList").Column + Range("myCheckList").Columns.Count - 1 Then
    ' User double clicked on a cell in the status column
       
        If ActiveCell.Value = C_DONE Then
        ' If status = done: status will be set to open
            ActiveCell.Value = C_OPEN
        ElseIf ActiveCell.Value = C_OPEN Or ActiveCell.Value = C_MIXED Then
        ' If status = open or mixed (topics only): status will be set to done
            ActiveCell.Value = C_DONE
        End If
       
        If blnIsTopic Then
            Call ChangeTopicStatus
        Else
            Call AutomaticSetTopicStatus
        End If
   
    ElseIf blnIsTopic Then
    ' User double clicked in a topic row and not on the status column -> expand or collapse the items of this topic
        Call ExpandCollapseItems
    End If

End Sub


en el sentido de permitir aumentar en la hoja el número de topics, así como que el número de itemes en cada topic pueda ser distinto.

Adjunto archivo con script inicial de VBA.

Gracias

Archivos
check_list_template.................xls No tienes los permisos para descargar los archivos.(67 KB) Descargado 12 veces

Esgrimidor

Masculino Cantidad de envíos : 60
Edad : 50
Ciudad - Pais : Santa Cruz de Tenerife
Version de Excel : XP
Fecha de inscripción : 28/06/2009

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.