(28/11/2023, 03:33)feraz yazdı: Abey sıralama olayı tamam.

Reimdeki array içindekiler sondan başa doğru yazın.Sonucu ise tersi veriri hücrelerde.

---

Ayrıca alttaki gibi de yapılır fazla ekleyecekseniz.

Kod:

arr = Array("ORGANÝK KARBON", _
            "ORGANÝK MADDE", _
            "AAA", _
            "BBB")

Sayın feraz süper olmuş. arrBekle(2, sayBul) = "%" işareti eklemiyor ama (Yapamadım) tamamdır.

elinize sağlık. iyi ki varsınız.

Rica ederim.
Sub Aktar2(ByVal syf As Worksheet) kodundaki Application.EnableEvents = True üst satırına eğer

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.

(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.

Rica ederimKasma belki gizleme ve açma ile alakası olabilir.Ayrıca formüllerden dolayıda yavaş çalışabilinir.
Birde c sütununa yanılmıyorsam kg idi onuda koda bağlamıştım aktar2 gibi belki o da etki etmiş olabilir.

Bu application.enable yi en başa koyup hata koduda eklenirse dahada hızlanabilir.
Yavaş olan dosyayı eklerseniz hızlandırmak için bakabiliriz.

(28/11/2023, 21:18)feraz yazdı: Rica ederimKasma belki gizleme ve açma ile alakası olabilir.Ayrıca formüllerden dolayıda yavaş çalışabilinir.
Birde c sütununa yanılmıyorsam kg idi onuda koda bağlamıştım aktar2 gibi belki o da etki etmiş olabilir.

Bu application.enable yi en başa koyup hata koduda eklenirse dahada hızlanabilir.
Yavaş olan dosyayı eklerseniz hızlandırmak için bakabiliriz.

tüm yapılmış değiştirmelerle beraber ekledim 9. mesajda. şimdi üzerinde çalışıyorum çalışmanın. sanki hiç bir kod çalışmıyor. ilginç bir durum. tüm kodları tekrar inceliyorum hata nerelerde olabilir diye.

(28/11/2023, 21:31)hnakis yazdı: sanki hiç bir kod çalışmıyor.

İlk aklıma gelen hata olduysa application.enableevents=true satırına gelmediyde çalışmaz.Exceli açıp kapatmak gerekiyor yada kod bölümünde strg+g açıp bu komutu yazıp entere basmak.Dediğim kod olmazsada Excel zaten donabilir sayfa kodları ileçalışırken onu yazsak bir türlü yazmasak başka türlü.Bundan dolayo koda hata kodları eklemek şart abey.Belkide userform ile çalışabilirsiniz mantıken.