• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
RBozkurt

RBozkurt

Yeni Üye
Katılım
25 Ara 2021
Mesajlar
322
Çözümler
36
Aldığı beğeni
205
Excel V
Office 2021 TR
Konu Sahibi
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.

ekk.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
E
RBozkurt' Alıntı:
excelcan
MernisListe sayfasında "I" sütunundaki DURUM verisini, ÖnÇalışma sayfasında "W" sütununa getirebilirmiyiz?

kayıt(23, say_k) = .Cells(k, 9) 'DURUM şeklinde sayıp ekledim fakat olmadı.
Genişletmek için tıkla...
Sayın RBozkurt aşağıda önce orjinal kodu vereceğim altına da
yeniden düzenlenmiş kodu yazacağım.
Ben ikinci gönderdiğiniz dosyada da denedim, sorun görünmüyor.

bunu silin : 'kayıt(21, say_k) = tcno(12, j)
bunu ekleyin : kayıt(21, say_k) = .Cells(k, 9)

bunu silin : .Cells(2, "C").Resize(say_k, 20).Value = Application.Transpose(kayıt)
bunu ekleyin : .Cells(2, "C").Resize(say_k, 21).Value = Application.Transpose(kayıt)
Tarihe göre sırala Oylara göre sırala
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. ?
 
Olumlu oy 0 Negatif oyla
Variscilerle ölmüş kişi arasında kurulabilecek tek
ilişki de satır boşluğu . :(
Yanlış mı anladım acaba ?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
TCno olmayanlarda önemi yok. Boş, 0 yada TC yok ise 1. Listedeki satırda hangi veri varsa onu çekecek.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
Variscilerle ölmüş kişi arasında kurulabilecek tek
ilişki de satır boşluğu . :(
Yanlış mı anladım acaba ?
Genişletmek için tıkla...

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.
 
Olumlu oy 0 Negatif oyla
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 . :)
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
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 . :)
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
RBozkurt hücre biçimlendirmelerini temizle. Hücre biçimlendirmesi formül ve kod yazımı için
zaman zaman sıkıntı yaratabiliyor.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Gerçek veriyi ekledim fakat işlem hiç başlamıyor. Biçimlendirme temizleyip de denedim

RunTime 1004 hatası geldi.
 
Olumlu oy 0 Negatif oyla
Verileri benim burdan gönderdiğim dosyaya mı eklediniz ?
Ben şimdi dosyanızı bir daha denedim bendeki dosyada hata yok.
Normal çalışıyor.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
excelcan' Alıntı:
Verileri benim burdan gönderdiğim dosyaya mı eklediniz ?
Ben şimdi dosyanızı bir daha denedim bendeki dosyada hata yok.
Normal çalışıyor.
Genişletmek için tıkla...

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ı.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst