Çözüldü Bul > Altına Ekle Ve Kalanları Birleştir

[RBozkurt]

Merhaba herkeze. Alttaki işlemler hakkında yardımcı olabilirmisiniz?

Öncelikle elimizde 2 adet elde edilmiş veri var.
1. NetcadRapor
2. MernisListe

1. listede olan her satır tapuda kayıtlı 1 kişiye ait.
2. listede ise TC'noya ait bilgiler var.
*Sağ ise tek satırdır, Ölü ise varisleri gözükür. Yani örnekteki 10000000055 TC sağ, 10000000066 TC ölü.


Bu kişiye ait TC sütunu dolu ise;
MernisListe G sütununda bu TC yi bulacak ve ÖnÇalışma sayfasına ekleyecek.

TC Sütunu boş, TC YOK yada 0 ise direk o bilgilerle ön çalışmaya aktaracak.

Yani varisler, 1. sayfadaki tapu malikinin altına eklenmiş olacak.

İşlem sonucunda ÖnÇalışma sayfası oluşacak. (İstenilen Sonuç Ekranı sayfası örnektir. Bu şekilde oldurmaya çalışıyorum.)
En son ada/parsel bazındada birleştirme.

 

[excelcan]

TCNO su olanlarda sorun olmaz. Sonuçta 11 haneli benzersiz tek kayıt.
Ama diğer seçenekte aynı isimden iki tane varsa atıyorum Demir Bakır isminden
mesela iki tane varsa bu nasıl benzersizleştirilecek. ?

 

[excelcan]

Variscilerle ölmüş kişi arasında kurulabilecek tek
ilişki de satır boşluğu .
Yanlış mı anladım acaba ?

 

[RBozkurt]

TCno olmayanlarda önemi yok. Boş, 0 yada TC yok ise 1. Listedeki satırda hangi veri varsa onu çekecek.

 

[excelcan]

peki varisciler ?

 

[RBozkurt]

Variscilerle ölmüş kişi arasında kurulabilecek tek
ilişki de satır boşluğu .
Yanlış mı anladım acaba ?

TC varsa ve ölü ise varisi var.

Oda 2. Listede blok blok kayıt şeklinde.
Mesela resime bakın. İlk sarı hücre tapu sahibi, altındaki 7 kişi de varisi.

 

[RBozkurt]

peki varisciler ?

TC olmayanlara için yapılan işlem farklı. Mahkemede devam ediyoruz o şekilde olunca.

 

[excelcan]

Sayın RBozkurt sizin sorunuz teknik olarak kolay bir soru.
Ama içerik olarak sıkıntılı. Şöyle anlatayım. MernisListe sayfasında
....066 yı buldum. Onun altından saymaya başlayacağım ve gördüğüm ilk
boşlukta saymayı durduracağım. Ne kadar saydıysam o kadar kişi varisci
demektir. Daha farklı bir ölçüt, ilişki kurulabilseydi iyiydi. Olduğu kadar artık.
Deneyelim bakalım .

 

[RBozkurt]

Sayın RBozkurt sizin sorunuz teknik olarak kolay bir soru.
Ama içerik olarak sıkıntılı. Şöyle anlatayım. MernisListe sayfasında
....066 yı buldum. Onun altından saymaya başlayacağım ve gördüğüm ilk
boşlukta saymayı durduracağım. Ne kadar saydıysam o kadar kişi varisci
demektir. Daha farklı bir ölçüt, ilişki kurulabilseydi iyiydi. Olduğu kadar artık.
Deneyelim bakalım .

Aynen bu şekilde hocam. Mernis Listede her kişi mernis verisi arasında bilinçli şekilde satır boşluğu koydum. Yoksa hiç ayrıt olmuyor.

Tc Yok, 0 yada boş ise zaten 2. Listede bulamayacak.

Bu seferde olduğu satırdaki veriyi atacak diğer listeye.

Senaryo var ama kod yazacak beceri yok bende.

 

[RBozkurt]

excelcan bakma imkanınız oldumu

 

[excelcan]

excelcan bakma imkanınız oldumu

Baktım RBozkurt. Bir yere kadar da getiridim. Aslında bitti de sayılır. Akşam yayınlarım.

 

[RBozkurt]

Baktım RBozkurt. Bir yere kadar da getiridim. Aslında bitti de sayılır. Akşam yayınlarım.

İlginize teşekkür ederim

 

[excelcan]

Sayın RBozkurt dosyanız hazır. ÖnÇalışma sayfasına bir buton ekledim.
Butona tıklamanız yeterli.

 

[RBozkurt]

Sayın RBozkurt dosyanız hazır. ÖnÇalışma sayfasına bir buton ekledim.
Butona tıklamanız yeterli.

Gerçek veri içeren dosyayı buradan paylaşamıyorum. PM olarak da atamadım.
If Len(.Cells(k, 7)) = 11 Then '3 satırında hata verdi.

 

[excelcan]

RBozkurt hücre biçimlendirmelerini temizle. Hücre biçimlendirmesi formül ve kod yazımı için
zaman zaman sıkıntı yaratabiliyor.

 

[excelcan]

Ne tür hata verdiğini yazabilir misin ?

 

[RBozkurt]

Gerçek veriyi ekledim fakat işlem hiç başlamıyor. Biçimlendirme temizleyip de denedim

RunTime 1004 hatası geldi.

 

[excelcan]

Verileri benim burdan gönderdiğim dosyaya mı eklediniz ?
Ben şimdi dosyanızı bir daha denedim bendeki dosyada hata yok.
Normal çalışıyor.

 

[RBozkurt]

Verileri benim burdan gönderdiğim dosyaya mı eklediniz ?
Ben şimdi dosyanızı bir daha denedim bendeki dosyada hata yok.
Normal çalışıyor.

Paylaştığınız çalışıyor.
Evet aynı dosyaya ekliyorum. Değişiklik yapmadım.

NetcadRapor ve MernisListe sayfasındaki verilerin yerine gerçek verileri ekledim. O zaman çalışmadı.

 

[excelcan]

O zaman şöyle yapacaz Sayın RBozkurt.
Dosyayı yeniden yükleyin. Dosyaya bir bakalım.
Gerçek verileri değiştirin. İsimleri uydurun.
mars yıldız. güneş venüs gibi. tcno ları da keza.
30-40 satırlık bir veri kitlesi yeterli. Ben sizin
daha önce gönderdiğiniz dosyadaki aynı verileri çoğaltarak
denedim hata vermedi. Ne bileyim tcnoları değiştirdim , eksik yazdım
gene hata vermedi. Görmeden bir şey yazmak pek mümkün değil gibi.