Remover o nome da c...
 
Notifications
Clear all

[Resolvido] Remover o nome da caption da checkbox


Posts: 0
 Anônimo
Topic starter
Entrou: 52 anos atrás

Bom dia, pessoal

Estou precisando retirar o nome da caption que eu incluo via VBA, porém sempre que é adicionado uma nova checkbox ela aparece com um nome (Caption) na direita.

E preciso que apareça vazia.

Além disso, ao utilizar os filtros (Também via VBA) na aba "Gestão de Prazo" eu preciso que as checkbox fiquem ocultas juntamente com as linhas que não contiverem a informação.

 

Vou deixar a planilha em anexo.

 

Caso puderem me ajudar, serei eternamente grato.

 

Filtros estão na Plan 18 (Gestão de Prazos)

E a Macro para incluir pedido está no modulo 3

Att,

 

Leon

Responder
Tags do Tópico
7 Respostas
1 Responder
teleguiado
Registered
(@teleguiado)
Entrou: 6 anos atrás

Estimable Member
Posts: 138

@leonzinsheets

Inclua no inicio do With o .select e tambem seja incluido  Selection.Characters.Text = "" dentro do With

Se entendi certo a sua duvida acho que é isso.

 

      With ChkBx
       .Select
        'valor padrão:
        .Value = xlOff 'pode ser Verdadeiro ou Falso
        'célula vinculada
        .LinkedCell = rngCel.MergeArea.Cells.Address
        'Texto de substituição
        '.Characters.Text = "TITI"
        'texto
        '.Text = "Toto" ' ou : .Caption = "Toto"
        'bordure :
        Selection.Characters.Text = ""
        With .Border
          'Estilo de linha
          '.LineStyle = xlLineStyleNone 'ou xlContinuous 'ou xlDashDot ou xlDashDotDot ou xlDot
          'cor
          '.ColorIndex = 3  '3 = vermelho
          'espessura da linha
          '.Weight = 4
        Application.Caption = ""
        
        End With
        'propriedades também acessíveis .Locked, .Name, .Enabled etc...
      End With
Responder
Posts: 0
 Anônimo
Topic starter
Entrou: 52 anos atrás

Cara, funcionou perfeitamente, estava custando resolver isso a dias.

Muito Obrigado.

Quanto a parte do Filtro, sabe me dizer se há algo que eu possa fazer pra ocultar as checkbox de acordo com o a linha que estiver oculta?

Deixei um exemplo ai, do que acontece quando eu realizo o filtro, continua aparecendo todas as checkboxs uma em cima da outra, e gostaria que elas se ocultassem junto com as linhas.

Responder
Posts: 0
 Anônimo
Topic starter
Entrou: 52 anos atrás

Pessoal, consegui encontrar essa macro que oculta as caixas de seleção (Checkbox) juntamente com as linhas, porém precisava linkar ela diretamente com um filtro do excel que está na planilha que anexei.

 

Resumindo, preciso juntar as duas macros que seguem abaixo. pra que ela filtre automaticamente e ja oculte as checkbox que estão visiveis.

Private Sub OP_Change()
  If OP.Text <> "" Then
    Selection.AutoFilter Field:=2, Criteria1:="=" & OP.Text
  Else
    Selection.AutoFilter Field:=2
  End If
 
End Sub

 

Ocultar checkbox

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xChkBox As CheckBox
    Dim xCell As Range
    Dim xHide As Boolean
    If Target.EntireRow.AddressLocal = Application.Intersect(Target, Target.EntireRow).AddressLocal Then
       xHide = (MsgBox("Hide Rows ???", vbYesNo + vbQuestion, "Kutools for Excel") = vbYes)
        Target.EntireRow.Hidden = xHide
        For Each xChkBox In ActiveSheet.CheckBoxes
            Set xCell = xChkBox.TopLeftCell
            If Not Intersect(xCell, Target) Is Nothing Then
                xChkBox.Visible = Not xHide
            End If
        Next
    End If
End Sub
Responder
1 Responder
teleguiado
Registered
(@teleguiado)
Entrou: 6 anos atrás

Estimable Member
Posts: 138

@leonzinsheets

Fiz de um jeito diferente.

Veja se resolve ou se vc consegue adaptar de uma forma melhor.

No módulo 5 tem o código original que encontrei para adaptar o seu.

Coloquei comentários para explicar o condigo.

OBS: Vi que para ocultar as checkbox  juntamente com a linha que é oculta a propriedade da checkbox tem que ser xlMoveAndSize.

Responder
Posts: 0
 Anônimo
Topic starter
Entrou: 52 anos atrás

Cara, funcionou perfeitamente

Parabéns, você manda muito e muito obrigado pela ajuda.

 

Responder
Posts: 0
 Anônimo
Topic starter
Entrou: 52 anos atrás

Como faço pra marcar como resolvido? 

Responder
1 Responder
EdsonBR
Moderator
(@edsonbr)
Entrou: 6 anos atrás

Prominent Member
Posts: 895

No rodapé (lado direito) de seu primeiro post neste tópico, tique o botão esmaecido "Resolvido".

Responder