Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek.

1 2 3 4 5 6 7 8 9 10
22/05/2021, 23:11

Oğuz Türkyılmaz

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. 




23/05/2021, 01:35

berduş

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
23/05/2021, 13:47

berduş

bu arada neden seçenek kutularını kullanmadınız?
seçenek nereye kaydedilecek?
doğru cevap nasıl kontrol edilecek?
23/05/2021, 14:11

Oğuz Türkyılmaz

@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.


Bu arada seçenek results sayfasına kaydedilecek yeri hazır kodlara sıra gelmedi.
23/05/2021, 14:23

berduş

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
23/05/2021, 14:27

Oğuz Türkyılmaz

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.
1 2 3 4 5 6 7 8 9 10