Kullanıcı
- Katılım
- 17 Eki 2019
- Mesajlar
- 225
- Excel Versiyonu
- Excel 2019
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
Arkadaşlar merhaba. Daha önce Sayın Admin tarafından hazırlanan SINIF RİSK HARİTASI aktarma kodları OKUL isimli sayfanın 46. satırına kadar olan öğrenciler için aktarma yapıyor. Oysa OKUL isimli sayfanın son öğrencisi 1490. satırda. Ben denemek için 1B sınıfını çağırıp öğrencilerin hepsi için X işareti koyup aktar dediğimde 46. satırdan sonrası için aktarmadığını gördüm. Bu kodlarda nasıl bir değişiklik yapılırsa aktarma işlemi gerçekleşir. Saygılar.
Sub AKTAR()
Dim harita As Worksheet, okul As Worksheet
Set harita = Sheets("SINIF RİSK HARİTASI")
Set okul = Sheets("OKUL")
SonH = harita.Cells(Rows.Count, "C").End(3).Row
SonO = okul.Cells(Rows.Count, "C").End(3).Row
For i = 5 To SonH
no = harita.Cells(i, "E") 'risk haritası numara
Set ara = okul.Range("C2:C" & SonH).Find(no, , , xlWhole)
If Not ara Is Nothing Then
okul.Range(okul.Cells(ara.Row, 5), okul.Cells(ara.Row, 39)).Value = _
harita.Range(harita.Cells(i, 7), harita.Cells(i, 41)).Value
End If
Next i
End Sub
Sub AKTAR()
Dim harita As Worksheet, okul As Worksheet
Set harita = Sheets("SINIF RİSK HARİTASI")
Set okul = Sheets("OKUL")
SonH = harita.Cells(Rows.Count, "C").End(3).Row
SonO = okul.Cells(Rows.Count, "C").End(3).Row
For i = 5 To SonH
no = harita.Cells(i, "E") 'risk haritası numara
Set ara = okul.Range("C2:C" & SonH).Find(no, , , xlWhole)
If Not ara Is Nothing Then
okul.Range(okul.Cells(ara.Row, 5), okul.Cells(ara.Row, 39)).Value = _
harita.Range(harita.Cells(i, 7), harita.Cells(i, 41)).Value
End If
Next i
End Sub
