• 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.

Çö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

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
 
Çözüm
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ı.
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)
Konu Sahibi
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.


Verileri sallamasyon değiştirdim. Bu sefer çalıştı :D
Dosya ekte. Yarın başka projeye ait verilerle deneyim. Yanımda başka datada yok ekleyip denemek için.

Elinize sağlık zahmet verdim 2 gündür sizede. Çok teşekkür ederim.
 
Sayın RBozkurt keramet sallamasyonda değil başka birşeydedir.
Gönderdiğiniz dosyaya baktım. Bende de çalıştı. Muhtemelen verileri
yüklerken bir yerde hata yaptınız. Yarınki denemenizin sonucunu buraya yazarsanız
konuyu nihayete erdirebiliriz. Kolay gelsin.
 
Konu Sahibi
Tekrardan iyi günler.
excelcan sizede çok teşekkür ederim. Çalışmadaki hatayı çözdüm. Veriyi makro ile seçerek çektiriyordum. TC sütunundaki hücrelere girip çıkmak gerekti.


Ayrıyetten
tcno(5, say) = .Cells(i, 5) 'PARSEL
bos_bul(5, say_bos) = .Cells(s, 5) 'PARSEL

5'ler 1 olarak kalmış onu düzelttim. Şuan problem gözükmemekte. Teşekkür ederim.
 
Konu Sahibi
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ı.
 
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ı.
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)
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst