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

CODIGO VBA PARA ESCRITA EM CELULA

 
2024 - VBA & Macros
5 Posts
3 Usuários
0 Reactions
1,663 Visualizações
RSS
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Boa tarde mestres....

Preciso de uma ajuda.

O codigo abaixo faz a seguinte situação:

- Quando o checkbox for selecionando, faz a impressão da plan1, como mostra no codigo abaixo:

If Plan1.Olimpia.Value = True Then 'quando o checkbox estive clicado, faz a impressão do arquivo
Plan1.PrintOut
End If

Mas preciso de um codigo, tentei fazer mas não tive sucesso, antes do codigo VBA fazer a impressão ele "escreve o nome OLIMPIA", na mesma plan1, na celula A1 seja colocado o nome "OLIMPIA".

È possivel fazer isso na mesma linha de codigo?

 
Postado : 11/02/2016 11:23 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

If Plan1.Olimpia.Value = True Then 'quando o checkbox estive clicado, faz a impressão do arquivo
Plan1.Range("A1").Value = "OLIMPIA"
Plan1.PrintOut
End If

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 11/02/2016 12:04 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Dando uma limpada:

With Plan1
    If .Olimpia.Value Then 'quando o checkbox estive clicado, faz a impressão do arquivo
        .Range("A1").Value = "OLIMPIA"
        .PrintOut
    End If
End With

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

 
Postado : 11/02/2016 12:17 pm
 denilsonsl
(@denilsonsl)
Posts: 84
Trusted Member
Topic starter
 

Valeu rapiaziada..

Códigos simples e rápido.

Att,

 
Postado : 11/02/2016 12:30 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Corrigi o crédito da resposta ao Gilmar.

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

 
Postado : 11/02/2016 12:34 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico