Notifications
Clear all

Ajuda Macros

3 Posts
1 Usuários
0 Reactions
1,295 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde amigos.

Preciso da ajuda de voces, é o seguinte : Eu recebo uma base de dados, e preciso que ela seja dividida entre os funcionarios. existe algum macro que ao clicar no botao o mesmo divida esta base igualmente para todos funcionarios?
Obrigado desde já.

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

 
Postado : 03/03/2011 12:47 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Kinho... em princípio, parece simples, mas qual seria o critério da divisão?

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

 
Postado : 03/03/2011 5:21 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Kinho

Essa me foi passada pelo próprio Edson faz um tempo já, acho que te serve.

Alternativa:

Atenção: os dados de origem estão na Plan1 e a Plan2, que vai receber os dados, deve ser a guia ativa.
Considero a existência de dados na Coluna A da Plan1 para o Loop e, como teste, estou copiando até a Coluna E.

Sub Filtro()

Dim slin As Long
Dim elin As Long

slin = 2
elin = 2

Do While Sheets("Plan1").Cells(slin, 1) <> ""
If Sheets("Plan1").Cells(slin, 3) = "Alagoas" Then
Sheets("Plan1").Range("A" & slin & ":E" & slin).Copy
Sheets("Plan2").Range("A" & elin).Select
Selection.PasteSpecial Paste:=xlPasteValues
slin = slin + 1
elin = elin + 1
Else
slin = slin + 1
End If
Loop

End Sub

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

 
Postado : 01/04/2011 8:06 am