Lİsteleme

[veyselk]

Merhaba arkadaşlar forumdaki bilgilerden yararlanmaya devam ediyorum. emeği geçenlere teşekkür ediyorum.Ekte gönderdiğim örnek dosya da Sayfa 1 deki bilgilerden sayfa 2 ve sayfa 3 e farklı versiyonlarda liste yapmak istiyorum.
Bu listeyi makroyla sayfa 1 de a1' e rakam yazarak oluşturabilirmiyiz

 

[Metin Karaağaç]

Kaç yazarak mesela?
Yani kaç yazarsanız ne çıkıcak ortaya?

 

[veyselk]

Listeleme

Örnek liste 1 : Sayfa 1'de a1' e 1 yazdığımızda sayfa'1'in a,b,c,e,f sütunlarından oluşan liste sayfa2'ye yazsın.

Örnek liste 2 : Sayfa 1'de a1' e 2 yazdığımızda sayfa'1'in a,b,c,d,g,h sütunlarından oluşan liste sayfa2'e yazsın.

Liste a,b sütunlar sabit kalarak artırılabilir.

Ayrıca Oluşturulan listeler tek sayfa yani sayfa2 'ye oluşturulduğundan, bu oluşturulan listelerin satır ve sütunları seçilerek yazdırma sayfa 1'de a1'e listeyazdır makrosu ile nasıl yapılır?

 

[veyselk]

Listeleme

Arkadaşlar cevap bekliyorum. Yardımcı olursanız sevinirim.

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
Set s3 = Sheets("sayfa3")
s2.[a2:k65536].ClearContents
s3.[a2:k65536].ClearContents
son = s1.[a65536].End(3).Row
s2.Range("a2:d" & son) = s1.Range("a2:d" & son).Value
s2.Range("e2:f" & son) = s1.Range("f2:g" & son).Value
s2.Range("g2:h" & son) = s1.Range("i2:j" & son).Value
s3.Range("a2:c" & son) = s1.Range("a2:c" & son).Value
s3.Range("d2:h" & son) = s1.Range("f2:j" & son).Value
s3.Range("i2:i" & son) = s1.Range("l2:l" & son).Value
MsgBox "aktarma işlemi tamamlandı."
End Sub

 

[Korhan Ayhan]

Selamlar,

Sn. leventm bey sorunuzu şık bir şekilde cevaplamış ama alternatif olması açısından bende A1 hücresine 1-2 değerlerini girdiğinizde butona ihtiyaç duymadan aktarım yapan örneği sunmak isterim. Umarım işinize yarar.

 

[veyselk]

Listeleme

Arkadaşlar teşekkür ediyorum. bilgilerinizden yararlanmaya devam edecem . iyi akşamlar.