Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Ajuda Simples para ...
 
Notifications
Clear all

Ajuda Simples para iniciante

 
2024 - VBA & Macros
Post Recente por kainna 10 anos atrás
6 Posts
3 Usuários
0 Reactions
1,389 Visualizações
RSS
 kainna
(@kainna)
Posts: 0
New Member
Topic starter
 

Bom dia!
Sou nova por aqui e nova no vba.
Apesar de eu ser analista de sistemas, especializada em php, tenho uma tremenda dificuldade com o vba (é mole ou quer mais??? :? :? :? )

Estou necessitada de fazer um preenchimento em excel e quero a ajuda de voces se possível.

Tenho uma tabela de turnos e uma de escolas: na verdade preciso preencher o codigo 12 vezes e depois copiar o próximo codigo por mais 12 vezes.
Anexei um exemplo.

Se alguem souber como fazer isso ficarei grata e poderei começar a aprender sobre o vba

 
Postado : 21/01/2015 6:24 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

kainna,

Bom Dia!

Desculpe... não entendi a sua demanda. Poderia ser mais detalhista?

 
Postado : 21/01/2015 9:06 am
 kainna
(@kainna)
Posts: 0
New Member
Topic starter
 

Desculpe, vou tentar ser mais clara.
Preciso preencher por exemplo o primeiro código (27) doze vezes, depois preciso de buscar o proximo código (35) e preencher por mais doze vezes e assim por diante até completar as 3.545 escolas (cod censo).

Espero ter sido entendida.
Agradeço desde já.

 
Postado : 21/01/2015 9:34 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se atende

Sub preenche()
Dim x As Long, y As Long, z As Long
With Sheets("Plan1")
    .Cells(2, 1).Select
    For x = 2 To .Cells(Cells.Rows.Count, "G").End(xlUp).Row
        y = ActiveCell.Row
        For z = y To y + 12
            .Cells(z, "A").Select
            .Cells(z, "A").Value = .Cells(x, "G").Value
        Next
    Next
End With
End Sub
 
Postado : 21/01/2015 10:35 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Ok.

Veja se é assim.

resultado final.zip
 
Postado : 21/01/2015 10:36 am
 kainna
(@kainna)
Posts: 0
New Member
Topic starter
 

Bom dia!
Exatamente!!!!!!!!!!!!!!

Agradeço a ajuda dos dois (Reinaldo e Wagner).
Dessa forma também aprendo com voces!

Grata.

 
Postado : 22/01/2015 6:59 am
Forum Jump:
  Tópico Anterior
Próximo Tópico