Formülsüz Vba İle Satır Ve Sütun Eklemeli Excel Çalışması

1 2 3 4 5 6 7 8
03/12/2023, 23:15

feraz

Rica ederim, iyi akşamlar.
04/12/2023, 11:59

feraz

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, 19:39

hnakis

(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, 20:36

feraz

(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.
05/12/2023, 11:01

hnakis

(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.
05/12/2023, 11:19

feraz

Rica ederim,anlamadığınız yer varsa sorabilirsiniz.
1 2 3 4 5 6 7 8