FAZER O CODIGO RODAR DA ULTIMA LINHA DO BD

USUARIO.EXCLUIDOS 21/08/2007 20:06:17
#231934
pessoal segue uma dúvida....arquivo de texto em bloco de notas que varia a quantidade de linhas. tem como adaptar esse código para rodar da última linha para cima.

Function CompararCelula()
Dim VarNumero As String
Dim VarE As String
Dim VarC As String
VarNumero = 2
VarE = "D"
VarC = "C"
Dim finalrow As Range
Dim totalrow 'As Range
Set finalrow = Range("C65536").End(xlUp) '.Row
 totalrow = finalrow + 1
  
  For Each C In Worksheets("israel1").Range("C2 & totalrow").Cells
    
    Range(VarC & VarNumero) = Replace(Range(VarC & VarNumero), ".", ",")
    
    If Range(VarC & VarNumero) <= CDbl("9,30") Or Range(VarC & VarNumero) > CDbl("05.00") Then
        
       Range(VarE & VarNumero) = "DESEJUM"
       
    Else
        
        If Range(VarE & VarNumero) <= CDbl("14.30") Or Range(VarE & VarNumero) > CDbl("12.00") Then
        
            Range(VarE & VarNumero) = "ALMOÇO"
        Else
            Range(VarE & VarNumero) = ""
        End If
       
    End If
    
    VarNumero = VarNumero + 1
    
  Next

End Function
ZULLIM 21/08/2007 23:25:51
#231951
Você pode jogar todo o conteúdo do texto para um Array (matriz) e ler esse array começando do último registro.

Tem o comando split que joga todo o conteúdo para o array.
Tópico encerrado , respostas não são mais permitidas
Voltar