Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda (Meter Mensag...
 
Notifications
Clear all

Ajuda (Meter Mensagem de Erro)

 
Página 1 / 2
2024 - VBA & Macros
Post Recente por Ryujin 8 anos atrás
16 Posts
2 Usuários
0 Reactions
2,716 Visualizações
RSS
 Ryujin
(@ryujin)
Posts: 0
New Member
Topic starter
 

Bom diaa meus amigos,

Estou precisando de uma ajudinha no meu "projeto" nunca mexi em Excel Vba e pediram-me para fazer um projeto ...
Tou tentando ! Mas agora estou com duvidas! Faltam-me mensagens de erro! Por isso caso voces possam agradeceria ajuda! Passo a explicar -->

No UserForm3 --> O userform é de registo de utilizadores!

1ª -Preciso que o programa nao deixe registar o utilizadores com o mesmo numero de empresa, O nome da Planilha onde sao introduzidos os valores é Util_Reg. Nao podera introduzir o Utilizador caso o numero seja Igual !
2ª- Tenho 3 ComboBox! Sendo uma para selecionar o Armazem a que pretencem e as outros duas para selecionar os armazens a que nao se pode mecher, Preciso que não deixe seleccionar valores iguais em nenhuma das 3 combobox!

No UserForm4 --> O Userform é de Registo de Armazéns

Preciso que verifique os armazéns e caso tentemos inserir um Armazém que já exista diga que Já existe e que não pode introduzir outra vez, e que não deixe voltar a introduzir um armazém igual!

No UserForm5 --> O Userform Elimina Armazéns Pelo ID dos mesmos!

Preciso que se tentarmos eliminar um Armazém que não exista ele avise que não existe!

No UserForm6 --> O Userform Elimina Utilizadores Pelo ID dos mesmos!

Preciso que se tentarmos eliminar um Utilizador que não exista ele avise que não existe!

No UserForm9 --> O Userform Elimina Números de Semanas Ja inseridos!

Preciso que se tentarmos eliminar um numero que não exista ele avise!

Agradeço desde Ja! E muito obrigado pela ajuda que me deram ate agora ;)

 
Postado : 27/03/2017 1:32 am
 Ryujin
(@ryujin)
Posts: 0
New Member
Topic starter
 

Esquecime de Anexar oFicheiro :/ My BAD!

 
Postado : 27/03/2017 2:01 am
 Ryujin
(@ryujin)
Posts: 0
New Member
Topic starter
 

2ª Parte do UserForm3 Resolvida!

 
Postado : 27/03/2017 2:26 am
 Romanha
(@romanha)
Posts: 0
New Member
 

Bom dia, boa tarde, boa noite!!!

Ryujin!!

A parte (No UserForm6 --> O Userform Elimina Utilizadores Pelo ID dos mesmos!), veja se isso é o que deseja?

Private Sub CommandButton3_Click()
Dim Ws1 As Worksheet

Set Ws1 = Worksheets("Util_Reg")
Ws1.Select
Ws1.Range("A2").Select
For Apagar = 1 To 200

If ActiveCell = "" Then

MsgBox " Informar ID"

 Exit Sub
 Else
If ActiveCell = TextBox1.Text Then
ActiveCell.EntireRow.Delete
MsgBox "Eliminado Com Sucesso!"
TextBox1.Text = ""
Exit Sub
End If
End If
ActiveCell.Offset(1, 0).Activate
Next
Worksheets("Util_Reg").Range("A2").Select
End Sub

Não esqueça de aperta o joia para finalizar!

 
Postado : 27/03/2017 6:59 am
 Romanha
(@romanha)
Posts: 0
New Member
 

Bom dia, boa tarde, boa noite!

Ryujin!!

No UserForm5 --> O Userform Elimina Armazéns Pelo ID dos mesmos!

Preciso que se tentarmos eliminar um Armazém que não exista ele avise que não existe!

Para os Armazens a mesma ideia.

Private Sub CommandButton3_Click()
Dim Ws1 As Worksheet
Set Ws1 = Worksheets("Armazens")
Ws1.Select
Ws1.Range("A2").Select
For Apagar = 1 To 200

If ActiveCell = "" Then

MsgBox " informar Armazem"
Exit Sub
 Else

If ActiveCell = TextBox1.Text Then

MsgBox "Eliminado Com Sucesso!"
ActiveCell.EntireRow.Delete
TextBox1.Text = ""
Exit Sub
End If
End If
ActiveCell.Offset(1, 0).Activate
Next
Worksheets("Armazens").Range("A2").Select

End Sub
 
Postado : 27/03/2017 7:10 am
 Ryujin
(@ryujin)
Posts: 0
New Member
Topic starter
 

Muito Obrigado Mas Ja tinha conseguido resolver e sim isso funciona ^^

De momento APENAS FALTA o UserForm 9 e um pequeno erro do 2 da Primeira PARTE

 
Postado : 27/03/2017 7:30 am
 Romanha
(@romanha)
Posts: 0
New Member
 

Bom dia, boa tarde, boa noite!

Irmão o caso do (UserForm4 --> O Userform é de Registo de Armazéns), eu criei um botão com o nome "Verificar" e coloquei este codigo que está ai.

Private Sub CommandButton4_Click()
On Error GoTo AZ
Columns("B:B").Select
Selection.Find(What:=TextBox2, after:=ActiveCell, LookIn:=xlFormulas, _
lookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

MsgBox "Armazem Já Cadastrado"
TextBox2.Text = ""
Exit Sub
AZ:
MsgBox "Armazem Não localizado", vbCritical
TextBox2.Text = ""
Exit Sub

End Sub

 
Postado : 27/03/2017 7:32 am
 Ryujin
(@ryujin)
Posts: 0
New Member
Topic starter
 

MUITO OBRIGADO AMIGO ME SALVOU A VIDA!

 
Postado : 27/03/2017 7:39 am
 Ryujin
(@ryujin)
Posts: 0
New Member
Topic starter
 

Apenas Falta o 9 e um erro que me da no 2

 
Postado : 27/03/2017 7:40 am
 Romanha
(@romanha)
Posts: 0
New Member
 

Por nada irmão, estou aprendendo tambem a fazer algumas coisa em VBA, tem caras aqui que são ninjas mesmo no Excel...

 
Postado : 27/03/2017 7:42 am
 Ryujin
(@ryujin)
Posts: 0
New Member
Topic starter
 

Irmao ! O seu botao de verificar nao esta a procurar na Planilha certa ://

Pode verificar isso?

 
Postado : 27/03/2017 10:25 am
 Romanha
(@romanha)
Posts: 0
New Member
 

Opa!! irmão tenta colcar no inicio este comando.

No Userform4 coloca este comando abaixo.

Private Sub UserForm_Initialize()
Sheets("Armazens").Select
End Sub

 
Postado : 27/03/2017 11:32 am
 Romanha
(@romanha)
Posts: 0
New Member
 

Irmão vc ira fazer a mesma coisa nos userform's que deseja seleciomar para colocar os dados.

no Userform3 coloca.

Private Sub UserForm_Initialize()
Sheets("Util_Reg").Select
End Sub

 
Postado : 27/03/2017 11:54 am
 Romanha
(@romanha)
Posts: 0
New Member
 

Eu fiz algumas modificações no programa só que ainda falta algumas coisas veja se é assim que vc deseja.... e complete as iformações que falta usando para sinalisar a tabela que deseja modificar..

 
Postado : 27/03/2017 12:00 pm
 Ryujin
(@ryujin)
Posts: 0
New Member
Topic starter
 

Amigo agora nao consigo aceder a planilha nem ao editor de codigo

 
Postado : 28/03/2017 1:54 am
Página 1 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico