andré Luiz

DESCOBRI !!!!!!!!! Aleluia ! Obrigado pela ajuda, me fez pensar um pouco mais, mas me deu um estalo que me fez lembrar de uma macro que recebi já faz algum tempo de um colega nos EUA (no trabalho) e que teinha uma diferença básica para esta que me estava fazendo sofrer: eu estava escrevendo a macro dentro da propria planilha do Excel onde e não em um módulo a parte, dentro do VBAProject. Quando me liguei na diferença fiz o teste. Deletei a macro toda da planilha e a coloquei em um módulo, dentro do mesmo VBAProject, mas esta simples mudança foi o suficiente para o método Range passasse a funcionar. Agora posso seguir com o projeto adiante. Espero que esta discução possa servir de fonte de consulta para outros usuários que possam se enfrentar com o mesmo problema. Valeu. André Luiz

Infelizmente parece que não. Inclui o comando conforme sugerido logo antes de gravar o arquivo como xls, e não funcionou, inseri logo depois... e tão pouco... então inseri o comando justo antes do Cells.Select e segue me desafiando esta macro infeliz...

A coisa vem assim.... O módulo é executado dentro de uma planilla Excel cuando o usuário aciona um botão. então o sistema pede para o usuario indicar onde está o arquivo texto com todas as informações para a preparação da planilha em Excel. ' Opening file CancelProcedure = MsgBox("Indique localizacao do arquivo txt.", vbOKCancel) If CancelProcedure = 2 Then GoTo Suspende: FileToOpenTxt = Application.GetOpenFilename("Text Files (*.txt), *.txt") MsgBox FileToOpenTxt Application.ScreenUpdating = True Workbooks.OpenText Filename:=FileToOpenTxt, _ Origin:=xlWindows, StartRow:=1, DataType:=xlFixedWidth, TextQualifier:= _ xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _ Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(0, 1), Array(8, 1), _ Array(15, 1), Array(31, 1), Array(47, 1)) E até aqui tudo anda bem. Depois a macro muda o nome do arquivo para gravá-lo como .xls ' Saving file FileToOpenTxt = Right(FileToOpenTxt, 26) FileToOpenTxt = Left(FileToOpenTxt, 22) ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\amascaro\My Documents\SAP files\RSF Macro\" & FileToOpenTxt _ , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False E novamente, até aqui não há problemas. Tudo funciona bem e o arquivo é gravado com .xls Aqui aparece o problema. O primeiro que tento fazer, depois de ter o arquivo já gravado é tirar o grid da planila e ajustar a largura de cada célula, mas aí aparece a falha. ' Formating file ActiveWindow.DisplayGridlines = False Cells.Select Cells.EntireColumn.AutoFit Range("A7:V15000").Select E a macro é interrompida justamente no comando Cells.Select Se altero este comando para qualquer outro Range( ).Select dá o mesmo. Pode ser que além de ter a planilha aberta neste momento e já salva como xls ainda assim tenha que incluir outro comando para confirmar que a planilha está selecionada? Qual seria?

Pessoal, SOCORRO! Meus neuronios já pifaram... Devo estar cometendo um erro elementar, mas pra dizer a verdade, faz dias que estou fuçando e não encontro o que estou fazendo de errado. Uma comando super simples como Cells.Select não funciona de jeito nenhum na minha macro. Já substitui por outro comando (como por exemplo "Range("A1").Select"), já alterei a sequencia de execução, já tentei quase tudo... O problema ocorre sempre que a macro atinge uma função de Range ou Select ou ainda Cells(C,L).Select ou Cells(C,L).Activate. alguém tem alguma pista do que estou fazendo de errado no código? Muito obrigado. André