Alterar código

2024 - VBA & Macros

Post Recente por Fernando Fernandes 14 anos atrás

3 Posts

1 Usuários

0 Reactions

1,326 Visualizações

RSS

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Olá a todos, boa tarde

Por favor, como posso gravar copiar e colar, se na minha plan tem esse código:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 46
End Sub

Não consigo mais copiar e colar. O que faço? :oops:

Obrigado.

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

Postado : 04/11/2010 4:07 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Veja se assim serve.. mas precisa teclar ESC após COLAR...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Then
Exit Sub
Else
Cells.Interior.ColorIndex = xlNone
Target.Interior.ColorIndex = 46
End If
End Sub

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

Postado : 04/11/2010 5:34 pm

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Topic starter

Edson, boa tarde

Deu erro de compilação: Bloco If sem End If

Vou mostrar os códigos que já tenho:
Sub Auto_Open()
Atualiza
End Sub
Sub Atualiza()
DownTime = Now + TimeValue("00:00:05")
Application.OnTime DownTime, "Atualiza"
Calculate
End Sub
Sub Auto_Close()
On Error Resume Next
Application.OnTime EarliestTime:=DownTime, Procedure:="Atualiza", Schedule:=False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
If (Target.Row > 1) Then
Target.Interior.ColorIndex = 44
End If
End Sub

Se puder me ajudar.....

Obrigado.

[]s

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

Postado : 05/11/2010 3:18 pm