ian suguimati

Bom diaaa Estou a dias batendo a cabeça tentando arrumar essa macro que faz gráficos limitados ao intervalo de de duas datas obtidas em duas textbox ate a parte de achar a linha esta funcionando, o maior problema esta na hora de gerar o grafico, que sempre da o erro "metodo "cells" do objeto "_global" falhou segue a rotina. Sempre que para de executar a macro o erro indica a parte que esta em italico e ai alguém tem ideia do que esta errado? vlw ai galera Private Sub torre1(ByVal data1 As String, ByVal data2 As String) Dim Busca1 As Range Dim Ocorrencia1 As String Dim Ocorrencia2 As String Dim X As Integer Dim y As Integer 'Executa a busca Set Busca1 = Plan2.Cells.Find(What:=data1, After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) 'Caso tenha encontrado alguma ocorrência... If Not Busca1 Is Nothing Then X = Busca1.Row 'Lista o primeiro resultado na variavel Else 'Caso nada tenha sido encontrado, exibe mensagem informativa msgbox "Nenhum resultado para '" & data1 & "' foi encontrado." End If 'Executa a busca Set Busca2 = Plan2.Cells.Find(What:=data2, After:=Range("A1"), LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False) 'Caso tenha encontrado alguma ocorrência... If Not Busca2 Is Nothing Then y = Busca2.Row Else 'Caso nada tenha sido encontrado, exibe mensagem informativa msgbox "Nenhum resultado para '" & data1 & "' foi encontrado." End If Charts.Add ActiveChart.ChartType = xlColumnClustered ActiveChart.SetSourceData Source:=Sheets("Plan2").Range(Cells(X, 58), Cells(y, 54)).Select, _ PlotBy:=xlColumnsActiveChart.Location Where:=xlLocationAsObject, Name:="Plan1"