Que erro está apresentando nessa parte? aqui funcionou normalmente.
Call ChecarPosiçãoDisponível(TxtEnv.Value, TxtComp.Value)
Agora eu entendi, você pode mudar este trecho do código:
If ActiveCell.Offset(0, 3) <= dblEnvergadura And ActiveCell.Offset(0, 4) <= dblComprimento Then
'Marca como True o valor dO CheckBox caso seja compatível
Me.Controls("CheckBox" & ActiveCell.Offset(0, 0)).Value = True
Else
'Marca como False o valor do CheckBox caso não seja compatível
Me.Controls("CheckBox" & ActiveCell.Offset(0, 0)).Value = False
End If
Para (Observe que só mudei o final .Value para .Visible):
If ActiveCell.Offset(0, 3) <= dblEnvergadura And ActiveCell.Offset(0, 4) <= dblComprimento Then
'Marca como True o valor dO CheckBox caso seja compatível
Me.Controls("CheckBox" & ActiveCell.Offset(0, 0)).Visible = True
Else
'Marca como False o valor do CheckBox caso não seja compatível
Me.Controls("CheckBox" & ActiveCell.Offset(0, 0)).Visible = False
End If
Postado : 04/05/2015 2:31 pm