kakarott

Prezados boa noite, Não sei o que houve mas não consigo automatizar a planilha mostrada. Ao excutar a mesma apresenta 'Erro de excução - Tipos imcompativeis'. Estou a 7 horas tentando fazer funcionar mas não consigo. Podem me ajudar por favor? Não consigo deixar uma query fixa, pois sempre existe uma alteração nos valores descritos no range. =================================================================================================== Sub TesteMYSQL() ' ' Macro4 Macro ' Dim BSQL As String BSQL = "SELECT column1, column2 FROM tabela1 iv Left Join Tabela2 ie ON iv.column3 = ie.column4 Left Join Tabela3 e ON ie.column4 = e.column5 WHERE e.column5 is not null and iv.supervisor IN " & _ Range("L12:L380").Value & "#" With ActiveWorkbook.Connections("vendas_regiao").ODBCConnection .BackgroundQuery = True .CommandText = Array(BSQL) End With End Sub