leno

Bom Dia , to fazendo um Projeto em Vba mais tou com um problema tenho que preencher varias planilhas mais essas planilhas são em pastas de trabalhos diferentes, dae quando abro essa planilha pelo vba não consigo escerever nelas dá um erro. Private Sub ComboBox1_Click()aqui tou usando um combobox pra selecionar a planilha em que quero cadastar os produtos . se alguém interessar em me ajudar posso mandar o codigo no email pra analisar melhor desde já obrigado Dim planilha As Object Select Case ComboBox1.Value Case 0 'Fornecedores Set wsCadastro = ThisWorkbook.Worksheets("Fornecedores") Call HabilitaBotoesAlteracao Call CarregaDadosInicial Call DesabilitaControles Case 1 'Cli_1_Anexo Set wsCadastro = ThisWorkbook.Worksheets("Cli_1_Anexo") <= nesse caso aqui eu consigo entrar com os dados normal porque essa planilha ta na mesma pasta do codigo Call HabilitaBotoesAlteracao Call CarregaDadosInicial Call DesabilitaControles Case 2 'Teste Const ConsolidatedSheetName As String = "Teste" Set wsCadastro = ThisWorkbook.Worksheets(ConsolidatedSheetName) Call HabilitaBotoesAlteracao Call CarregaDadosInicial Call DesabilitaControles Case 3 'Cria Pasta Dim xls As Excel.Application Dim wb As Excel.Workbook Dim ws As Excel.Worksheet Set xls = New Excel.Application Set wb = Workbooks.Open("C:\Proposta.xls") <= Aqui tou abrindo a pasta de trabalho Set ws = ThisWorkbook.Worksheets("Plan2") <= Aqui tou abrindo a planilha que quero inserir os dados 'Set ws = Worksheets("Plan2") 'Set wsCadastro = ActiveWorkbooks Call HabilitaBotoesAlteracao Call CarregaDadosInicial Call DesabilitaControles End Select End Sub