Notifications
Clear all

macro preencher celula de acordo com o criterio

2 Posts
2 Usuários
0 Reactions
872 Visualizações
(@silverio)
Posts: 50
Trusted Member
Topic starter
 

estou postando de novo, pois a resposta que tive nao foi satisfatória e não sei como dar continuidade na mesma postagem.

Preciso de uma macro que verifique o valor da coluna A e coloque em outra aba a quantiade da coluna A o valor da coluna B, ex.:

Está em uma aba.
Coluna A coluna B
5 a
3 b
2 c

em outra aba ficaria:
a
a
a
a
a
b
b
b
c
c

é possivel?

 
Postado : 12/10/2016 8:12 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 


Segue anexo.

Código:

Sub Preencher()

Dim wss As Worksheet

Set wss = Sheets("Planilha1")

Range("A2:A100").ClearContents

cont = 0
i = 2
lin = 2

Do While wss.Cells(i, 1) <> ""

cont = wss.Cells(i, 1)
ref = wss.Cells(i, 2)
Do While cont > 0
Cells(lin, 1) = ref
cont = cont - 1
lin = lin + 1
Loop
i = i + 1
Loop

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/10/2016 8:31 am