Sub Aktar2(ByVal syf As Worksheet) kodundaki Application.EnableEvents = True üst satırına eğer
Kod:
.Range(.Cells(bulW_W + 1, "C"), .Cells(bulPH - 1, "C")).Value = "%"
Garanti Edilen İçerik bir altı ve 1 lt Maliyeti(Son satır) satırı arasına ekler.
Bu tümüne ekler pH dahil.
Kod:
.Range(.Cells(bulW_W + 1, "C"), .Cells(.Cells(Rows.Count, "B").End(3).Row, "C")).Value = "%"