yalnız şimdi fark ettim bazı kelimelerin Türkçe anlamı yok mesela "providing that" gibi 123 kelimenin yok yanlış olabilir
advert to
any more than
apart form
...
Excel Sayfasındaki Listeden Sıradaki Satır Bilgilerini Çekmek.
(23/05/2021, 17:26)Oğuz Türkyılmaz yazdı: @feraz hocam hatayı nerde verdi. Bendeki dosyada herhangi bir yerde hata vermiyor.Bende optionbuttond vermişti çünkü dosyada yoktu sanıyorum.Ve dosya açılışındada vermişti.
Videoyu tüm izledim anlatan daha syfa seçtirmeyi bilmiyor
Evet berduş hocam ben de onu bazı soruların şıklarında boş hücreler çıktı bende bu neden oluyor diye düşünüp tablodan o soruyu bulunca karşılığının olmadığını farkettim. Karşılıklarını bir ara yazacağım. Teşekkür ederim.
Ömrümü yedi ömrümü
Ömrümü yedi ömrümü
Access Çekirgesi
Son Düzenleme: 23/05/2021, 18:54, Düzenleyen: Oğuz Türkyılmaz.
@feraz hocam 2 sorun var dosyada . Testi hazırla butonuna tıkladığımda object requıred hatası veriyor yine, ve son soruyu da cevapladıktan sonra sonraki soruya tıklarsam son satırı result sayfasına her tıklama da eklemeye devam ediyor. Tıklanan buton olsa butonun disable olma özelliğinden faydalanıp bu sorunu çözerdim ama şekil olunca şekillerin enabled ve disable özellikleri olmadığından çözüm bulamadım. result sayfasında soruyu ve doğru cevabı düşeyara formülü ile almıştım ama verilen cevabı düşey arayla çekmeye çalıştığımda hata veriyor.
Access Çekirgesi
Sub KaydetSonrakiSoruyaGec()
Dim son As Long, doluSay As Long
Static sayac As Long
Dim bulR10 As Range, rng10 As Range
Dim secenek As Object
doluSay = WorksheetFunction.CountA(Sayfa2.Range("A:A"))
sayac = sayac + 1
With Sayfa7
With Sayfa4
Set rng10 = .Range("R10")
Sayfa7.Range("B2") = rng10.Value
Set secenek = .Shapes("Seçenek Düðmesi 16").OLEFormat.Object
secenek.Value = True ' boþ kutucuðu sonraki soruda iþaretli gelecek
Set bulR10 = Sayfa7.Range("A:A").Find(rng10.Value, , , 1)
If Not bulR10 Is Nothing Then
MsgBox "Son sorudasiniz.", vbExclamation, "Bilgi"
sayac = 0
Exit Sub
End If
If sayac > doluSay Then
MsgBox "Son sorudasiniz.", vbExclamation, "Bilgi"
sayac = 0
Exit Sub
End If
If sayac < doluSay Then rng10.Value = rng10.Value + 1
End With
son = .Cells(Rows.Count, 1).End(3)(2, 1).Row
sonsatirResult son, .Name
End With
sonDoluMesaj
End Sub
yalnız 12. mesajdaki dosyadan 16. mesajdaki dosyaya ne ara geçtiniz, arayı nasıl doldurdunuz ben onu anlamadım! 16. mesajda yapılan şeylerin hiç biri sorunuzda yer almıyor.
Konuyu Okuyanlar: 1 Ziyaretçi