Este fórum está sendo desativado

[Rafaslemos]

Bom Dia!

Estou com problema ao executar a Macro que criei após atribuir a Macro em uma imagem.

Quando executo pelo VBA a Macro funciona, mas quando tento executar pela planilha gera um erro "O objeto é obrigatório". Abaixo está a Macro que editei, não sei onde é que está faltando esse objeto.


Private Sub BotaoCancelar_Click()
Unload Me
End Sub

Private Sub BotaoInserir_Click()
InserirComentario
End Sub


Private Sub UserForm_Initialize()
PovoarMesAno
End Sub

Private Sub PovoarMesAno()
Cbomesano.AddItem ("jan/2015")
Cbomesano.AddItem ("fev/2015")
Cbomesano.AddItem ("mar/2015")
Cbomesano.AddItem ("abril/2015")
Cbomesano.AddItem ("maio/2015")
Cbomesano.AddItem ("jun/2015")
Cbomesano.AddItem ("jul/2015")
Cbomesano.AddItem ("ago/2015")
Cbomesano.AddItem ("set/2015")
Cbomesano.AddItem ("out/2015")
Cbomesano.AddItem ("nov/2015")
Cbomesano.AddItem ("dez/2015")
End Sub

Private Sub InserirComentario()


y = Cbomesano.ListIndex + 2
x = Plan28.Range("AE3") + 2

Sheets("Analises").Select
ActiveSheet.Cells(x, y).Select
Selection.FormulaR1C1 = TxtComentario

If TxtComentario = "" Then
MsgBox "Favor preencher comentário", vbInformation
Exit Sub
TxtComentario.SetFocus
End If
MsgBox "Análise Realizada com Sucesso", vbInformation
Unload Me
End Sub

Desde já agradeço a ajuda.

[alexandrevba]

Boa tarde!!

Deve se analisar alguma referencia que não foi indicada para VBA, para fica melhor esclarecido, eu lhe sugiro postar seu arquivo modelo compactado em formato Zip ou Winrar.

Att

[Rafaslemos]

Bom Dia!

Estou com problema ao executar a Macro que criei após atribuir a Macro em uma imagem.

Quando executo pelo VBA a Macro funciona, mas quando tento executar pela planilha gera um erro "O objeto é obrigatório". Abaixo está a Macro que editei, não sei onde é que está faltando esse objeto.


Private Sub BotaoCancelar_Click()
Unload Me
End Sub

Private Sub BotaoInserir_Click()
InserirComentario
End Sub


Private Sub UserForm_Initialize()
PovoarMesAno
End Sub

Private Sub PovoarMesAno()
Cbomesano.AddItem ("jan/2015")
Cbomesano.AddItem ("fev/2015")
Cbomesano.AddItem ("mar/2015")
Cbomesano.AddItem ("abril/2015")
Cbomesano.AddItem ("maio/2015")
Cbomesano.AddItem ("jun/2015")
Cbomesano.AddItem ("jul/2015")
Cbomesano.AddItem ("ago/2015")
Cbomesano.AddItem ("set/2015")
Cbomesano.AddItem ("out/2015")
Cbomesano.AddItem ("nov/2015")
Cbomesano.AddItem ("dez/2015")
End Sub

Private Sub InserirComentario()


y = Cbomesano.ListIndex + 2
x = Plan28.Range("AE3") + 2

Sheets("Analises").Select
ActiveSheet.Cells(x, y).Select
Selection.FormulaR1C1 = TxtComentario

If TxtComentario = "" Then
MsgBox "Favor preencher comentário", vbInformation
Exit Sub
TxtComentario.SetFocus
End If
MsgBox "Análise Realizada com Sucesso", vbInformation
Unload Me
End Sub

Desde já agradeço a ajuda.

[alexandrevba]

Boa tarde!!

Mude o nome do seu userfor para Inserir_Comentario

Depois insira o código na imagem.

Código: Selecionar todos

Sub InserirComentario()
    Inserir_Comentario.Show
End Sub

Att