Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Atualizar variável ...
 
Notifications
Clear all

Atualizar variável ultima linha ao inserir linhas ???

 
Página 2 / 2
2024 - VBA & Macros
18 Posts
2 Usuários
0 Reactions
4,352 Visualizações
RSS
 guma
(@guma)
Posts: 135
Estimable Member
Topic starter
 

Boa Tarde

Montei a seguinte estrutura For Next e a Mesma não roda até a ultima linha usada conforme eu pretendia.
pode ser porque a rotina inseri linhas em algumas situações ??? :?:
Se for este o caso como faço para atualizar minha variavel U :shock: 

sub Concilar
Dim U As Long
U = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row ' ultima linha
For r = 1 To U Step 1
    If Range("E" & r).Value = "" Then
    Range("C" & r).FormulaR1C1 = "=OBTERNF(RC[1])"
    Else: Range("D" & r).Value = Range("E" & r).Value
          Range("D" & r).EntireRow.Insert
          r = r + 1
            With ActiveSheet.Rows(r & ":" & r).Font
            .Bold = True
            .Italic = True
            .Size = 10
            .Name = "Times New Roman"
            .ColorIndex = 3
        End With
    End If
Next r
end sub

Att.

 
Postado : 15/05/2013 3:00 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Aprendi as fórmulas ensinando, vamos ver se ensinando VBA eu aprendo...
o/

(to quase igual a você... todo enrolado com as planilhas)

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

 
Postado : 16/05/2013 11:32 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mais à noitee eu farei uma revisão geral do código.
A ultima vez que fiz isso aqui, reduzi o tempo de execução de 1h para 30s.
(viewtopic.php?f=10&t=8022)
E o cara nem entrou mais. Mancada. :-(

Acho legal fazer isso e sempre ensinar coisas novas pra galera.
Mas vou fazer com calma, depois.

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

 
Postado : 16/05/2013 11:40 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Mais à noitee eu farei uma revisão geral do código.
A ultima vez que fiz isso aqui, reduzi o tempo de execução de 1h para 30s.
E o cara nem entrou mais. Mancada. :-(

Acho legal fazer isso e sempre ensinar coisas novas pra galera.
Mas vou fazer com calma, depois.

Vai ver a resposta dele foi afetada pelo tempo de execução que nem vimos ela ser executada, kkkkkk

Veja se vai reduzindo o tempo aos poucos, assim dará tempo para eles responderem.

Brincadeiras a parte, infelizmente isso faz parte, quantas ajudas em varios foruns em acabamos sem saber se realmente ajudou ou não pelo fato de não darem retorno, mas fazer o que, se estiver ao nosso alcance vamos ajudando.

[]s

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

 
Postado : 16/05/2013 12:00 pm
Página 2 / 2
Forum Jump:
  Tópico Anterior
Próximo Tópico