Página 1 de 1
Direcionar seleção de celula e impressao
Enviado: 27 Set 2016 às 11:40
por SINESIOML
Caros amigos, novamente pedindo as vossas ajudas valiosas para solucionar um problema de direção de celular, preciso que uma direcione a seleção de uma célula para a outra já determinada...e outro ponto é uma macro em um botão imprimir que venha a imprimir duas abas diferentes simultaneamente,,,, segue o anexo
Grato a Todos
Re: Direcionar seleção de celula e impressao
Enviado: 27 Set 2016 às 13:09
por alexandrevba
Boa tarde!!
Tente isso.
Código: Selecionar todosSub AleVBA_3142()
'Application.ScreenUpdating = False
Sheets(Array("OEMD", "DLE")).PrintOut , , 1
'Application.ScreenUpdating = True
End Sub
Att
Direcionar seleção de celula e impressao
Enviado: 27 Set 2016 às 16:27
por SINESIOML
Amigo Alexandre muito obrigado mesmo.....agora só falta direcionar a seleção da celula
Re: Direcionar seleção de celula e impressao
Enviado: 28 Set 2016 às 09:21
por alexandrevba
Bom dia!!
Desculpe me, esse parte eu não entendi
Att
Direcionar seleção de celula e impressao
Enviado: 28 Set 2016 às 10:45
por SINESIOML
Colega Alexandre mais uma vez desejo agradece-te pelas ajudas...
Preciso que o seleção de celular pule para celulas especificas...poe exemplo quando em sistema ou programa quando digitamos algo ele ja pula para outro campo especifico e na planilha eu numerei a sequencia para onde a celula pular, pois quando estou usando a planilha ela enves de ir para o lado ela vai para baixo eu preciso que a seleção faça aquele sequencia quando terminar de digitar na celula ou aperte enter ou tab...
Re: Direcionar seleção de celula e impressao
Enviado: 28 Set 2016 às 11:50
por alexandrevba
Bom dia!!
Eu fui a té a guia
INICIAR, selecionei todas as células,
Ctrl+
1, na aba
Proteção marquei a opção
Bloqueadas, depois selecionei as células de 1 até 13,
Ctrl+
1 e na na aba
Proteção, eu desmarquei a opções
Bloqueadas, fui a até a aba Revisão do excel e protegia guia com a senha 1.
Código: Selecionar todosSub AleVBA_3142V2()
'Application.ScreenUpdating = False
Worksheets("INICIAR").Unprotect Password:="1" 'Essa linha Desprotege a guia
Sheets(Array("OEMD", "DLE")).PrintOut , , 1
Worksheets("INICIAR").Protect Password:="1" 'Essa linha Protege a guia
'Application.ScreenUpdating = True
End Sub
Att
Direcionar seleção de celula e impressao
Enviado: 28 Set 2016 às 14:17
por SINESIOML
Alexandre, ja tinha tentado isto, ela so pula para as celulas desprotegidas, mais ela não segue a sequencia....ela vai da 1 depois para a 2 depois volta para o 1 depois para 2 depois que vai para 3 ... mais mesmo assim obrigado
Re: Direcionar seleção de celula e impressao
Enviado: 28 Set 2016 às 14:35
por alexandrevba
Boa tarde!!
Tente essa rotina.
Código: Selecionar todosPrivate Sub Worksheet_Change(ByVal Target As Range)
Dim aTabOrd As Variant
Dim i As Long
aTabOrd = Array("S5", "AP5", "S8", "AB8", "AP8", "BA8", "S11", "S14", "AN14", "S17", "AR17", "S20", "AI24")
For i = LBound(aTabOrd) To UBound(aTabOrd)
If aTabOrd(i) = Target.Address(0, 0) Then
If i = UBound(aTabOrd) Then
Me.Range(aTabOrd(LBound(aTabOrd))).Select
Else
Me.Range(aTabOrd(i + 1)).Select
End If
End If
Next i
End Sub
Esse código tem que ser posto dentro da guia de planilha (ou seja click na guia que deseja usar o código com o botão direito do mouse, Exibir código, cole o código).
Obs:Eu não estou considerando o uso de células mescladas!!!
Att
Direcionar seleção de celula e impressao
Enviado: 28 Set 2016 às 20:49
por SINESIOML
Alexandre mais uma vez, muito obrigado.....exatamente que eu queria
Grato