Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
MACRO PARA HABILITA...
 
Notifications
Clear all

MACRO PARA HABILITAR CÓDIGO EM TODAS AS CÉLULAS DO EXCEL

 
2024 - VBA & Macros
Post Recente por Antonio22 10 anos atrás
5 Posts
3 Usuários
0 Reactions
989 Visualizações
RSS
 Antonio22
(@antonio22)
Posts: 5
Active Member
Topic starter
 

Estou precisando de uma ajuda com código abaixo.
Traduzindo é o seguinte
Tenho uma planilha de check list de documentos
Toda vez que eu dou um ok na certidão, abre uma caixa pedindo a data
Só que não estou conseguindo rodar o programa e habilitar o codigo para todas as células da planilha...

Sub Nova()
If Cells.Value = "ok" Then
Cells.ClearContents
Cells.Value = InputBox(Vencimento = Date = " dd / mm / yyyy")
End If
End Sub

 
Postado : 05/06/2014 1:36 pm
 Markos
(@markos)
Posts: 15
Active Member
 

Anexa a planilha.

att

 
Postado : 05/06/2014 1:39 pm
 Antonio22
(@antonio22)
Posts: 5
Active Member
Topic starter
 

Conforme solicitado segue anexo

Pasta1.xlsm
 
Postado : 05/06/2014 1:43 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Eu não compreendi muito bem...

Sub NaoEntendi()
 
Dim rng As Range
Dim cell As Variant
 
Set rng = Range("B2:B2000") '<- Coloque seu intervalo
 
For Each cell In rng
 If cell.Value = "ok" Then
  cell.EntireRow = InputBox(Vencimento = Date = "dd/mm/yyyy")
 End If
Next
 
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 05/06/2014 1:45 pm
 Antonio22
(@antonio22)
Posts: 5
Active Member
Topic starter
 

Mais ou menos assim

Se certidão "ok" (Existe certidão)
Então "entre com a data de vencimento (__/___/___)"
Data de vencimento - Hoje = "Prazo"
se certidão "N/A" (Não aplicavel)

se certidão "Não" (Não existe Certidão)

 
Postado : 05/06/2014 2:01 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico