1.sayfadan 2. sayfaya şartlı veri aktarma

[ceyhancom]

Herkese kolay gelsin.

Bikaç gün önce listemle ilgili bir problemi ustalarım sayesinde halletim fakat farklı bir sıkıntım var şimdi.

Eklediğim dosyada ''sipariş defteri'' sayfasında sipariş listem var. Burada P sütununda SİPARİŞ BİTTİ, BEKLİYOR ve İPTAL yazdırıyorum. Bu listede P sütununda BEKLİYOR yazıyor ise ''stok'' sayfasında istediğim başlıklar altında o sipariş listelensin istiyorum.

Umarım anlatabilmişimdir.

 

[apocalyt]

Meraba;
dosyanız ektedir..

 

[ceyhancom]

Meraba;
dosyanız ektedir..

Teşekkür ederim apocalyt. tam istediğim gibi olmuş.

bişey merak ettim kaynak olarak görülen ''sipariş defteri'' sayfasındaki listem aslında çok uzun 1000'e yakın ve dahada uzayıp gidecek. 5 bin 10 bin gibi. verdiğiniz makroda bunu eklemize gerek varmıdır acaba?

 

[apocalyt]

Sheets(2).Range("a2:d1000").ClearContents ifadesini

Sheets(2).Range("a2:d10000").ClearContents
şeklinde değiştirin..onun haricinde başka bir değişiklik yapmaya gerek yok..

 

[ceyhancom]

Sheets(2).Range("a2:d1000").ClearContents ifadesini

Sheets(2).Range("a2:d10000").ClearContents
şeklinde değiştirin..onun haricinde başka bir değişiklik yapmaya gerek yok..

Teşekkür ederim. kolay gelsin.

 

[ceyhancom]

Sheets(2).Range("a2:d1000").ClearContents ifadesini

Sheets(2).Range("a2:d10000").ClearContents
şeklinde değiştirin..onun haricinde başka bir değişiklik yapmaya gerek yok..

apocalyt , stok sayfasına bekleyen işleri aldırmamda sıkıntı yok fakat listeyi yenilemek istediğimde daha az bekleyen iş varsa R sütununda olan ''Üretim Hattı'' altında sıralan bilgilerden en altta olanlar diğer hücreler boş olmasına rağmen silinmemiş. yani yeni listede satır sayısı 40'dan 30'a düşmüşse ''üretim hattı'' sütunu hala 40 satır olarak kalıyor.

 

[apocalyt]

R sütunu boş..Q sütunu demek istediniz sanırım..ben şimdi kontrol ettim..bir sorun göremedim..bir örnek vererek açıklarsanız yardımcı olabilirim?

 

[recepm]

Selam veri aktarılan sayfada sanırım ;

Sheets(2).Range("a2:d10000").ClearContents

"D" olanı "E" olarak değiştirmesi yeterli olacak. Kolay gelsin..

 

[ceyhancom]

Selam veri aktarılan sayfada sanırım ;

Sheets(2).Range("a2:d10000").ClearContents

"D" olanı "E" olarak değiştirmesi yeterli olacak. Kolay gelsin..

teşekkür ederim. ''e'' yapınca sorun çözüldü.

apocalyt size de tekrar teşekkürler. ikinizinde emeğine sağlık.