AlexandreAMS

Olá Joanas... veja se atende! 1ª opção. For i = Cells(Rows.Count, 11).End(xlUp).Row To 1 Step -1 If Cells(i, 11) = "0" Then Rows(i).Delete End If Next i MsgBox "Realizado com Sucesso." 2ª Opção Excluir linhas com celula vazia, com a opção de escolher a coluna Sub Excluir_celula_vazia() Dim i As Integer Dim Entrada As Range Set Entrada = Application.InputBox(Prompt:="Selecione a coluna em que serão eliminadas as linhas vazias", Title:="Eliminação de linhas vazias", Type:=8) For i = Cells(Rows.Count, Entrada.Address).End(xlUp).Row To 1 Step -1 If Cells(i, Entrada.Address) = "" Then Rows(i).Delete Next i End Sub

Olá tenho uma macro que modifica uma data de acordo com uma condição: Sub Ajust_data_venc() Application.ScreenUpdating = False Dim y As Long For y = 2 To Cells(Cells.Rows.Count, "A").End(xlUp).Row Select Case Cells(y, "A").Value Case "teste" Cells(y, "C") = Cells(y, "B").Value + 28 Case "BrazCubas" Cells(y, "C") = Cells(y, "B").Value + 45 End Select Next Application.ScreenUpdating = True End Sub o que faz esta macro! ela percorre a coluna A e encontra um determinado cliente, no exemplo esta como "teste" (isso aumentará por isso usei case). e pega o valor que esta na coluna "B" e soma com 28(variavel de acordo com cliente) e altera em "C" o que necessito agora é que na mesma busca, da coluna "A" ele busque o que estiver em "D"... se fosse como formula... seria o mesmo que SE e E então ficaria assim: SE "teste" e "entregue"(nome que estará na célula D e é variável) executa a soma de B + a condição do cliente no caso 28... alguém saberia como posso solucionar isso, via VBA.