Marcelo, Muuuito obrigado cara, consegui o que precisava, só adaptei o com o ElseIf pois precisava que gravasse mesmo que não estivesse com o Ok. Pr...

Tentei o código abaixo, mas não funcionou: Para impressão: Private Sub Worksheet_Change(ByVal Target As Range) If Worksheets("cross").Ran...

É feito por Dados/Obter Dados Externos/De Outras fontes/Da Importação de Dados XML

Quando é importado os dados da Planilha "Base SHorts", as informações não vem completas, algumas células vem em branco e no arquivo origina...

Muitíssimo obrigado, era exatamente o que eu precisava. Valeu.