Excel VBA - Como fazer o IF ignorar algumas celulas ja preenchidas

[isabela queiroz]

Sub main ()

Dim Item    As Range
    
    Set Item = ThisWorkbook.Sheets("Carga").Cells.Find( _
        What:="Add item", LookIn:=xlValues, LookAt:=xlWhole)
        
    If Not Item Is Nothing Then
        Set Item = Item(2)
            While Item <> ""
                Item = "245897-" & Item
        Set Item = Item(2)
        Wend
    End If
    
End Sub

como adiciono a esse codigo uma função que se ja tiver o numero "245897-" na celula não precisa adicionar na frente do texto 

[Midori]

@isabela queiroz É só fazer a condição,

If Left(Item.Value, Len("245897-")) <> "245897-" Then
    Item = "245897-" & Item
End If

 

[isabela queiroz]

@Midori eu coloco esse if em que parte do codigo?

 

[Midori]

@isabela queiroz Como o seu código não tem nenhuma condição no loop para concatenar "245897-" com o valor da célula, isso será feito para qualquer uma. Por isso você precisa testar antes se o valor já começa com "245897-". É isso que estrutura que postei faz.

 

Veja que usei duas funções de string, Left e Len, para verificar se o código já faz parte do início do valor da célula

[isabela queiroz]

@Midori Atualização:

 

Consegui arrumar um erro que tinha encontrado mas era eu que tinha colocado em ordem errada, assim ta funcionando, poderia verificar se esta tudo certo com o codigo e não aparenta apresentar erros futuros?

 

E eu notei que algumas das celulas da minha tabela original tem celulas brancas, ai o codigo acaba quando chega nela, sendo que é pra continuar para a proxima, como faço para ignorar as celulas vazias e continuar o codigo?

 

Sub main ()

Dim Item    As Range
    
    Set Item = ThisWorkbook.Sheets("Carga").Cells.Find( _
        What:="Add item", LookIn:=xlValues, LookAt:=xlWhole)
        
    If Not Item Is Nothing Then
        Set Item = Item(2)
    
                While Item <> ""
            If Left(Item.Value, Len("245897-")) <> "245897-" Then
                Item = "245897-" & Item
            End If
        
        Set Item = Item(2)
        Wend
    End If
End Sub

 

[Midori]

@isabela queiroz Está faltando várias linhas de código aí. Cadê o While, o Set Item, o If Not Item? Acrescente a condicional no seu primeiro código.

[isabela queiroz]

4 minutos atrás, Midori disse:

@isabela queiroz Está faltando várias linhas de código aí. Cadê o While, o Set Item, o If Not Item? Acrescente a condicional no seu primeiro código.

@Midori Notei assim que postei, verifica o comentario acima, por favor

[Midori]

35 minutos atrás, isabela queiroz disse:

E eu notei que algumas das celulas da minha tabela original tem celulas brancas, ai o codigo acaba quando chega nela, sendo que é pra continuar para a proxima, como faço para ignorar as celulas vazias e continuar o codigo?

Nesse caso pode atribuir a última linha da planilha para fazer o loop até ela. Dependendo da tabela pode ser com CurrentRegion ou então UsedRange, p.ex,

 

Sub Main()
    Const PREFIXO   As String = "245897-"
    Dim Item        As Range
    Dim Linha       As Long
    
    Set Item = Cells.Find( _
        What:="Add item", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not Item Is Nothing Then
        For Linha = Item.Row + 1 To ActiveSheet.UsedRange.Rows.Count
            If Item(Linha).Value <> "" Then
                If Left(Item(Linha).Value, Len(PREFIXO)) <> PREFIXO Then
                    Item(Linha).Value = PREFIXO & Item(Linha).Value
                End If
            End If
        Next Linha
    End If
End Sub

 

[isabela queiroz]

@Midori deu certinho agora, só tirei o  + 1 daqui porque começou a pular a primiera celula da tabela depois do cabeçalho, muito obrigada!!

12 minutos atrás, Midori disse:

For Linha = Item.Row + 1 To ActiveSheet.UsedRange.Rows.Count

 

[Midori]

Da forma que fiz, se tirar o +1 o código vai começar a atribuir a partir do nome da coluna.