Listeteden düşeara formüllü sayfaya geçme

[delisuvarim03]

Merhaba
Okulumda öğrencilerimin sınavları için analiz yapmak istiyorum.
Öğrenci numarasına bağlı düşeyara formülü ile diğer listelerden öğrenci bilgilerini aktarıyorum.

Fakat bunun için öğrenci numaralarını ezbere bilip "öğrenci numarası" bölümüne yazılması gerekiyor.

Bunun için "okul listesi" sayfasından öğrenci numarasına tıkladıgımda karne sayfasına gecmesini ve "öğrenci numarası" bölümüne ilgili öğrencinin numarasını yazmasını istiyorum.

Nasıl yapabilecegim hakkında yardımcı olur musunuz?

örnek dosya ektedir..

 

[Murat OSMA]

Aşağıdaki kodları Okul Listesi sayfasının kod kısmına yazıp bir öğrenci numarası seçin.

[FONT="Trebuchet MS"]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Value = "" Then Exit Sub
    Sayfa1.Select
    Sayfa1.Range("E5").Value = Target.Value
End Sub[/FONT]

 

[delisuvarim03]

Murat Osma bey gerçekten istediğim gibi oldu.

Fakat benden kaynaklanan bir problemim daha doğdu.

6.snf karne ve 7.snf karne gibi veri sayfaları ayrı yapmak zorundayım (soru ve sınavlar farklı odugu için)

bu nedenle "okul listesi" bölümünde 6. Sınıf öğrci noya tıkladıgımda 6.snf karnesi, 7.sınıf öğrencisine tıkladıgımda 7.snf karnesi sayfası açılması gerek.

Yazmış olduğunuz kodu buna göre uyarlayamadım.

Eğer "okul listesi" sayfasından böyle olmuyorsa ayrı ayrı sınıf listesi açtım. Sınıf listesine tıklayarak ta yapabiliriz. Hem böylelikle yazmış oldugunuz kodu uyarlamakta kolay olur sanırım. Tekrar yardımcı olursanız sevinirim.

 

[merakli_72]

selam
Sayın Murat Osma'nın kodlarını aşağıdaki gibi değiştirip denermisiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Value = "" Then Exit Sub
    
    Select Case Left(Target.Offset(0, 1), 1)
        Case 6:
            Sheets("6.SNF KARNE").Select
            Sheets("6.SNF KARNE").[E5] = Target.Value
            
        Case 7:
            Sheets("7.SNF KARNE").Select
            Sheets("7.SNF KARNE").[E5] = Target.Value
        Case Else
            MsgBox "Öğrencinin sınıfı hatalı"
    End Select
    
    
End Sub

 

[delisuvarim03]

Çok teşekkür ederim.
5 ve 8. sınıfları ben ekledim harika oldu.

 

[delisuvarim03]

selam
Sayın Murat Osma'nın kodlarını aşağıdaki gibi değiştirip denermisiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Value = "" Then Exit Sub
    
    Select Case Left(Target.Offset(0, 1), 1)
        Case 6:
            Sheets("6.SNF KARNE").Select
            Sheets("6.SNF KARNE").[E5] = Target.Value
            
        Case 7:
            Sheets("7.SNF KARNE").Select
            Sheets("7.SNF KARNE").[E5] = Target.Value
        Case Else
            MsgBox "Öğrencinin sınıfı hatalı"
    End Select
    
    
End Sub

Bu kodu yaptıştırdığım liste sayfasında işlem yapmak istedigim zaman hata veriyor.(bu sayfaya başlık yazmak istedigimde yada vs) Tıklama yapılacak alanı belirli bir sütun ile yada aralık ile sınırlandırabilirmiyiz?

 

[merakli_72]

" If Target.Column <> 2"
tıklama yapılacak alan kontrolü B sütunuyla sınırlı zaten

 

[delisuvarim03]

Bu okul listesinde numaralara tek tek tıklayıp yazdırmak uzun sürüyor.

Bunun için okul listesine yazdır butonu koydum.

çıktı alınması gereke numara aralıgı belirleyip yazdır butonuna basınca listedeki numara aralıgındaki öğrencilerin sayfalarının yazdırmasını istiyorum.

Fakat nasıl yapacagımı bulamadım.


Yada başka bi fikriniz varsa yardımcı olurmusunuz.

 

[merakli_72]

Selam,
Ekteki dosyayı inceleyiniz

Yazdırılacak no aralığına göre değil,
B sütununda seçilen öğrenci nolarına göre döküm verir
önce B sütununda döküm almak istediğiniz öğrencilerin nolarını seçiniz
sonra yazdır düğmesine tıklayınız

Böyle daha pratik olacağını düşündüm

 

[delisuvarim03]

Değerli meraklı_72
Yapmış olduğunuz çalışma ve fikir çok harika.
Yalnız önemsiz bir sorun oluyor
Okul listesi sayfasında numarayı aralığını seçerken ekteki hata mesajını veriyor
Mesaja End deyip yazdır butonuna basınca tam da istediğim gibi yazdırabiliyorum.

bu sorunu çözmemiz mümkün mü?
Değilse sorun olmaz. istediğim gibi kullanabiliyorum.
Çok teşekkür ederim fikirleriniz ve yardımlarınız için.

 

[merakli_72]

hangi aralığı seçtiğinizde bu hatayı alıyorsunuz

 

[delisuvarim03]

Sanırım sizin önceki yazdıgınız kod ile beraber bu yeni yazdırma makrosunu kullanınca bu hatayı veriyor.

 

[omurbah]

arkadaşlar merhaba excel de 2 sütunda numaralar var. 1. ve 2. sütunda aynı olan numaraları düşeyara formülü ile 3. sütuna nasıl dökebilirim.

 

[merakli_72]

Evet haklısınız eski kodların artık bir gereği kalmadığından onları temizledim,
eki incelermisiniz

 

[catkapi]

Emeğe saygı Çok teşekkürler