Lindi Ribeiro

Membros
  • Content Count

    6
  • Joined

  • Last visited

Community Reputation

0 Neutro

About Lindi Ribeiro

  1. Tarde Gente, Espero que possam me ajudar, eu queria fazer em vba, a mesma função de texto para colunas separar por aspas duplas, criei uma macro e até ai deu certo, só que eu queria também que ele copiasse o valor da coluna B e colasse na A sobrepondo os dados da linha correspondente, o problema é que nem todas as linhas da coluna b tem dados e eu não consegui fazer com que a macro execute da célula B1 até a B20 por exemplo quando há células vazias. Exemplo em anexo.
  2. Consegui remover os valores de texto que continham a palavra option e select, estava tentando fazer da forma mais díficil, mas assim deu certo :) Sub FormatarHTMFinal() Dim lRow As Long Dim lLast As Long Dim iLin As Long lLast = Plan1.UsedRange.Rows.Count For lRow = lLast To 2 Step -1 'If Not Cells(lRow, "a") Like "*option*" Then If Cells(lRow, "a") Like "*option*" Or _ Cells(lRow, "a") Like "*select*" Then Rows(lRow).Delete End If Next lRow ' apagar linhas vazias With Sheets("Plan1") For iLin = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1 If Cells(iLin, "A") = "" Then .Rows(iLin).Delete If iLin Mod 100 = 0 Then DoEvents Next iLin End With End Sub
  3. Time, Eu tenho um trecho de código em HTML queria formatar no Excel para remover o HTML deixar só os dados, isso em VBA. Já consegui excluir as linhas vazias e separar pelo delimitador "-", agora queria remover as linhas com a palavra option, tudo é muito díficil pra mim se alguém puder contribuir. Texto a formatar: <option value="285"> AMMA - André Miguel </option> <option value="341"> AMMA - Fernanda Maria </option> <option value="266"> AMMA - Camila da Silva </option> <option value="280"> AMMA - Eduardo Martins </option> <option value="275"> AMMA - Isabel Silva </option> <option value="336"> AMMA - Ana Silva </option> <option value="119"> AMMA - Julia silva </option> </select> ------------------------------------------------------------------------------------------------------------ Sub FormatarHTML() Dim coluna As String Dim i As Integer 'apagar células vazias coluna = Columns("A:A").Select i = 2 For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1 If Cells(i, 1) = "" Then Rows(i).Delete Next i 'texto para colunas ''ActiveCell.Offset(0, 0).Columns("A:A").EntireColumn.Select '' Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _ '' TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ '' Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _ '':="-", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True End Sub
  4. Obrigada Gender!!! Deu certo sim, só estou tentando fazer executar para toda a coluna, conhece alguma forma.
  5. Lindi Ribeiro

    Split VBA

    Olá pessoal, Sou novata no VBA e estou com um probleminha queria fazer aquela função de textos para colunas por exemplo selecione a coluna A e separe o texto pelo caractere "-", tentei usando o Split mas não rodou.