Satır ve sütundan oluşan tablodaki bilgileri, sadece sütunlara nasıl işleyebiliriz

[bilal5412]

Merhaba arkadaşlar,

Ekteki bağlantıdaki örnek çalışmamda, sayfa1 ve sayfa2 vardır. Sayfa1 deki A sütunundaki her bir satırdaki verinin, B sütunundan K sütununa kadar olan aralığındaki sütunlarda yer alan bilgileri Sayfa2 deki gibi nasıl yapılabilir.

**A sütununda boşluk yoktur ve satır sayısı belirsizdir.


https://drive.google.com/file/d/0B3wJKQcxKCV4YlZDSWRzZWNlcGs/view?usp=sharing

Yardımlarınız ve ilginiz için şimdiden teşekkürler.

 

[vardar07]

Dosyayı incelermisiniz.

https://drive.google.com/file/d/0B6I-jzxQFIEfd05KLUdFcEdXdUU/view?usp=sharing

 

[bilal5412]

Dosyayı incelermisiniz.

https://drive.google.com/file/d/0B6I-jzxQFIEfd05KLUdFcEdXdUU/view?usp=sharing

Merhaba,

Öncelikle ilginiz için teşekkür ederim. Çalışmanızdaki

s2.Cells(son, "B") = "Sütun " & k - 1

kalın harfler ile belirttiğim koda ilave yaparak olumlu sonuç ulaştım.

Sorum çözülmüştür.

Teşekkürler. Saygılar

 

[bilal5412]

Dosyayı incelermisiniz.

https://drive.google.com/file/d/0B6I-jzxQFIEfd05KLUdFcEdXdUU/view?usp=sharing

Merhaba,

Yazmış olduğunuz makro koduna Sayfa2 ye yazdırılan verilerinin yanına C sütununa da Sayfa1 deki sayısal değerleri de getirebilmeniz mümkün müdür ? (1 yazan değerleri)

 

[vardar07]

s2.Cells(son, "B") = "Sütun " & k - 1 Satırının altına aşağıdaki satırı ekleyerek yazabilirsiniz.

s2.Cells(son, "C") = s1.Cells(i, k).Value

 

[bilal5412]

s2.Cells(son, "B") = "Sütun " & k - 1 Satırının altına aşağıdaki satırı ekleyerek yazabilirsiniz.

s2.Cells(son, "C") = s1.Cells(i, k).Value

Çok teşekkürler. Sorum çözülmüştür.

Allah razı olsun.