Notifications
Clear all

Gerar numero Sequencial

4 Posts
3 Usuários
0 Reactions
2,127 Visualizações
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Amigos,Boa Noite!!!
Estou tentando automatizar uma rotina, mas me deparei com uma situação que desconheço, pois ainda sou novato e tenho muito, muito que aprender.

...Gostaria que no Arquivo anexo ao digitar na userform um numero, este preenchesse automático a sequencia no intervalo da Plan1 D:8 Até D:92...Ex: Digitei o numero doze , automaticamente, o intervalo Coluna D8 até D92 fosse preenchido automaticamente.... 12, 13, 14 etc..
Poderiam, por favor, me ajudar?

 
Postado : 05/02/2015 6:40 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa noite!!

Nada em nossa base te ajuda a ter uma inspiração?
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Att

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

 
Postado : 05/02/2015 7:34 pm
(@gtsalikis)
Posts: 2373
Noble Member
 

Experimenta assim:

Private Sub TextBox1_Change()

If TextBox1.Value = "" Then Exit Sub

Dim n As Long

Application.ScreenUpdating = False

n = TextBox1.Value
For Each cell In Range("D8:D92")
    cell.Value = n
    n = n + 1
Next cell

Application.ScreenUpdating = True

End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 05/02/2015 8:21 pm
(@xandrinho)
Posts: 0
Estimable Member
Topic starter
 

Experimenta assim:

Private Sub TextBox1_Change()

If TextBox1.Value = "" Then Exit Sub

Dim n As Long

Application.ScreenUpdating = False

n = TextBox1.Value
For Each cell In Range("D8:D92")
    cell.Value = n
    n = n + 1
Next cell

Application.ScreenUpdating = True

End Sub

Muito Obrigado a Todos vcs são abençoados por DEUS!!!

Obrigado

 
Postado : 09/02/2015 10:11 am