Excel Bloquear macro quando uma célula não estiver preenchida.

[Fortd2]

Bom, tenho uma macro que quando é acionado ela copia os dados de algumas células e cola em outra planilha formando  um banco de dados, gostaria que caso alguma das células a serem copiadas não esteja preenchido, a macro não ativasse e emitia uma alerta de célula não preenchida.  Como se fosse uma "validação de dados" para ativar a macro.

 

no entanto a célula a ser preenchida nunca é a mesma,

[Visitante]

1 hora atrás, Fortd2 disse:

... caso alguma das células a serem copiadas não esteja preenchida, ..

 

Como vamos saber quais as células que serão copiadas?

No exemplo abaixo substitua A1:D1 por variáveis, se o caso.

 

Sub ContaPreenchidas()
 If Application.CountA(Range("A1:D1")) < 4 Then
  MsgBox "PREENCHA TODAS AS CÉLULAS DO INTERVALO"
  Exit Sub
 End If
End Sub

 

[Fortd2]

@osvaldomp

Não sei como coloca o seu Código, to te enviando a planilha.

 

 

Plan2.rar

[Visitante]

15 horas atrás, Fortd2 disse:

@osvaldomp

Não sei como coloca o seu Código,...

 

 

Coloque os comandos abaixo no início  do seu código. Altere o intervalo se necessário.
 

If Application.CountA(Range("A1:D1")) < 4 Then
MsgBox "PREENCHA TODAS AS CÉLULAS DO INTERVALO"
Exit Sub
End If

 

[Fortd2]

5 horas atrás, osvaldomp disse:

 

Coloque os comandos abaixo no início  do seu código. Altere o intervalo se necessário.
 

If Application.CountA(Range("A1:D1")) < 4 Then
MsgBox "PREENCHA TODAS AS CÉLULAS DO INTERVALO"
Exit Sub
End If

 

 

Valeu, consegui colocar o código agora, ficou  bom.  Só  mais uma duvida, tem como colocar uma formula que especifica a célula que não pode ficar vazia. no lugar do A1:D1? Seria uma formula desse tipo  "ÍNDICE(Planilha1!A:G;Planilha1!$D$1;6)"

 

 

[Visitante]

 

If Sheets("Planilha1").Cells(Sheets("Planilha1").[D1], 6) = "" Then
  MsgBox "PREENCHA A CÉLULA " & _
   Sheets("Planilha1").Cells(Sheets("Planilha1").[D1], 6).Address(0, 0) & " DA Planilha1 "
  Exit Sub
 End If

 

[Fortd2]

@osvaldomp

Em 11/01/2019 às 19:04, osvaldomp disse:

 

If Sheets("Planilha1").Cells(Sheets("Planilha1").[D1], 6) = "" Then
  MsgBox "PREENCHA A CÉLULA " & _
   Sheets("Planilha1").Cells(Sheets("Planilha1").[D1], 6).Address(0, 0) & " DA Planilha1 "
  Exit Sub
 End If

 

Perfeito, funcionou muito bem !