AccessTr.neT

Rica ederim, iyi akşamlar.

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.

(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

(04/12/2023, 19:39)hnakis yazdı: [ -> ]syf.Columns(sutunekle).AutoFit
syf.Columns(sutunekle).HorizontalAlignment = xlCenter
syf.Columns(sutunekle).Font.Bold = True

Yanılmıyorsam bu kodları silmiştim çünkü bu kodlar tek tek ekliyordu ama yenide tümünü birden ekliyor.
Hatalı dosyayı yüklerseniz uyarlayayım.

(04/12/2023, 20:36)feraz yazdı: [ -> ]

(04/12/2023, 19:39)hnakis yazdı: [ -> ]syf.Columns(sutunekle).AutoFit
syf.Columns(sutunekle).HorizontalAlignment = xlCenter
syf.Columns(sutunekle).Font.Bold = True

Yanılmıyorsam bu kodları silmiştim çünkü bu kodlar tek tek ekliyordu ama yenide tümünü birden ekliyor.
Hatalı dosyayı yüklerseniz uyarlayayım.

sayın feraz hallettim teşekkürler. kodları inceliyorum öğrenmek için, iyi oluyor.

Rica ederim,anlamadığınız yer varsa sorabilirsiniz.