• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Listboxda seçileni farklı sayfaya aktarma problemi

  • Konbuyu başlatan Konbuyu başlatan byfika
  • Başlangıç tarihi Başlangıç tarihi

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
512
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2016 Tr
Merhabalar,
A sayfasındaki A2 den itibaren D sütununa kadar olan veriler Worksheet_Active ile farklı sayfanın farklı sütunlarından alınmakta.
Userformdaki ADO kodları ile PA isimli sütuna göre süzme yapılıp PRINT sayfasına aktarılmakta ve PRINT Sayfasına Worksheet_Change ile B2 - E arası veri girildiğinde A sütununa otomatik sıra no vererek kaydetmekte ve form üzerinden buton ile ön izleme yapılıp print edilmekte.
Fakat A SAYFASI PRINT SAYFASI
A---------- B ---------
B --------- C--------
C --------- D --------- ye yazmakta.(A sayfasının A, B ve C stunlarını PRINT sayfasının B, C ve D kaydetmekte ve A sayfasının D sütununu PRINT sayfasında E sütununda görememekteyim..)
İSTEĞİM;
Form üzerinde Süzme yapıldığında süzülenlerin , PRINT sayfası B2 den E ye kaydetmesi ( A sayfasındaki A2 den D kadar olanların) .
Bilgi için teşekkürler.
 

Ekli dosyalar

Merhabalar,
s1.Range("b2:" & Cells(sat + 1, sut).Address) = ListBox1.List

satırını alttaki şekilde kodlayınca normal çalışma oldu.

s1.Range(s1.Cells(2, 2), s1.Cells(sat + 1, sut + 1)) = ListBox1.List
 
Geri
Üst