• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Butonla + ve okey ekleme

B

BARGENX

Katılım
22 Mayıs 2014
Mesajlar
115
Excel Vers. ve Dili
excell 2010
Bu forumdan o kadar çok faydalandım ki emeği geçen herkese teşekkür ederim. Yapmak istediğim şeyi eklediğim dosyanın öğrenciler sekmesinde açıklamaya çalıştım.

Yine de ilgilenmek isteyenler için bir ön bilgi vereyim. Öğrencilere + ve ok değerleri atamak için düğme kullanmak istiyorum. Yardımınızı bekliyorum.


Dosya linki https://drive.google.com/file/d/1ZB3GM0wVTCNLeBCw5dMsHX5-p40qUGNx/view?usp=sharing
 
Merhaba;
link açılınca
Büyük Dosyayı indir yazısının altında birkaç sn. lik bir sayaç geriye doğru sayar ve daha küçük Dosyayı indir yazısı çıkar.
Bu yazının üzerine tıklayarak indirin.
 
Harika. Öğrencileri değerlendirirken zaman kazanmak için pratik oldu. Çok teşekkür ediyorum. Ancak ben bunu diğer öğrenciler için nasıl uygularım?
 
Diğer öğrenciler derken?
aynı sayfada mı başka sayfada mı?
 
aa

muygun' Alıntı:
Diğer öğrenciler derken?
aynı sayfada mı başka sayfada mı?
Genişletmek için tıkla ...

Öğrenciler sekmesinde ben deneme amaçlı bir öğrenci eklemiştim. Sınıftaki diğer öğrenciler için de resim ve onay butonları eklemem gerekiyor. Siz ismi ayşe olan öğrenci için düzenlemişsiniz. Ben de tüm öğrencileri sizin yaptığınız sayfaya ekleyerek onay düğmeleri koymak istiyorum. Yani onayları tek bir sayfadan yönetmek istiyorum
 
Merhaba;
Öğrenciler sayfasındaki öğrenci listesi artı sayfasından alınıyor. (listenin aynı olacağını düşünerek ben bir sayfadaki listeyi baz aldım.)
Yani artı sayfasına isim ekledikçe öğrenciler sayfasında B1 hücresindeki açılır listede bunu görecek ve işlem yapabileceksiniz. Öğrenciler sayfasına eklediğiniz isimlerde yazılım hatası olabiliyor. Bu nedenle isim seçimini Son gönderdiğim dosyada olduğu gibi açılır listeden seçerek belirleyin.
İyi çalışmalar.
 
Tekrar merhaba. Ben dün biraz uğraştım ama yapamadım. Sizin çözümleriniz çok profesyonel ancak ben ders esnasında pratik bir uygulama yapmak istiyorum. Bunun için şablonu güncelledim. Her öğrenci için artı ve ok var. Yani açılır pencereden açıp aramak yerine direk öğrencinin yerini bilerek değer atamak istiyorum. Kusura bakmayın sizi yoruyorum. Ama yaparsanız çok minnettar olurum. Dosya linkini ekledim.

https://drive.google.com/file/d/1_1ei_qB61XfY_vxWQX10ePzE7HTKlxaf/view?usp=sharing
 
Merhaba syn. BARGENX;
Tavsiyem bir önceki mesajımdaki eki kullanmanız...
Eğer bu dosyada ısrarlı iseniz önceki dosyadaki kodları her buton için adapte etmeniz. (Bunu isim eklemesi oldukça zaten yapmak zorunda kalacaksınız.)

NOT: açılır listeden isim seçmenin zorluğunu anlayamadım!

İyi çalışmalar.
 
Merhaba. Bu kodları buraya yapıştırmanız mümkün mü? Excel de çok iyi değilim. Bir de bu kodları nereye nasıl eklerim.
 
Merhaba;
son eklediğiniz tasarı dosyasını açın.
ALT+F11 tuşlarına birlikte basarak makro kısmına geçin.
Sayfanın kod bölümüne yada boş bir modüle;

'------------------------------------
Sub artı_ekle1() 'çoğaltırken kopyaladığınız makroda en sondaki rakamı 1 artırın
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Set s2 = ThisWorkbook.Worksheets("artı")
arananisim = s1.Range("a1") 'aranan ismin olduğu adres
For i = 2 To s2.Range("c65536").End(xlUp).Row
If s2.Cells(i, "c") = arananisim Then
sonsütun = 0
For z = 39 To 5 Step -1
If s2.Cells(i, z) = "" Then sonsütun = z
Next z
If sonsütun >= 5 Then
s2.Cells(i, sonsütun) = "+"
Application.ScreenUpdating = True
MsgBox ("ilgili isim için + eklendi")
End If
End If
Next i
If sonsütun = 0 Then MsgBox ("ilgili isim için alan dolu."), vbCritical
Application.ScreenUpdating = True
End Sub

'----------------------------------------------
Sub onay_ekle1() 'çoğaltırken kopyaladığınız makroda en sondaki rakamı 1 artırın
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("Sayfa1")
Set s2 = ThisWorkbook.Worksheets("gülen yüz")
arananisim = s1.Range("a1") 'aranan ismin olduğu adres

For i = 2 To s2.Range("c65536").End(xlUp).Row
If s2.Cells(i, "c") = arananisim Then
sonsütun = 0
For z = 33 To 4 Step -1
If s2.Cells(i, z) = "" Then sonsütun = z
Next z
If sonsütun >= 4 Then
s2.Cells(i, sonsütun) = "a"
Application.ScreenUpdating = True
MsgBox ("ilgili isim için ONAY eklendi")
End If
End If
Next i
If sonsütun = 0 Then MsgBox ("ilgili isim için alan dolu."), vbCritical
Application.ScreenUpdating = True
End Sub
'--------------------------------------------------------

kodlarını yerleştirin (bu iki kod Sayfa1 sayfasındaki [A1 hücresindeki] ilk isim için)
Bu kodlardan Sub artı_ekle1() makrosunu + butonuna,
Sub onay_ekle1() makrosunu onay butonuna atayın ve deneyin. (sorunsuz çalıştığını göreceksiniz.)

Şimdi çoğaltma işlemine başlayabilirsiniz.

Bu iki makroyu kopyalayıp alta doğru çoğaltın.
Sonra makro isimlerindeki rakamı bir artırın.
Sub artı_ekle2()
Sub onay_ekle2()
gibi…
makroda;
arananisim = s1.Range("a1")
satırında
s1.Range("a1") kısmında "a1" adresi A1 hücresindeki ismin aranacağını gösteriyor.
Örn: Ümmügülsüm ÇELİK ismini arayacaksanız Buradaki "a1" kısmı "B1" olacak demektir.
gereken değişikliği çoğalttığınız her iki makrodada yapın.
sonra ilgili ismin altındaki + ve onay butonlarına yeni oluşturduğunuz makroları atayın.

Kısaca;
Makroyu kopyalayarak çoğaltacak,
makro adının sonundaki rakamı değiştirecek,
arananisim için ismin bulunduğu hücre adresini değiştirecek ve
bu makroyu ilgili isimlerin altındaki butonlara atayacaksınız.
Bu kadar...

İyi çalışmalar.
:)

İlk isim için oluşturulmuş dosya linki:
http://dosya.co/tp7vlcyirj8c/BARGENX-tasarı.zip.html
 

Ekli dosyalar

Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst