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

Katılım
28 Eylül 2014
Mesajlar
41
Excel Vers. ve Dili
Microsoft Office 2010-6-64 bit Türkçe
Altın Üyelik Bitiş Tarihi
13/06/2022
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.
 

Ekli dosyalar

Katılım
28 Eylül 2014
Mesajlar
41
Excel Vers. ve Dili
Microsoft Office 2010-6-64 bit Türkçe
Altın Üyelik Bitiş Tarihi
13/06/2022
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

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,181
Excel Vers. ve Dili
Excel-2003 Türkçe
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.
 

Ekli dosyalar

Katılım
28 Eylül 2014
Mesajlar
41
Excel Vers. ve Dili
Microsoft Office 2010-6-64 bit Türkçe
Altın Üyelik Bitiş Tarihi
13/06/2022
Çok teşekkür ederim elinize yüreğinize sağlık.
 
Katılım
28 Eylül 2014
Mesajlar
41
Excel Vers. ve Dili
Microsoft Office 2010-6-64 bit Türkçe
Altın Üyelik Bitiş Tarihi
13/06/2022
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.
 

Ekli dosyalar

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,181
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
Hangi sayfadan veri alacağınızı bilmediğim için her iki sayfayı da kontrol ettirdim.
Deneyin.
İyi çalışmalar.
 

Ekli dosyalar

Katılım
28 Eylül 2014
Mesajlar
41
Excel Vers. ve Dili
Microsoft Office 2010-6-64 bit Türkçe
Altın Üyelik Bitiş Tarihi
13/06/2022
Ç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.

Kod:
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

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,181
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;

Cells(sonsatir, 1) = I - 1

satırını;

Cells(sonsatir, 1) = sonsatir - 1

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