makro ile ilgili acil yardım.

[bedersu]

Merhaba,
veri çok,vakit az olunca olur böyle şeyler.Halledeceğiz İnşallah,merak etmeyin.Ama bana birazcık daha vakit verin.Bugün de önemli bir toplantım var ama yarın tamamen boşum.Bütün arkadaşların cevaplarına bakacağım İnşallah.

 

[bedersu]

Merhaba,
En üstteki kodları aşağıdaki şekilde değiştirin.İsmin hallerini yapmamasının sebebi de dosyanızda gerçek isimler kullanmamanızdan kaynaklanıyor.Gerçek isimler yazınca o sorun ortadan kalkar.

If Sheets("veri").Range("G3") = "ölü" Then GoTo bura:

If Sheets("veri").Range("G3") = "sağ" Then ea = "sağ eşi " & Sheets("veri").Range("G4") & ", " 'İLK YAZILACAK OLAN BU
bura:
ei = WorksheetFunction.CountA(Sheets("veri").Range("E:E"))
For eii = 8 To ei + 3

If Sheets("veri").Cells(eii, "g") = "sağ" Then
eb = Sheets("veri").Cells(eii, "g").Offset(0, -1)
ebb = eb & "," & ebb

End If
Next
ebbb = " çocukları " & ebb ' İKİNCİ YAZILACAK OLAN BU

 

[gezgin-49]

Merhaba,
En üstteki kodları aşağıdaki şekilde değiştirin.İsmin hallerini yapmamasının sebebi de dosyanızda gerçek isimler kullanmamanızdan kaynaklanıyor.Gerçek isimler yazınca o sorun ortadan kalkar.

Sayın bedersu bu belirtmiş olduğunuz kodlar sadece veri sayfası ile mi ilgili aynı sorun çocuklar ve torunlar sayfasında da vardı, oradaki aktarmalar da düzelecek mi, (miras dosyası evdeki bilgisayarımda olduğundan deneme yapamadım)

 

[bedersu]

eşlerle ilgili sorunlar halloldu.Çocukların ve torunların eşleri varsa yazıyor yoksa eş isimleri yazılmıyor.

 

[gezgin-49]

sayın bedersu gönderdiğiniz kodları denedim, veri ve çocuklar sayfası tamam olarak gözüküyor, ancak torunlar sayfasında birden fazla torun olunca sadece birinci sıradaki toruna ait mirasçılar aktarılıyor, diğerleri aktarılmıyor, bir de aktarma işlemi alttan üste doğru gidiyor, bunu ters çevirebilirmiyiz.

 

[gezgin-49]

Sayın bedersu yapmış olduğunuz tüm yardımlarınızdan dolayı teşekkür ederim, ancak kodlarda eksiklik var, anladığım kadarıyla siz sadece gönderdiğim tabloda dolu olan hücreleri baz alarak kod yazmışsınız, oysa benim istediğim boş olsun dolu olsun
1-Veri sayfasında G3ile G4 ve F8 ile F27 arasındaki kişilerin sağ veya ölü oluşuna göre veri aktarması,
2-Çocuklar Sayfasında A4, F4, K4, A22, F22, K22, A40, F40 ve K40 hücrelerinde isim varsa bu kişilerin mirasçılarının var/yok, sağ/ölü oluşlarına göre aktarması,

3-Torunlar Sayfasında A4, F4, K4, A22, F22, K22 hücrelerinde isim varsa bu kişilerin mirasçılarının var/yok, sağ/ölü oluşlarına göre aktarması

4-Tüm bunlara ek olarak sözettiğim bu hücrelere isimle birlikte soyadları da yazılacak istediğim yatay aktarma şeklinde sadece isimlerin aktarılması soyadların aktarılmaması gerekiyor, örneğin Veri Sayfası F8 hücresinde Mehmet Ali TEKİN yazdığını varsayalım, aktarmada sadece Mehmet Ali yazmasını, TEKİN soyadını yazmamasını istiyorum, yani hücrede ne yazıyorsa sondaki kelimenin yazılmasını istemiyorum, burada aklınıza şu soru gelebilir, e madem istemiyorsun neden hücreye hem ad hem de soyad yazmak gerekiyor? çünkü aynı veriler başka bir şekilde de (dikey olarak) yine aktarılacak bu kez soyisimlerin yazılması gerekiyor, bu nedenle istediğim şekilde makro yazmak mümkün olurmu,

sizin gönderdiğiniz kodları veri sayfasında "AKTAR" butonuna atadım, veriler "sayfa2" ye aktarılıyor, orada dikkatimi çeken 8 tane "E" nin eşi yazıyor, ayrıca bazı mirasçıların eşi olmadığı halde aktarmada ....' nın eşi yazıyor, bunu düzeltmek mümkünmü, eğer mirasçının eşi yoksa ....' nın çocukları yazmasını istiyorum, çok şeyler istediğimi biliyorum ama ne yapacağımı şaşırdım, yaklaşık 5-6 ay kadardır bu proğram üzerinde çalışıyorum, makro bilmediğim için çok zorlandım siz değerli üstadlarımın yardımı ile bu dereceye kadar gelebildim, aslında msn ile birebir görüşebilseydik çözüm daha kolay ve hızlı olacaktı ama olmadı, ben yine de msn' mi gönderiyorum, eğer olur da siz birşey sormak isterseniz diye kenan_umut@hotmail.com saygılar sunuyorum

 

[bedersu]

Hatalar nedeniyle sildim

 

[gezgin-49]

Sayın bedersu yapmış olduğunuz tüm yardımlarınızdan dolayı teşekkür ederim, ancak kodlarda eksiklik var, ........................ orada dikkatimi çeken 8 tane "E" nin eşi yazıyor, ayrıca bazı mirasçıların eşi olmadığı halde aktarmada ....' nın eşi yazıyor, bunu düzeltmek mümkünmü, eğer mirasçının eşi yoksa ....' nın çocukları yazmasını istiyorum

Sayın bedersu yeni kodunuzu denedim, ama yine yukarıdaki alıntıda belirtilen hataları veriyor.

 

[bedersu]

çünkü siz orada sekiz tane E'yi isim olarak kullanmışsınız.Ben onların hepsinde gerçek isimler kullandım.şu eke bir bakın.

 

[gezgin-49]

çünkü siz orada sekiz tane E'yi isim olarak kullanmışsınız.Ben onların hepsinde gerçek isimler kullandım.şu eke bir bakın.

haklısınız ben gerçek veriler kullanmadığımdan dolayı hata oluşmuş olabilir çok teşekkür ediyorum, ama bir sorunum daha var

İsim yazılan hücrelere bir de soyad eklediğimizde yatay aktarma şeklinde sadece isimlerin aktarılması soyadların aktarılmaması gerekiyor, örneğin Veri Sayfası F8 hücresinde Mehmet Ali TEKİN yazdığını varsayalım, aktarmada sadece Mehmet Ali yazmasını, TEKİN soyadını yazmamasını istiyorum, yani hücrede ne yazıyorsa sondaki kelimenin yazılmasını istemiyorum, ancak "Çocuklar" Sayfası A4,F4,K4,A22,F22,K22,A40,F40,K40 ile "Torunlar" sayfası A4,F4,K4,A22,F22,K22 hücrelerinde veri varsa bu kişilerin ad ve soyadları ile birlikte aktarılmasını, örneğin, ölü Mehmet Ali TEKİN eşi Halide, çocukları Kahraman, Leman, Sait gibi yazmasını istiyorum, burada aklınıza şu soru gelebilir, e madem istemiyorsun neden hücreye hem ad hem de soyad yazmak gerekiyor? çünkü aynı veriler başka bir şekilde de (dikey olarak) yine aktarılacak bu kez soyisimlerin yazılması gerekiyor, bu nedenle istediğim şekilde makro yazmak mümkün olurmu, saygılar sunuyorum.

 

[bedersu]

Merhaba,
Ekteki dosyayı inceler misiniz?

 

[gezgin-49]

sayın bedersu çok büyük uğraş vermişsiniz ellerinize, emeğinize sağlık, ama daha önce çalışan "torunaktar" makrosu hata veriyor, bir de veriler tersten alıyor yani veri sayfasında ve diğer sayfalarda çocuklar en küçükten büyüğe doğru (aşağıdan yukarıya doğru) aktarılıyor, büyükten küçüğe doğru (yukarıdan aşağıya doğru) aktarmak mümkün mü acaba, saygılar.

 

[bedersu]

Verilerin aktarılması düzeltildi.

 

[gezgin-49]

Verilerin aktarılması düzeltildi.

Sayın bedersu üstadım, ilgi ve alakanız için çok teşekkür ediyorum, isimler artık aşağıdan yukarı değilde yukarıdan aşağıya doğru sıralanıyor, bu kısım tamam ama soyisimler ile ilgili bir aksaklık var, şöyle ki; veri sayfasına soyad yazıldığında aktarmada bir sorun yok, ama çocuklar sayfasında isimlerin karşısına yani B6:B18, G6:G18, L6:L18, B24:B36, G24:G36, L24:L36, B42:54, G42:G54, L42:54 Hücrelerinde isim olanlara soyisim ekleyip "Torunlar Sayfasına Aktar" butonuna tıktalığımda

Sub torunaktar()
On Error Resume Next
Set s1 = Sheets("Torunlar")
deg = Array("A4", "F4", "K4", "A22", "F22", "K22", "A40", "F40", "K40")
sut = Array(4, 9, 14, 4, 9, 14, 4, 9, 14)
sat = Array(7, 7, 7, 25, 25, 25, 43, 43, 43)
For e = 0 To 8
s1.Range(deg(e)) = ""
Next
Forb = 0 To 8
For a = sat(b) To sat(b) + 8
If Cells(a, sut(b)) = "ölü" Then
s1.Range(deg(c)) = Cells(a, sut(b) - 2)
c = c + 1
End If
Next
Next
s1.Select
MsgBox "Torunlar sayfasına aktarma işlemi başarıyla tamamlandı."
End Sub
makrosunda hata veriyor,
ayrıca soyadları yazınca aktar makrosu da hata veriyor bir daha bakarsanız memnun olurum, saygılar.

 

[bedersu]

Merhaba,
b leri bb yapın düzelecektir.Yani:

Sub torunaktar()
On Error Resume Next
Set s1 = Sheets("Torunlar")
deg = Array("A4", "F4", "K4", "A22", "F22", "K22", "A40", "F40", "K40")
sut = Array(4, 9, 14, 4, 9, 14, 4, 9, 14)
sat = Array(7, 7, 7, 25, 25, 25, 43, 43, 43)
For e = 0 To 8
s1.Range(deg(e)) = ""
Next
For bb = 0 To 8
For a = sat(bb) To sat(bb) + 8
If Cells(a, sut(bb)) = "ölü" Then
s1.Range(deg(c)) = Cells(a, sut(bb) - 2)
c = c + 1
End If
Next
Next
s1.Select
MsgBox "Torunlar sayfasına aktarma işlemi başarıyla tamamlandı."
End Sub

 

[gezgin-49]

Sayın bedersu siz tek kelime ile bir harikasınız, gönderdiğiniz kodları yerlerine koydum, şu aşamada bir hata vermiyor, ama bir kaç deneme daha yapacağım, fakat doğru cevap buydu, Allah sizden ve yardımsever diğer üstad ve arkadaşlarımdan razı olsun, işin en zor kısmı bu kısımdı, proğramın son iki ayağı kaldı, İnşaallah siz üstadlarımın sayesinde bu işi birlikte bitireceğiz, saygılar, saygılar, saygılar,

 

[gezgin-49]

Sayın bedersu yanlız ufak bir ayrıntıyı gözden kaçırmışsınız, çocuklar ve torunlar sayfasında mirasçıların isimleri yanına soyisimlerini yazdığım zaman aktarma işleminde soyisimler de aktarılıyor, sadece veri sayfasında aktarılmıyor, yani sorun çocuklar ve torunlar sayfasındaki soyadlarda var, ona da bir gözatarsanız memnun olurum, saygılar.

 

[bedersu]

Dosyanın Son hali

 

[gezgin-49]

Dosyanın Son hali

sayın bedersu siz bir harikasınız, son iki aşama kaldı, onu da başka bir başlık altında soracağım, yardımlarınız için size ve emeği geçen başta admin leventm olmak üzere diğer arkadaşlara da çok teşekkür ediyorum, sağolun varolun, hep insanlara yardımcı olun, Allah hepinizden razı olsun saygılar sunuyorum.

 

[bedersu]

Allah hepimizden razı olsun.Elimizden geldiği sürece yardımlarımızı eksik etmeyeceğiz.Böylelikle bu foruma da bir nebze teşekkürlerimizi bildirmiş oluyoruz.