Skip to main content
adicionou 206 caracteres ao conteúdo
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

os dados ultrapassam os limites de caracteres para nomear abas no excel.

Como poderia resolver isso?

Sub compilação()

linha = 1 linha_fim = Range("A1").End(xlDown).Row

Range("B2:B" & linha_fim).Copy Range("U1").PasteSpecial Application.CutCopyMode = False ActiveSheet.Range("$U$1:$U$" & linha_fim).RemoveDuplicates Columns:=1, Header:= _ xlNo

linha_fim = Range("U1").End(xlDown).Row

While linha <= linha_fim Sheets.Add After:=ActiveSheet ActiveSheet.Name = Sheets("Base").Cells(linha, 2)

Sub compilação()

linha = 1
linha_fim = Range("A1").End(xlDown).Row

Range("B2:B" & linha_fim).Copy
Range("U1").PasteSpecial
Application.CutCopyMode = False
ActiveSheet.Range("$U$1:$U$" & linha_fim).RemoveDuplicates Columns:=1, Header:= _
    xlNo
    
linha_fim = Range("U1").End(xlDown).Row
    
While linha <= linha_fim
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Sheets("Base").Cells(linha, 2)
    
    **Tamanho = Len(ActiveSheet.Name)
    If Tamanho > 30 Then
        ActiveSheet.Name = Mid(ActiveSheet.Name, Tamanho - 30, 30)
    End If
    ActiveSheet.Name = ActiveSheet**
    
    Sheets("Base").Range("A1:S1").Copy
    ActiveSheet.Range("A1").PasteSpecial
    
    linha = linha + 1

Wend

Sheets("Base").Range("U:U").Clear

linha = 2

While Sheets("Base").Cells(linha, 1) <> "" Sheets("Base").Range("A" & linha & ":S" & linha).Copy

Wend

Sheets("Base").Range("U:U").Clear

linha = 2

While Sheets("Base").Cells(linha, 1) <> ""
    Sheets("Base").Range("A" & linha & ":S" & linha).Copy
    
    Naturezas = Sheets("Base").Cells(linha, 2)
    Sheets(Naturezas).Select
    Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial
    Application.CutCopyMode = False
    
    Sheets("Base").Select

    linha = linha + 1
Wend

For Each aba In ThisWorkbook.Sheets
    aba.Columns("A:S").AutoFit
Next

End Sub

Wend

For Each aba In ThisWorkbook.Sheets aba.Columns("A:S").AutoFit Next

End Sub

os dados ultrapassam os limites de caracteres para nomear abas no excel.

Como poderia resolver isso?

Sub compilação()

linha = 1 linha_fim = Range("A1").End(xlDown).Row

Range("B2:B" & linha_fim).Copy Range("U1").PasteSpecial Application.CutCopyMode = False ActiveSheet.Range("$U$1:$U$" & linha_fim).RemoveDuplicates Columns:=1, Header:= _ xlNo

linha_fim = Range("U1").End(xlDown).Row

While linha <= linha_fim Sheets.Add After:=ActiveSheet ActiveSheet.Name = Sheets("Base").Cells(linha, 2)

**Tamanho = Len(ActiveSheet.Name)
If Tamanho > 30 Then
    ActiveSheet.Name = Mid(ActiveSheet.Name, Tamanho - 30, 30)
End If
ActiveSheet.Name = ActiveSheet**

Sheets("Base").Range("A1:S1").Copy
ActiveSheet.Range("A1").PasteSpecial

linha = linha + 1

Wend

Sheets("Base").Range("U:U").Clear

linha = 2

While Sheets("Base").Cells(linha, 1) <> "" Sheets("Base").Range("A" & linha & ":S" & linha).Copy

Naturezas = Sheets("Base").Cells(linha, 2)
Sheets(Naturezas).Select
Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False

Sheets("Base").Select

linha = linha + 1

Wend

For Each aba In ThisWorkbook.Sheets aba.Columns("A:S").AutoFit Next

End Sub

os dados ultrapassam os limites de caracteres para nomear abas no excel.

Como poderia resolver isso?

Sub compilação()

linha = 1
linha_fim = Range("A1").End(xlDown).Row

Range("B2:B" & linha_fim).Copy
Range("U1").PasteSpecial
Application.CutCopyMode = False
ActiveSheet.Range("$U$1:$U$" & linha_fim).RemoveDuplicates Columns:=1, Header:= _
    xlNo
    
linha_fim = Range("U1").End(xlDown).Row
    
While linha <= linha_fim
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Sheets("Base").Cells(linha, 2)
    
    **Tamanho = Len(ActiveSheet.Name)
    If Tamanho > 30 Then
        ActiveSheet.Name = Mid(ActiveSheet.Name, Tamanho - 30, 30)
    End If
    ActiveSheet.Name = ActiveSheet**
    
    Sheets("Base").Range("A1:S1").Copy
    ActiveSheet.Range("A1").PasteSpecial
    
    linha = linha + 1
Wend

Sheets("Base").Range("U:U").Clear

linha = 2

While Sheets("Base").Cells(linha, 1) <> ""
    Sheets("Base").Range("A" & linha & ":S" & linha).Copy
    
    Naturezas = Sheets("Base").Cells(linha, 2)
    Sheets(Naturezas).Select
    Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial
    Application.CutCopyMode = False
    
    Sheets("Base").Select

    linha = linha + 1
Wend

For Each aba In ThisWorkbook.Sheets
    aba.Columns("A:S").AutoFit
Next

End Sub
adicionou 922 caracteres ao conteúdo
Fonte Link

os dados ultrapassam os limites de caracteres para nomear abas no excel.

Como poderia resolver isso?

Sub compilação()

linha = 1 linha_fim = Range("A1").End(xlDown).Row

Range("B2:B" & linha_fim).Copy Range("U1").PasteSpecial Application.CutCopyMode = False ActiveSheet.Range("$U$1:$U$" & linha_fim).RemoveDuplicates Columns:=1, Header:= _ xlNo

linha_fim = Range("U1").End(xlDown).Row

While linha <= linha_fim Sheets.Add After:=ActiveSheet ActiveSheet.Name = Sheets("Base").Cells(linha, 2)

While linha**Tamanho <== linha_fimLen(ActiveSheet.Name)
 If Tamanho > Sheets.Add30 After:=ActiveSheetThen
    ActiveSheet.Name = SheetsMid("relatorio_despacho-1")ActiveSheet.Cells(linhaName, 21)
 Tamanho - 30, 30)
 End If
ActiveSheet.Name = ActiveSheet**

Sheets("relatorio_despacho-1""Base").Range("A1:S1").Copy
    ActiveSheet.Range("A1").PasteSpecial 

linha = linha + 1

Wend

Sheets("Base").Range("U:U").Clear

linha = 2

While Sheets("Base").Cells(linha, 1) <> "" Sheets("Base").Range("A" & linha & ":S" & linha).Copy

Naturezas = Sheets("Base").Cells(linha, 2)
Sheets(Naturezas).Select
Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False

Sheets("Base").Select

linha = linha + 1

Wend

Wend

For Each aba In ThisWorkbook.Sheets aba.Columns("A:S").AutoFit Next

End Sub

os dados ultrapassam os limites de caracteres para nomear abas no excel.

Como poderia resolver isso?

While linha <= linha_fim
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Sheets("relatorio_despacho-1").Cells(linha, 21)
    
    Sheets("relatorio_despacho-1").Range("A1:S1").Copy
    ActiveSheet.Range("A1").PasteSpecial
    linha = linha + 1

Wend

os dados ultrapassam os limites de caracteres para nomear abas no excel.

Como poderia resolver isso?

Sub compilação()

linha = 1 linha_fim = Range("A1").End(xlDown).Row

Range("B2:B" & linha_fim).Copy Range("U1").PasteSpecial Application.CutCopyMode = False ActiveSheet.Range("$U$1:$U$" & linha_fim).RemoveDuplicates Columns:=1, Header:= _ xlNo

linha_fim = Range("U1").End(xlDown).Row

While linha <= linha_fim Sheets.Add After:=ActiveSheet ActiveSheet.Name = Sheets("Base").Cells(linha, 2)

**Tamanho = Len(ActiveSheet.Name)
If Tamanho > 30 Then
    ActiveSheet.Name = Mid(ActiveSheet.Name, Tamanho - 30, 30)
End If
ActiveSheet.Name = ActiveSheet**

Sheets("Base").Range("A1:S1").Copy
ActiveSheet.Range("A1").PasteSpecial 

linha = linha + 1

Wend

Sheets("Base").Range("U:U").Clear

linha = 2

While Sheets("Base").Cells(linha, 1) <> "" Sheets("Base").Range("A" & linha & ":S" & linha).Copy

Naturezas = Sheets("Base").Cells(linha, 2)
Sheets(Naturezas).Select
Range("A10000").End(xlUp).Offset(1, 0).PasteSpecial
Application.CutCopyMode = False

Sheets("Base").Select

linha = linha + 1

Wend

For Each aba In ThisWorkbook.Sheets aba.Columns("A:S").AutoFit Next

End Sub

adicionou 4 caracteres ao conteúdo
Fonte Link
danieltakeshi
  • 4mil
  • 1
  • 17
  • 32

os dados ultrapassam os limites de caracteres para nomear abas no excel.

Como poderia resolver isso?

While linha <= linha_fim
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Sheets("relatorio_despacho-1").Cells(linha, 21)
    
    Sheets("relatorio_despacho-1").Range("A1:S1").Copy
    ActiveSheet.Range("A1").PasteSpecial
    linha = linha + 1 

Wend

Wend

os dados ultrapassam os limites de caracteres para nomear abas no excel.

Como poderia resolver isso?

While linha <= linha_fim
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Sheets("relatorio_despacho-1").Cells(linha, 21)
    
    Sheets("relatorio_despacho-1").Range("A1:S1").Copy
    ActiveSheet.Range("A1").PasteSpecial
    linha = linha + 1

Wend

os dados ultrapassam os limites de caracteres para nomear abas no excel.

Como poderia resolver isso?

While linha <= linha_fim
    Sheets.Add After:=ActiveSheet
    ActiveSheet.Name = Sheets("relatorio_despacho-1").Cells(linha, 21)
    
    Sheets("relatorio_despacho-1").Range("A1:S1").Copy
    ActiveSheet.Range("A1").PasteSpecial
    linha = linha + 1 

Wend
adicionou 30 caracteres ao conteúdo
Fonte Link
Luiz Augusto
  • 2,5mil
  • 17
  • 16
  • 30
Carregando
Fonte Link
Carregando