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
For
b = 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.