herkese iyi bayramlar
tek bir tuşla öğrencilerin bulundukları sınıftan bir üst sınıfa atlatmak için aşağıdaki kodları denediğimde bütün öğrencileri şubesine göre 6/a,6/b,6/c,6/d sınıflarına atlatıyor.yani 1/a sınıfındaki öğrenci 6/a ya geçiyor.nasıl bir kod bu işi halleder acaba,yardımlarınızı bekliyorum.
Cells.Replace what:="1/a", replacement:="2/a"
Cells.Replace what:="1/b", replacement:="2/b"
Cells.Replace what:="1/c", replacement:="2/c"
Cells.Replace what:="1/d", replacement:="2/d"
Cells.Replace what:="2/a", replacement:="3/a"
Cells.Replace what:="2/b", replacement:="3/b"
Cells.Replace what:="2/c", replacement:="3/c"
Cells.Replace what:="2/d", replacement:="3/d"
Cells.Replace what:="3/a", replacement:="4/a"
Cells.Replace what:="3/b", replacement:="4/b"
Cells.Replace what:="3/c", replacement:="4/c"
Cells.Replace what:="3/d", replacement:="4/d"
Cells.Replace what:="4/a", replacement:="5/a"
Cells.Replace what:="4/b", replacement:="5/b"
Cells.Replace what:="4/c", replacement:="5/c"
Cells.Replace what:="4/d", replacement:="5/d"
Cells.Replace what:="5/a", replacement:="6/a"
Cells.Replace what:="5/b", replacement:="6/b"
Cells.Replace what:="5/c", replacement:="6/c"
Cells.Replace what:="5/d", replacement:="6/d"
tek bir tuşla öğrencilerin bulundukları sınıftan bir üst sınıfa atlatmak için aşağıdaki kodları denediğimde bütün öğrencileri şubesine göre 6/a,6/b,6/c,6/d sınıflarına atlatıyor.yani 1/a sınıfındaki öğrenci 6/a ya geçiyor.nasıl bir kod bu işi halleder acaba,yardımlarınızı bekliyorum.
Cells.Replace what:="1/a", replacement:="2/a"
Cells.Replace what:="1/b", replacement:="2/b"
Cells.Replace what:="1/c", replacement:="2/c"
Cells.Replace what:="1/d", replacement:="2/d"
Cells.Replace what:="2/a", replacement:="3/a"
Cells.Replace what:="2/b", replacement:="3/b"
Cells.Replace what:="2/c", replacement:="3/c"
Cells.Replace what:="2/d", replacement:="3/d"
Cells.Replace what:="3/a", replacement:="4/a"
Cells.Replace what:="3/b", replacement:="4/b"
Cells.Replace what:="3/c", replacement:="4/c"
Cells.Replace what:="3/d", replacement:="4/d"
Cells.Replace what:="4/a", replacement:="5/a"
Cells.Replace what:="4/b", replacement:="5/b"
Cells.Replace what:="4/c", replacement:="5/c"
Cells.Replace what:="4/d", replacement:="5/d"
Cells.Replace what:="5/a", replacement:="6/a"
Cells.Replace what:="5/b", replacement:="6/b"
Cells.Replace what:="5/c", replacement:="6/c"
Cells.Replace what:="5/d", replacement:="6/d"