Boa tarde!! Já tentou suar nossa base de dados?

Boa tarde!! Qual o critério para transferir os dados ? As células das colunas de A até H devem ser preenchidas? Att

Boa tarde!! Para isso e tal abreviado, tem que ter uma forma padrão! Qual seria a forma padrão? Att

Boa tarde Marcos Seja bem-vindo ao fórum! Para facilitar anexe uma planilha de exemplo, demonstrando manualmente o resultado desejado. []s

Boa também Reinaldo, O "lCol" não funcionou muito bem quando existe uma célula em branco. Se mudar o: lCol = Application.WorksheetFun...

Post um modelo de como e e como deseja que fique

Mais uma possibilidade Sub GeraTxt() Dim Dados As String, Cpo() As String Dim lR As Integer, lCol As Integer 'Local onde o arquivo txt ira ser gravado...

Boa tarde Carlos, Utilise o Application.quit sem remover o Thisworkbook.save onde está: ThisWorkbook.Save ThisWorkbook.Close Deixe: ThisWo...

Boa tarde Anacleto, Utiliza esse código em "EstaPasta_de_trabalho" Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim ValorData As St...

Para números há uma limitação no Excel de 15 digitos (

Boa tarde, Segue minha contribuição. Qualquer coisa da o grito. Abraço

Bom dia!! Você leu o link que eu te mande na postagem anterior? Leia Att

Bom dia!! A guia "Resultado_Diario" deve está desprotegida (manualmente ou via VBA), para que o código funcione! Para fazer via VBA leia:

Bom dia!! Tente algo assim.. Sub AleVBA_17579() 'Leia:http://www.cpearson.com/excel/ImpText.aspx Const DELIMITER As Stri...

Experimente assim então: Option Explicit Sub Carrega_Altera() Dim cSheet As String Dim OldName As String, strAtual As String, strNovo As String Dim s...