Este fórum está sendo desativado

[Punk8r]

Boa tarde,

nao estou a conseguir fazer com que apenas consiga mudar de linha num mapa se certas celulas estiverem preenchidas.
neste caso, necessito que só mude de linha se as celulas B2, C2, D2, H2, V2, W2 estiverem preenchidas, isto linha a linha num mapa de registos diarios e para criar um ciclo ate á celula 12500.
tipo um mapa de registo de entradas de pessoas num certo espaço por exemplo. cada pessoa que entra tem que dar o nome, idade, morada, etc. e pretendo que apenas possa mudar para a linha seguinte para registo seguinte se estiverem certas celulas preenchidas.
é possivel fazer isto?

antes de mais obrigado pela ajuda.

[osvaldomp]

Sugestão: disponibilize uma amostra do seu arquivo Excel com alguns exemplos, com o resultado desejado para cada exemplo e com o código atual.

[Punk8r]

excel ajuda.xlsx

excel ajuda.xlsx

Boa tarde,

o que pretendo é mais ou menos isto, as celulas com 0 com preenchimento obrigatorio mas apenas permite mudar para a linha seguinte se a linha atual estiver com os verdes preenchidos. ou seja, na linha 1 tem que preencher a data, hora, codigo, observaçoes, data entrada, responsavel, e so depois destas celulas preenchidas pode mudar para a linha 2 para proceder ao proximo registo. isto ate a celula 12500. a celula cidade e pais tem formula procv para outra folha excel, logo é automatica, naos e preenche nada.

Numero Serie Data Hora Codigo Cidade Pais Observaçoes Data Entrada Responsavel
1 0 0 0 aaaaa aaaaa 0 0 0
2 0 0 0 aaaaa aaaaa 0 0 0 3 0 0 0 aaaaa aaaaa 0 0 0
4 0 0 0 aaaaa aaaaa 0 0 0 5 0 0 0 aaaaa aaaaa 0 0 0
6 0 0 0 aaaaa aaaaa 0 0 0 7 0 0 0 aaaaa aaaaa 0 0 0
8 0 0 0 aaaaa aaaaa 0 0 0 9 0 0 0 aaaaa aaaaa 0 0 0
10 0 0 0 aaaaa aaaaa 0 0 0


obrigado

[osvaldomp]

Instale uma cópia do código abaixo no módulo da planilha Folha1, assim:
1. copie o código daqui
2. clique com o direito na guia daquela planilha e escolha 'Exibir Código'
3. cole o código na janela em branco que vai se abrir
4. feito! 'Alt+Q' para retornar para a planilha e testar

Código: Selecionar todos

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Intersect(Target, Range("B3:D12500,G3:I12500")) Is Nothing Then Exit Sub
 If Application.CountA(Union(Cells(Target.Row - 1, 2).Resize(, 3), Cells(Target.Row - 1, 7).Resize(, 3))) < 6 Then
  MsgBox "PREENCHA TODAS AS CÉLULAS DA LINHA " & Target.Row - 1
  Union(Cells(Target.Row - 1, 2).Resize(, 3), Cells(Target.Row - 1, 7).Resize(, 3)).SpecialCells(xlBlanks).Select
 End If
End Sub

[Punk8r]

Obrigado,

5 estrelas! obrigado