Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz..
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Çözüm
Özetle, başlangıçta 4 adet dizimsi ve 1 adet sonuç dizisi oluşturuluyor.Üstad ilerde eklemeler yapma açısından soruyorum kodun satırlarında açıklama yapmanız mümkün mü yaparsanız en azından forumda durmadan benzer sorular ve yardımlar istememiş olurum
-- 3'üncü satırdaki değerlerden oluşan dizimsi >> bslk1 = o.[BH3:BR3].Value2
-- 4'üncü satırdaki değerlerden oluşan dizimsi >> bslk2 = o.[BH4:BR4].Value2
-- sonuç tablosuna aktarma yapılırken yukardaki dizimsilerin kaçıncı elemanının yazılacağını gösteren sut = Array(.... dizimsisi
-- okunacak veriler v isimli dizimsiye alınıyor >> v = o.Range("B6:BR" & sono).Value2
Ardından v dizimsisinin satırları döngüye girilip, her satır için 10 satırlık ve 10 sütunluk sonuç dizisi dolduruluyor.
Mutlaka SIFIR olacak sütunlar için ayrı ayrı yazdırmak yerine, önce bu sonuç dizisinin tümüne SIFIR yazdırılıyor >> For u = 1 To..... :Next
ardından da For x = 1 To 10 döngüsüyle (satır döngüsü) sonuç dizisinin SIFIR dışındaki alanları dolduruluyor.
Döngü bitiminde de sonuç dizisi alana tek adımda yazdırılıyor.