Kod ile süzüp değerleri başka sayfaya alma konsunda yardım.

[mozakay]

MERHABA ARKADAŞLAR.

SAYFA1 DEKİ VERİLERİN SÜZÜLEREK BELİRLİ SUTUNLARIN SAYFA2 YE KOPYALANMASI KONSUNDA YARDIMCI OLACİLECEK BİRİ VARSA ÇOK SEVİNİRİM.

ÖRNEK BİR DOSYA HAZIRLADIM. DOSYA ÜZERİNDE NE İSTEDİĞİMİ AYRINTILI AÇIKLADIM. ŞİMDİDEN TEŞEKKÜRLER.

http://s6.dosya.tc/server5/hz4577/ORNEK_DOSYA1.rar.html

 

[alicimri]

Sayın mozakay
Aşağıdaki kodu deneyin
http://s6.dosya.tc/server5/zg2opq/ORNEK_DOSYA1.xls.html

Sub Makro1()
Sheets("KAYIT").Range("B1").AutoFilter Field:=7, Criteria1:="1TH"
say = Sheets("KAYIT").Range("B65536").End(xlUp).Row
say1 = Sheets("TAKİP").Range("B65536").End(xlUp).Row
Sheets("KAYIT").Range("B2:B" & say).Copy Sheets("TAKİP").Range("B" & say1 + 1)
Sheets("KAYIT").Range("I2:I" & say).Copy Sheets("TAKİP").Range("C" & say1 + 1)
Sheets("KAYIT").Range("B1").AutoFilter
End Sub

Örnekteki hücre renklendirme "Koşullu Biçimlendirme" ile yapıldı

 

[mozakay]

Ali bey merhaba,

verdiğiniz kodları denedim. benim orijinal dosyamda çalışmadı. sanırım nedeni
"KAYIT" sayfasındaki veri girişlerinin yapıldığı satırların belirli aralıklarda olması. kod satırların tamamını süzüyor. Orijinal dosyamdaki kayıt girişlerinin yapıldığı aralıklar şu şekilde.

tüm sütunlar için;
7-46 aralığı
56-95 "
105-144 "
154-193 "
203-242 "

bunun dışında, verilerin süzülerek gönderildiği "TAKİP" sayfasının dinamik olma imkanı yok mu?
kopyala yapıştır yöntemi ile makroyu her çalıştırdığımda daha önceki aktarılanları güncellemeyim mevcuda ilave ediyor. bu da mükerrer olmasına neden oluyor.

 

[alicimri]

Kodları aşağıdaki gibi değiştirin, mükerrer kayıt yapmaz ama aralık meselesini anlamadım.

Sub Makro1()
Sheets("KAYIT").Range("B1").AutoFilter Field:=7, Criteria1:="1TH"
say = Sheets("KAYIT").Range("B65536").End(xlUp).Row
say1 = Sheets("TAKİP").Range("B65536").End(xlUp).Row
Sheets("TAKİP").Range("B2:C" & say1).Delete Shift:=xlUp
Sheets("KAYIT").Range("B2:B" & say).Copy Sheets("TAKİP").Range("B2")
Sheets("KAYIT").Range("I2:I" & say).Copy Sheets("TAKİP").Range("C2")
Sheets("KAYIT").Range("B1").AutoFilter
End Sub

 

[alicimri]

7-46 aralığı
56-95

derken 47. satırdan 55 satıra kadar boşluk olduğunu ve siz ilk aralığı süzüp kopyalamak istiyorsanız.

Sub Makro1()
Sheets("KAYIT").Range("B1").AutoFilter Field:=7, Criteria1:="1TH"
Sheets("TAKİP").Range("B2:C46").Delete Shift:=xlUp
Sheets("KAYIT").Range("B2:B46" ).Copy Sheets("TAKİP").Range("B2")
Sheets("KAYIT").Range("I2:I46" ).Copy Sheets("TAKİP").Range("C2")
Sheets("KAYIT").Range("B1").AutoFilter
End Sub

 

[mozakay]

Aralık meselesi şu şekilde

"KAYIT" sayfasında veri girişinin yapıldığı aralıklar

örneğin B Sütunu için
("B1:B6") birleştirilmiş hücreler, veri girişine karşı korumaya alınmış.
("B7:B46") veri girişi yapılan hücreler.
("B47:B55") birleştirilmiş hücreler, veri girişine karşı korumaya alınmış.
("B56:B95") veri girişi yapılan hücreler.
("B96:B104") birleştirilmiş. veri girişine karşı korumaya alınmış hücreler
("B105:B144") veri girişi yapılan hücreler
("B145:B153") birleştirilmiş. veri girişine karşı korumaya alınmış hücreler
("B154:B193") veri girişi yapılan hücreler
("B194:B202") Birleştirilmiş, veri girişine karşı korumaya alınmış hücreler
("B203:B242") veri girişi yapılan hücreler
("B243: ............. ) sayfa sonu. veri girişi yok.

 

[mozakay]

Ali bey doğru anlamışsınız. aralığın kod üzerinde tanımlanmasını biliyorum. bilmediğim birden fazla aralığın nasıl tanımlanacağı

 

[alicimri]

Orijinal dosyanızdaki verileri değiştirip tekrar eklerseniz. Bir çözüm bulunur. Boşluk varsa süz işlemi olmaz. Döngü ile h sütunu kontrol edip teker teker aktara biliriz.

 

[mozakay]

Ali bey, sorunu orijinal dosyamı revize ederek düzelttim. aralardaki boşlukları kaldırdım. verdiğiniz kod mükemmel çalışıyor. çok teşekkür ederim.
Ancak yeni bir sorun ile karşı karşıyayım.
kayıt girişlerinin yapıldığı sayfanın çıktısı alınıyor. sayfanın başındaki bilgileri "üst bilgi" ile giriyorum. onlar değişken olmayan bilgiler. fakat sayfa sonunda kayıt yapan memurların isimlerinin olduğu bir bölüm olmalı. ve her memur kendi ismini girmeli. bu değişkeni alt bilgiye nasıl entegre edebilirim. bilginiz var mıdır bu konuda?

 

[alicimri]

Sayın mozakay
Tahminen bir cevap vereceğim, sonra kodları tekrar tekrar düzelteceğiz. Örnek dosya ekleyin ben veya başka bir arkadaş daha doğru ve çabuk çözüm üretebilir.

 

[mozakay]

Ali bey, ne istediğimi anlatan bir dosya hazırladım. galiba çok şey istiyorum

http://s6.dosya.tc/server5/9keamm/ORNEK_DOSYA1.xls.html

 

[alicimri]

Örnek ekte Kolay gelsin
http://s6.dosya.tc/server5/cezz8e/ORNEK_DOSYA1.xls.html

 

[alicimri]

Yanlış dosya yüklemişim. Yukardaki Link'i düzelttim.