vini85

Galera, Estou com o seguinte erro: Erro em tempo de execução '1004': O método 'Range do objeto' _Global' falhou Sinceramente não consigo encotrar o erro... Segue o meu script: Option Explicit 'RA = REGISTRO ATUAL 'NR = NUMERO TOTAL DE REGISTROS 'OP = OPERAÇÃO Dim RA As Integer, NR As Integer, OP As String Private Sub CBt_backup_Click() ActiveWorkbook.SaveCopyAs (TBx_caminho.Text) TBx_caminho = "" TBx_caminho.SetFocus End Sub Private Sub MultiPage1_Change() End Sub Private Sub UserForm_Activate() LControle Atribuir CBx_Tipo.AddItem "Corda" CBx_Tipo.AddItem "Sopro" CBx_Tipo.AddItem "Percussão" End Sub Private Sub LControle() RA = Range("RA") NR = Range("NR") OP = Range("OP") End Sub Private Sub GControle() Range("RA") = RA Range("OP") = OP End Sub Private Sub CBt_Primeiro_Click() RA = 1 GControle Atribuir End Sub Private Sub CBt_Anterior_Click() RA = RA - 1 GControle Atribuir End Sub Private Sub CBt_Proximo_Click() RA = RA + 1 GControle Atribuir End Sub Private Sub CBt_Ultimo_Click() RA = NR GControle Atribuir End Sub Private Sub Atribuir() Dim Linha As Integer If NR = 0 Then Linha = RA + 2 Else Linha = RA + 1 End If TBx_Codigo = Sheets("Dados").Cells(Linha, 1) TBx_Instrumento = Sheets("Dados").Cells(Linha, 2) CBx_Tipo = Sheets("Dados").Cells(Linha, 3) TBx_Marca = Sheets("Dados").Cells(Linha, 4) TBx_Preco = Sheets("Dados").Cells(Linha, 5) TBx_Quantidade = Sheets("Dados").Cells(Linha, 6) TBx_Observacoes = Sheets("Dados").Cells(Linha, 7) Lbl_Operacao = OP & "..." Lbl_Apontador = RA & " / " & NR Operacao Navegacao End Sub Private Sub Navegacao() CBt_Primeiro.Enabled = (RA > 1 And OP = "Navegando") CBt_Anterior.Enabled = (RA > 1 And OP = "Navegando") CBt_Proximo.Enabled = (RA < NR And OP = "Navegando") CBt_Ultimo.Enabled = (RA <> NR And OP = "Navegando") End Sub Private Sub Operacao() CBt_Incluir.Enabled = (OP = "Navegando") CBt_Alterar.Enabled = (OP = "Navegando" And RA > 0) CBt_Excluir.Enabled = (OP = "Navegando" And RA > 0) CBt_Cancelar.Enabled = (OP = "Incluindo" Or OP = "Alterando") CBt_Consultar.Enabled = (OP = "Navegando" And NR > 1) CBt_Gravar.Enabled = (OP = "Incluindo" Or OP = "Alterando") CBt_Sair.Enabled = (OP = "Navegando") CBt_Imprimir.Enabled = (OP = "Navegando") End Sub Private Sub CBt_Incluir_Click() OP = "Incluindo" GControle RA = NR + 1 Atribuir Fra_Dados.Enabled = True TBx_Codigo.SetFocus End Sub Private Sub CBt_Alterar_Click() OP = "Alterando" GControle Atribuir Fra_Dados.Enabled = True TBx_Codigo.SetFocus End Sub Private Sub CBt_Excluir_Click() If MsgBox("Confirma a exclusão?", vbYesNo + vbQuestion, "Confirmação") = vbYes Then Sheets("Dados").Rows(RA + 1).Delete If RA = NR Then RA = RA - 1 GControle End If CBt_Cancelar_Click End If End Sub Private Sub CBt_Cancelar_Click() LControle OP = "Navegando" GControle Atribuir Fra_Dados.Enabled = False End Sub Private Sub CBt_Consultar_Click() Frm_Consulta.Show LControle Atribuir End Sub Private Sub CBt_Gravar_Click() If MsgBox("Confirma a operação?", vbYesNo + vbQuestion, "Confirmação") = vbYes Then Sheets("Dados").Cells(RA + 1, 1) = TBx_Codigo Sheets("Dados").Cells(RA + 1, 2) = TBx_Instrumento Sheets("Dados").Cells(RA + 1, 3) = CBx_Tipo Sheets("Dados").Cells(RA + 1, 4) = TBx_Marca Sheets("Dados").Cells(RA + 1, 5) = TBx_Preco Sheets("Dados").Cells(RA + 1, 6) = TBx_Quantidade Sheets("Dados").Cells(RA + 1, 7) = TBx_Observacoes GControle CBt_Cancelar_Click End If End Sub Private Sub CBt_Sair_Click() Unload Me End Sub Private Sub CBt_Imprimir_Click() Sheets("Dados").PrintOut End Sub