FARKLI SAYFADAKİ SÜTUNU OLDUĞU GİBİ ÇEKME

[wundd]

İyi günler.

Çalışmamda 3 sayfam var. ANA SAYFA, 8A SINIFI, 8B SINIFI

8A VE 8B sınıflarının sayfalarında öğrenci listeleri var.

Ana sayfada veri doğrulama ile açılır bir liste yaptım. Listede 8A'ya tıklayınca 8A sınıfının öğrenci numaraları ana sayfada a1'den başlayıp aşağı doğru sıralansın istiyorum. Ya da listede 8b'yi tıkladığımda 8b öğrenci numaraları a1'den başlayıp aşağı doğru sıralanacak ana sayfada.

Bunu nasıl yapabilirim? Teşekkürler.

 

[Necdet]

Merhaba,
Örnek doyanızı paylaşım sitelerinden birine yüklerseniz çözüme daha hızlı ulaşabilirsiniz.

 

[wundd]

Bir örnek dosya yaptım. Paylaşıyorum bağlantıyı.

ÖRNEK.xlsx

Görüntüle ve Yandex.Disk'ten indir

disk.yandex.com.tr

 

[Necdet]

Merhaba,

Makrolu çözüm isterseniz aşağıdaki kodları Sayfa1'in kod bölümüne koplayayıp deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [F2]) Is Nothing Then Exit Sub
    
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
    End With
    
    Range("A1").CurrentRegion.ClearContents
    Sheets(Target.Value).Range("A1").CurrentRegion.Copy Range("A1")
    
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    End With
    
End Sub

 

[wundd]

Makro bilmiyorum ama bir deneyeyim. Teşekkür ederim.

 

[Necdet]

Sayfa1'in A1 hücresine

=DOLAYLI($F$2 & "!A" & SATIR(A1))

B1 hücresine

=DOLAYLI($F$2 & "!B" & SATIR(A1))

yazın ve aşağıya doğru kopyalayın.

 

[wundd]

Necdet Bey teşekkür ederim. Bu benim için daha kolay olacak. Hemen deneyeyim. Makro bilmediğim için öteki türlü zor olacaktı. Sağ olun.

 

[Necdet]

Merhaba,
Eğer 0 değerin gelmesini istemezseniz, fonksiyon uzar ama görüntü olarak daha iyi olur. B sütunu için uyarlamayı siz yapınız.
A1 :

=EĞER(DOLAYLI($F$2 & "!A" & SATIR(A1))=0;"";DOLAYLI($F$2 & "!A" & SATIR(A1)))