1. ve 2 sayfada girilen verileri otomatik 3. sayfaya iletme

[Sinan73]

Merhaba

Başlıktan anlaşılacağı üzere; 1. ve 2. sayfalara girdiğim verileri otomatik olarak 3. sayfaya yazsın(kopyalasın) istiyorum. Makrosuz mümkün ise daha iyi olurdu ama olmasa da mecbur makro ile yaparım. Şimdiden yardımlarınız için teşekkürler.

 

[muygun]

Merhaba;
Sayfa3 e girişte makro tetiklenir.
Deneyin.
İyi çalışmalar.

 

[Sinan73]

muygun bey, teşekkür ederim elinize sağlık şuan çalışıyor, orjinal dosyama uyarlayacağım kodları. ancak veriler çok fazla olduğu için sayfa yüklenirken "meşgul" imleçi uzun süre kalıyor ekranda. sayfa yüklenene kadar bir "loading" formu gösterebiliyor muyum?

 

[muygun]

Ekteki dosyada formülle çözüm.

 

[muygun]

Makrolu çözüm belirttiğim gibi Sayfa3 e giriş yapılınca tetikleniyordu.
Ekli dosyada bunu butona bağladım. (istediğiniz zaman kendiniz çalıştırırsınız.)
Deneyin.
İyi çalışmalar.
Not: Makrolu çözümde bekleme süresi sorunu yaşayacak kadar veriniz varsa formüllü çözümü hiç denemeyin.

 

[Sinan73]

Çok teşekkür ederim elinize yüreğinize sağlık.

 

[Sinan73]

muygun bey tekrar merhaba, dün yapmış olduğunuz formülün bir benzeri daha lazım, bu sefer kayıtların hepsini değil, belirttiğim koşula uyan kayıtları getirmem lazım. listeyi ekledim M1 e girilen değer var ise o değerleri getirsin. yapılabiliyor mu? bu arada sadece bir sayfadan çekeceğim bu seferki listeyi.

 

[muygun]

Merhaba;
Hangi sayfadan veri alacağınızı bilmediğim için her iki sayfayı da kontrol ettirdim.
Deneyin.
İyi çalışmalar.

 

[Sinan73]

Çok teşekkür ederim, kendi sayfama uyarladım bir sorun çıkmadı, sadece son bir soru

Sizden verileri kopyalamasını istemiştim ama sayfanın ilk sütununa her veri için 1 den başlayıp kaç tane veri varsa ona göre yazması lazım oldu, aşağıdaki kodda bir değişiklik yaptım ama yine de diğer sayfada ne yazıyorsa onu kopyalıyor.

For I = 2 To s1.Range("A65536").End(xlUp).Row
If Cells(2, "S") = s1.Cells(I, "Q") Then
sonsatir = Range("A65536").End(xlUp).Row + 1
Cells(sonsatir, 1) = I - 1
Cells(sonsatir, 2) = s1.Cells(I, 2)
Cells(sonsatir, 3) = s1.Cells(I, 3)

 

[muygun]

Merhaba;

Cells(sonsatir, 1) = I - 1

satırını;

Cells(sonsatir, 1) = sonsatir - 1

Şeklinde değiştirip deneyin.
İyi çalışmalar.