bir sayfadan diğerine

[memonet555]

Merhaba,

Arkadaşlar, çalışmama ışık tutması açısından basit bir excel tablosu hazırladım. Bu tablodaki hareketleri, Sayfa 1 'den, Sayfa 2 ve Sayfa 3'e G sütunundaki bilgiye göre, Mesala; 0'a eşitse tüm satırı Sayfa 1, 0'dan büyükse Sayfa 2'ye aktaracak bir makro yada buna benzer bir şeye ihtiyacım var. Umarım anlatabilmişimdir. Teşekkürler.

 

[Ali]

Eki inceleyin

 

[memonet555]

İlginiz için teşekkür ederim.

Bu liste uzayıp gitse ne yapmalıyım. Hem sütun olarak hemde satır olarak.

Ayrıca, aktarırken sayfa 2 'de üsteki sütun başlıkları sabitken, sayfa 3'de makro kendisi koyuyor. bunu düzeltebilirmiyiz. yani her iki sayfada da sütun başlıkları sabit kalsın.

 

[Ali]

Ayrıca, aktarırken sayfa 2 'de üsteki sütun başlıkları sabitken, sayfa 3'de makro kendisi koyuyor. bunu düzeltebilirmiyiz. yani her iki sayfada da sütun başlıkları sabit kalsın.

Sub sec2 () içindeki b=1'i b=0 olarak değiştirin.

Bu liste uzayıp gitse ne yapmalıyım. Hem sütun olarak hemde satır olarak

For Each secim In Worksheets("sayfa1").Range("G1:G100")

Ben yüz satır için yaptım siz G100 kısmını siz artırırsınız.Dikkat ederseniz en son 7'de bitiyor. Worksheets("sayfa3").Cells(b, 7) = secim gibi

Bu G sütunu 7 sütun olduğu için oraya kadar say ve aktar demektir sizin sütunlarınız K'ya kadar ise 11(K 11'inci sütundur) yapıp

Worksheets("sayfa3").Cells(b, 1) = secim.Offset(0, -10) bu sefer bu sıra ile gideceksiniz.


Umarım anlatabilmişimdir.

 

[memonet555]

teşekkür ederim. anladım. gerekirse müsadenle tekrar yazarım. çok saol.