julgo que houve um pequeno typo no código do Tito Lívio. Experimenta,
Atenção: não testado...
This posting is provided "AS IS" with no warranties, and confers no rights.
Post by AlbinoBoas João
Tentei mas devolveu um erro "Run-time error '91' Object variable or
With block variable not set"
Como já tinha um Private Sub coma,andButton1_clik(), não coloquei o
"Sub Desmarca CKB(), até porque dava erro "Expectede: end of
statement" e ficavam as letras "CKB" com fundo azul.
Havia outro problema com a linha de baixo [Dim ctl as Control for each
ctl in in Controls], apresentava o mesmo erro de cima e as letras
"for" ficavam com fundo azul.
Com a ['Sub Desmarca CKB()]e a [ 'for each ctl in in Controls]
devolvia o tal error '91'.
Envio a minha tentativa de macro talvés possas dar uma ajuda.
____________________________________
Private Sub CommandButton1_Click()
If Sheets("Folha1").Range("G58") = "" Then
MsgBox "Tens de assinar... Onde diz ENFERMEIRO/A": Exit Sub
End If
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut Copies:=2
Sheets("Folha1").Select
Range("A3,D14,B15,D22,B23,F27,G27,D30,B31,F36,E37,G36,G58,D39,B40,D51,B52,B54").Select
Selection.ClearContents
'Sub Desmarca CKB() '[aqui coloquei apostrofe porque dava erro]
Dim ctl As Control 'for each ctl in in Controls '[Aqui seo
apostrofe en 'for dava o mesmo erro que em cima]
If ctl.Type = "Checkbox" Then
ctl.Value = 0
End If
End Sub
__________
Cpts
---
Albino P.
Post by Joao Livio [MVP]Boas!
Tenta
Sub Desmarca CKB()
Dim ctl as Control
for each ctl in in Controls
if ctl.TYPE = "Checkbox" then
ctl.Value = 0
end if
Next
End Sub
Utilização: Call CKB
--
Meu site office: http://officept.mvps.org/
Meu Site versão Blog: http://officept.blogspot.com/
FEEDs (Atom): http://officept.blogspot.com/feeds/posts/default
Post by A.PauloOlá.
João, em relação ás "Checkbox" valeu a dica, realmente é pena não se
poderem aumentar, mas com a dica já resolve.
No que toca aos "OptionBotton", de momento não vou introduzi-los
nesta folha, no entanto há uma pequena duvida, é que eu não tenho
códigos para introduzir após os "If" e os "Else".
A minha intensão seria que após a marcação de alguns "OptionBotton"
e a impressão do documento, fosse possivel desmarca-los todos para
assim ficar pronta para nova carta.
Ainda em relação ás "CheckBox", haverá alguma maneira de as
desmarcar todas de uma só vez através de uma macro? O intuito é que
após a impressão do documento que faço através de macro o mesmo
documento fique em branco para nova carta.
Obrigado .
Post by Joao Livio [MVP]Boas!
Post by AlbinoSerá possível, se sim onde devo ir?
Não há opção para aumentares a CheckBox, o que eu costumo fazer é
colocar um "Quadrado" dar um cor de fundo e colocar o controlo
CheckBox dentro do mesmo, destaca melhor.
Post by AlbinoHá forma de fazer com que nenhum esteja seleccionado?
Iguala todos a ZERO por código ou no Value coloca ZERO, tenta..
Usa como Unbound e controla pela Caption do OptionBotton
If Me.OptionBotton.Caption = "A" then
'Código aqui
ElseIf Me.OptionBotton.Caption = "B"
'Código aqui
Else
'Se não se verificar nenhuma das condições em cima - Código aqui
End If
Podes fazer uma função e passar a Caption como String
Function ControlaOptionBottonCaption (ByVal strOBC as String) As String
'Código aqui e iguala o nome da função a um String para retornar algo
'ControlaOptionBottonCaption = "Um String de retorno"
End Function
Cpts
Tito
Meu site office: http://officept.mvps.org/
Meu Site versão Blog: http://officept.blogspot.com/
FEEDs (Atom): http://officept.blogspot.com/feeds/posts/default
Post by AlbinoSorry o post anterior, por lapso não enviei com assunto
Olá de Novo
Mais umas Duvidazitas.
Será que há maneira de aumentar de tamanho as Caixas de
Verificação "ChekBox" inseridas no Word e/ou no Excel através da
"Caixa de Ferramentas dos controlos"?
Isto é, elaborei uma folha em Word com Tabelas onde após uma
frase coloco uma caixa de verificação, para posteriormente
validar ou não essa frase, acontece que as caixas onde o visto é
colocado são pequenas, necessitava aumentar o seu tamanho. Já
vasculhei nas "Propriedades " mas não encontro local para
efectuar essa operação.
Será possível, se sim onde devo ir?
- Mais uma, quando se criam botões de opção "OptionBotton" na
mesmafolha, um deles fica sempre seleccionado. Há forma de fazer
com que nenhum esteja seleccionado?
Pergunta 1 --Terá três opções A, B, C
Pergunta 2 --Terá 4 opções A, B, C, D
De referir que as três são completamente independentes das 4.
Obrigado
Cpts
---
Albino P.