Bom dia pessoal.
Gostaria que o texto em negrito fosse substituido pelo valor de uma celula em uma outra sheet do mesmo workbook. Como faço isso?
With Sheets("TEMP")
For lLin = .Cells(.Rows.Count, "C").End(xlUp).Row To 2 Step -1
If .Cells(lLin, "C") <> "Quero Descontos" Then .Rows(lLin).Delete
'Desafoga os processos pendentes do Windows a cada 100 linhas iteradas:
If lLin Mod 100 = 0 Then DoEvents
Next lLin
End With
Obrigado!
Boa tarde!!
Já tentou?
Sub AleVBA_11467()
'
With Sheets("TEMP")
For lLin = .Cells(.Rows.Count, "C").End(xlUp).Row To 2 Step -1
If .Cells(lLin, "C").Font.Bold <> "Quero Descontos" Then .Rows(lLin).Delete
'Veja o .Font.Bold acima
'Desafoga os processos pendentes do Windows a cada 100 linhas iteradas:
If lLin Mod 100 = 0 Then DoEvents
Next lLin
End With
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Usei o negrito apenas para evedenciar o termo.
tentei usar o script worksheets("PARAMETROS").Range("A5").Value e não funcionou. Não entendo o porque.
Na celula A5 eu tenho o valor Quero Descontos.
Boa Tarde!
Vamos supor que você está querendo substituir o texto em negrito (Quero Descontos) pelo valor que está na célula D6 da da Sheet chamada ("Plan4"). Você utilizaria o código abaixo:
With Sheets("TEMP")
For lLin = .Cells(.Rows.Count, "C").End(xlUp).Row To 2 Step -1
If .Cells(lLin, "C") <> Sheets("Plan4").Range ("D6").Value Then .Rows(lLin).Delete
'Desafoga os processos pendentes do Windows a cada 100 linhas iteradas:
If lLin Mod 100 = 0 Then DoEvents
Next lLin
End With
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel