Skip to main content

AccessTr.neT


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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
54
3884

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

#13
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
...
Cevapla
#14
(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 Img-grin
Cevapla
#15
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ü Img-grin
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 23/05/2021, 18:54, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#16
@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.
.rar ING_TUR forum.rar (Dosya Boyutu: 1,7 MB | İndirme Sayısı: 5)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#17
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
.rar ING_TUR forum.rar (Dosya Boyutu: 1,7 MB | İndirme Sayısı: 4)
Cevapla
#18
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task