(04/12/2023, 11:59)feraz yazdı: Son hali ekte.
Bazı yerleri dizi ile yaptım ve roketlendi ve hata verirse kod duruyordu bunun için eklemeler yaptım.
bana göre tam çalışıyor yinede tam deneyin.
Eğer doğru çalışıyorsa bu dosyadaki kodları deneyin.
Eğer userform istemiyorsanız onu silip çift tıklama kodunuda silin.
sayın feraz uygulama gerçekten hızlandı, ama B sütunu yada eklene diğer sütunlarda bazı eklemeler yapmıştım bir önceki uygulamaya. şimdi bu uygulamada hata veriyor.
B sütunundaki seçime göre sütun genişliği eklenen içerik sütunlarının yazı tip vs gibi özellikleri(Kalınlık ve hücre ortalama gibi)
eski kod
syf.Columns(sutunekle).AutoFit
syf.Columns(sutunekle).HorizontalAlignment = xlCenter
syf.Columns(sutunekle).Font.Bold = True