Ajuda Simples para iniciante

2024 - VBA & Macros

Post Recente por kainna 10 anos atrás

6 Posts

3 Usuários

0 Reactions

1,405 Visualizações

RSS

kainna

(@kainna)

Posts: 3

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: 0

Illustrious Member

kainna,

Bom Dia!

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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 21/01/2015 9:06 am

kainna

(@kainna)

Posts: 3

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

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

Postado : 21/01/2015 10:35 am

Wagner Morel

(@wagner-morel-vidal-nobre)

Posts: 0

Illustrious Member

Ok.

Veja se é assim.

resultado final.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

Postado : 21/01/2015 10:36 am