AccessTr.neT
Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek. - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek. (/konu-excel-sayfasindaki-listeden-siradaki-satir-bilgilerini-cekmek.html)

Sayfalar: 1 2 3 4 5 6 7 8 9 10


Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek. - Oğuz Türkyılmaz - 22/05/2021

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]


RE: Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek. - berduş - 23/05/2021

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


RE: Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek. - berduş - 23/05/2021

bu arada neden seçenek kutularını kullanmadınız?
seçenek nereye kaydedilecek?
doğru cevap nasıl kontrol edilecek?


RE: Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek. - Oğuz Türkyılmaz - 23/05/2021

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


RE: Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek. - berduş - 23/05/2021

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


RE: Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek. - Oğuz Türkyılmaz - 23/05/2021

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.