(28/11/2023, 12:30)feraz yazdı: Rica ederim.
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 = "%"

bunu eklerseniz Garanti Edilen İçerik ile pH arasına % ekler sadece ama alttakini  eklerseniz.

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 = "%"

Sayın feraz; verdiğiniz satırı başka bir satıra yazarak "%" sorununu çözdüm. teşekkürler.

Çalışmanın tüm düzenlemeleri yapılmış hali ektedir (Ufak hatalar dışında). program biraz yavaşladı (Kasılıyor). kullanmak isteyen arkadaşlar olursa kullansınlar.