Sayın Forum Üyeleri,
Sub aktar()
Dim olmayanlar As Range
For d = 2 To 425
Sheets("alttest").Cells(d, 1).Value = Sheets("profil").Cells(d, 5).Value
If Sheets("profil").Cells(d, 4).Value = Sheets("profil").Range("olmayanlar").Value Then GoTo atla
satir = Sheets("Testsayısı").Columns("B:B").Find(Sheets("profil").Cells(d, 4).Value).Row
For t = 1 To 23
Sheets("alttest").Cells(d, t + 1).Value = Sheets("010704-280205Testsayısı").Cells(satir, t).Value
Next t
atla: Next d
End Sub
kodunu çalıştırdığımda Application-defined or object-defined error veriyor.
Amacım "profil" sayfasında (d,4) hücre değerinin "altest" sayfasında "AA1:AA15" aralığında tanımladığım "olmayanlar" da bulunup bulunmadığını kontrol etmek. Mavi ile işaretlediğim hata veren satırın düzeltilmesi ya da başka bir yol önerilmesi konusunda yardımlarınız rica etmekteyim.
Saygılarımla.
Sub aktar()
Dim olmayanlar As Range
For d = 2 To 425
Sheets("alttest").Cells(d, 1).Value = Sheets("profil").Cells(d, 5).Value
If Sheets("profil").Cells(d, 4).Value = Sheets("profil").Range("olmayanlar").Value Then GoTo atla
satir = Sheets("Testsayısı").Columns("B:B").Find(Sheets("profil").Cells(d, 4).Value).Row
For t = 1 To 23
Sheets("alttest").Cells(d, t + 1).Value = Sheets("010704-280205Testsayısı").Cells(satir, t).Value
Next t
atla: Next d
End Sub
kodunu çalıştırdığımda Application-defined or object-defined error veriyor.
Amacım "profil" sayfasında (d,4) hücre değerinin "altest" sayfasında "AA1:AA15" aralığında tanımladığım "olmayanlar" da bulunup bulunmadığını kontrol etmek. Mavi ile işaretlediğim hata veren satırın düzeltilmesi ya da başka bir yol önerilmesi konusunda yardımlarınız rica etmekteyim.
Saygılarımla.