Este fórum está sendo desativado

[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

[alexandrevba]

Boa tarde!!

Tente isso.

Código: Selecionar todos

Sub AleVBA_3142()
    'Application.ScreenUpdating = False
        Sheets(Array("OEMD", "DLE")).PrintOut , , 1
    'Application.ScreenUpdating = True
End Sub

Att

[SINESIOML]

Amigo Alexandre muito obrigado mesmo.....agora só falta direcionar a seleção da celula

[alexandrevba]

Bom dia!!

Desculpe me, esse parte eu não entendi

Att

[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...

[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 todos

Sub 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

[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

[alexandrevba]

Boa tarde!!

Tente essa rotina.

Código: Selecionar todos

Private 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

[SINESIOML]

Alexandre mais uma vez, muito obrigado.....exatamente que eu queria

Grato