Form düzeyinde istenilen bilgileri başka sayfaya yatayda göndermek

[yenilik025]

Renkli olarak belirlenen alanlar ile +
Alt alta satır olan bilgileri yatay olarak nasıl gönderebiliriz. = koyup sonra alan seçerek göndermek yerine döngü ile nasıl yapılabilir.

 

[AdemCan]

Rapor sayfası 3. satıra Sayfa1 S sütunundaki kayıtları alabileceğiniz kodlar.

Sub gonder()
Dim sat As Long, s1 As Worksheet, s2 As Worksheet

Set s1 = Sayfa1
Set s2 = Sheets("Rapor")

s2.Rows(3).Clear
sat = s2.Cells(Rows.Count, "B").End(xlUp).Row + 1
son = s1.Cells(Rows.Count, "S").End(xlUp).Row

For i = 2 To son
    s2.Cells(3, i) = s1.Cells(i, "S")
Next i
End Sub

 

[yenilik025]

Hocam teşekkür ederim, evet buradaki kayıtları aktarıyor. bu şekilde. 2.bir kayıt yapmak istediğimde
önceki öğrenci kaydının üzerine yazıyor rapor sayfasındaki halbuki bir sonraki satıra kaydetmesi gerekiyor çünkü öğrenciye ne yapmışız onu ileride görmek istediğimde ulaşmak istiyorum. Bir de bu derslere ilişkin bilgilerin de yaklaşık 12 satır halinde tek tek hepsine eşittir koymak gerçekten çok zor bunu da döngü ile aşağı satıra ekleyemez miyiz dolu olan satırları.

 

[yenilik025]

Bunu yatay geöiş dikey geöiş muafiyet öğrencileri başvurularında kullanmak istiyorum bir çok öğrencinin işini kolaylaştıracağını düşünüyorum.inşallah

 

[AdemCan]

Sayfa1deki yatay tablodan Rapor sayfasına örnek kayıt ya da kayıtlar yapıp yeniden örnek dosyanızı paylaşır mısınız?

 

[yenilik025]

Hocam merhabalar ekliyorum bu arada b6:b10 değil özür
D610 (ad soyada ilişin bilgi)

 

[AdemCan]

Merhaba dosyanız ektedir.

 

[yenilik025]

Hocam teşekkür ederim. bu kodlar bir çok sayıda form tarzındaki işlemlerde kullanılabilir. çok teşekkürler

 

[AdemCan]

Rica ederim.