AccessTr.neT

Tam Versiyon: Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4 5 6 7 8 9 10
Merhaba
Uygulamada menu sayfasında Testi başlat butonuna tıkladığımda Soru_Cevap ENG_TUR sayfasında bulunan 1 nolu soruyu ekrana alıyorum. Amacım sonraki soru butonuna tıkladığımda Listedeki bir sonraki soru ve cevapları sayfaya çekmek. Bu uygulama için en uygun çözüm nasıl yapılabilir. 

[Resim: do.php?img=11059]

[Resim: do.php?img=11060]
sayfaya kaçıncı soruda olduğunuzu belirten 2 hücre ekleyin
bir Hücrede sadece Soru: yazsın diğerinde de kaçıncı soru da olduğu
testi başlattığınızda kaçıncı soruda olduğu hücreye soru no yazsın, butona her bastığınızda önce sayıyı bir artırın sonrada sayı +1 den ilgili satırı alsın
bu arada neden seçenek kutularını kullanmadınız?
seçenek nereye kaydedilecek?
doğru cevap nasıl kontrol edilecek?
@berduş hocam Onlar sırada henüz sıradaki soruyu getirmeyi ve Kodunuzdaki radiobuton ile seçtiğiniz ENG-TUR yada TUR_ENG rasgele ürettilen kelimeleri tek sayfaya nasıl yönlendireceğimi bulamadım. Kodda bu sayfaların ismi geçse belirleyeceğimde Vba penceresindeki ilgili sayfalardan birini silip şansımı denemeyi düşünüyorum. Ama koddaki yönlendirme yöntemini bulamadım. Img-grin

[Resim: do.php?img=11063]

Bu arada seçenek results sayfasına kaydedilecek yeri hazır kodlara sıra gelmedi.
kodları dikkatli incelemiyorsunuz daha da önemlisi anlamaya da çalışmıyorsunuz bence:
sorular HdfSht'e kaydediliyor
HdfSyf = IIf(Sayfa4.OptionButton1 = True, Sayfa4.OptionButton1.Caption, Sayfa4.OptionButton2.Caption)
Set HdfSht = ThisWorkbook.Sheets(HdfSyf)
yukardaki kodda siz 2 farklı sayfaya istediğiniz için sayfa seçiminiz için option butonu kontrol ediyordu, eğer tek sayfa varsa o kontole gerek yok doğrudan sayfa adının girilmesi yeterli
Set HdfSht = ThisWorkbook.Sheets("SayfaAdı")
çok zor değil aslında ama bence "nasıl olsa yapan var" düşüncesiyle kodları anlamak için pek uğraşmıyorsunuz
Kod:
HdfSyf = IIf(Sayfa4.OptionButton1 = True, Sayfa4.OptionButton1.Caption, Sayfa4.OptionButton2.Caption)
Hdf = IIf(Sayfa4.OptionButton1 = True, True, False)
Set HdfSht = ThisWorkbook.Sheets(HdfSyf)
HdfSht.Cells.Clear

Abracadabrayı burda yapmışsınız bence ama ben çözümleyemediğim için başlığa göre sayfasına yönlendirmek yerine hangi buton seçilirse seçilsin tek bir sayfaya kelimeleri göndermeyi sağlayamıyorum. Amaç tek sayfaya yazsın. Dediğiniz gibi sayfa sayısını azaltmak.
Sayfalar: 1 2 3 4 5 6 7 8 9 10