Ir ao conteúdo
  • Cadastre-se

Ricardo001

Membro Júnior
  • Posts

    3
  • Cadastrado em

  • Última visita

Reputação

0
  1. Prezados, boa noite! Trabalho com uma planilha na qual exporto dados dela para o formato CSV (ponto e vírgula) (gerando uma planilha separada) e depois abro o arquivo CSV no bloco de notas e troco os pontos e virgulas para somente virgula, assim consigo utilizar os dados em outro programa que uso. Atualmente faço tudo isso manualmente, gostaria de uma macro para que eu apertasse o botão e ela exportasse os dados e criasse esse arquivo em CSV separado da planilha principal e já separado em vírgula. Alguém já tentou algo do tipo? tentei usar o seguinte código mas não obtive exito. Private Sub cmdXlsCsv_Click() Dim xls As Excel.Application Dim tmp As String Dim oWB As Excel.Workbook Set xls = New Excel.Application tmp = "C:\Users\cjack\Desktop\Copy of Book5.xlsx" Set oWB = xls.Workbooks.Open(tmp) oWB.SaveAs Filename:=Replace(tmp, ".xls", ".csv", , , vbTextCompare), FileFormat:=xlCSVMSDOS, CreateBackup:=False oWB.SaveAs Filename:=Replace(tmp, ".xls", ".csv", , , vbTextCompare), FileFormat:=xlCSVMSDOS, CreateBackup:=False oWB.Close xls.Quit End Sub Se alguém puder me ajudar, ficarei imensamente grato, Atte., EXEMPLO.zip
  2. @osvaldomp , muito obrigado! Funcionou perfeitamente, muito bom mesmo! Osvaldo, tenho mais uma pergunta: há alguma bibliografia que você possa indicar, que trate de macros e VBA? procurei na internet, e todas sobre excel, tratam mais de fórmulas, e não da programação em si. Tenho noção básica de lógica (e, se, ou..) e acredito que a base seja a mesma. Novamente, obrigado!
  3. Boa noite, Primeiramente quero agradecer a ajuda de todos que contribuem no fórum, graças a vocês, consegui desenvolver minha primeira macro, obrigado! Eis minha dúvida: quero criar uma macro que insira duas colunas automaticamente, e em uma dessas colunas a fórmula =SE(SOMA(LETRA_COLUNA_INSERIDA12:LETRA_COLUNA_INSERIDA264)<>0;"SIM";"-"). Essa macro seria ativada por um botão. A razão é que possuo uma macro nesta planilha que oculta as colunas em um intervalo, se o valor na célula acima desta coluna, na linha 2, tiver o valor lógico diferente de "SIM", e para não ter que alterar a macro toda vez que for necessário inserir uma nova coluna, gostaria de desenvolver a macro citada acima. Quero fazer isto para que qualquer usuário da planilha possa inserir essas novas colunas, se necessário, sem precisar alterar a macro de ocultar colunas. Macro que utilizo para ocultar as colunas: Sub ocultaColunas() For coluna = 7 To 190 If Cells(2, coluna) <> "SIM" Then Columns(coluna).Hidden = True Else Columns(coluna).Hidden = False End If Next End Sub Neste caso, a primeira coluna com a fórmula citada acima seria inserida depois da coluna CN e a segunda coluna (sem fórmula) depois da coluna FT. Não sei se é possível este procedimento, mas agradeço desde já qualquer ajuda. A planilha citada segue em anexo. PLANILHA.zip

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...