Jump to content
Fórum Script Brasil
  • 0

Colar como Texto (VBA) - DEU ERRADO!


Question

Preciso copiar alguns dados da web e colar no Excel então resolvi criar um comando pra acelerar a colagem, os dados vem em quatro colunas, e varias linhas, sendo que na primeira coluna existem pontos ex: 1.02, 1.01.03, etc. Na segunda coluna existem textos, e na terceira e quarta coluna são números. Quando eu criei o código: 

Private Sub btColar_Click()

Application.ScreenUpdating = False

Dim W As Worksheet

Set W = Sheets("Base de Dados")

W.Select
W.Range("A1").Select

If ActiveCell.Value = "" Then
ActiveSheet.PasteSpecial Format:="Texto", Link:=False, DisplayAsIcon:= _
        False
        
Else

ActiveCell.End(xlDown).Select
ActiveCell.Offset(1, 0).Select

ActiveSheet.PasteSpecial Format:="Texto", Link:=False, DisplayAsIcon:= _
        False
    
End If

ActiveWindow.SmallScroll UP:=5000

Application.ScreenUpdating = True

End Sub

 

 A parte do "Colar como texto" eu não sei os comando, então criei uma macro e copiei os comandos de lá, mas quando eu faço manualmente da certo, mas quando uso o botão do código ai de cima os dados até colam certinho em 4 colunas diferentes e tals, mas a primeira coluna tem trocas dos pontos por virgulas (Me atrapalha em outras formulas), e nas colunas 3 e 4 os valores aparecem só pela metade, ex oque era 400.800 fica só 400. Alguém poderia me ajudar a resolver esse problema? 

Link to post
Share on other sites

1 answer to this question

Recommended Posts

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148871
    • Total Posts
      644871
×
×
  • Create New...