Macro SE

[busato]

Bom dia

Por favor. estou precisando de uma ajudinha para finalizar uma planilha utilizando o Excel office 2007 preciso fazer isso usando macro pois acredito ser a forma mais segura.

Tenho uma sequencia horizontal de 3 celulas as 2 primeiras são datas ( representadas por mês) entrada e saida.

exemplo:

mês 1 (entrada) até mês 6 (saída)

esse espaço entre o mês 1 ao 6 preciso que repita a sequência de meses.

SE 1 ao 6 então repitir 1 2 3 4 5 6.

Obrigado:confused:

[Patropi]

Bom dia busato

Só com a tua explicação ficou confuso de entender o que você quer, poste a tua planilha com explicações num site gratuíto como o:

http://www.4shared.com/

Depois cole o endereço da planilha aqui no fórum.

Um abraço

[busato]

http://www.4shared.com/dir/TXRQWTvB/roberto.html

segue link com a planilha

desde já grato

[Márcio Rodrigues]

Duvidas

exemplo:

mês 1 (entrada) até mês 6 (saída) ' Onde estarão este valores (em que celulas)?

SE 1 ao 6 então repitir 1 2 3 4 5 6. 'Repetir onde (em quais celulas)?

[busato]

mês 1 (entrada) até mês 6 (saída) ' Onde estarão este valores (em que celulas)?

entrada C11 saida E11

SE 1 ao 6 então repitir 1 2 3 4 5 6. 'Repetir onde (em quais celulas)?

voltar informação (repetir) a partir da célula P11 Q11 R11

entrada e saida são campos variáveis que devem ser preeenchidos

a partir do P11 deve voltar os campos com os meses sempre considerando as celulas que são preenchidas nos campos C11 E11..

Estou fazendo uma simulação de DRE com algumas premissas, financiamento, RAM UP= capacidade produtiva da fabrica e taxa de juros !! a partir do momento que mudamos o cenario C11 E11 mudamos a projeção do DRE que está amarrado em outra planilha...

obrigado

[Márcio Rodrigues]

Ainda tenho dúvidas quanto as celula C13 e E13, mas tente isto:

Sub Preencher()

For i = 11 To 21 Step 2

Inicio = Range("C" & i).Value

Termino = Range("E" & i)

Coluna = 16

If Range("C" & i).Value > 0 And Range("E" & i) > 0 Then

For j = Inicio To Termino

Cells(i, Coluna).Value = j

Coluna = Coluna + 1

Next

End If

Next

End Sub

Veja se é por ai...

[busato]

Marcio Rodrigues Muito Obrigado !!! show de bola !!

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.