soru bankası

[arifbirgen]

Değerli hocalarım

Ekteki soru bankası örneğinde A grubu sayfasına 2 nolu soru çağırıldığında
X'in alt ve üst simgeleri (17 ve -1) yer değiştirmekte.alt ve üst simgelerin
yer değiştirmemesini istiyorum.Bu konuda yardımcı olursanız çok memnun
olurum.

 

[arifbirgen]

dosya eklenmemiş

 

[Levent Menteşoğlu]

Aşağıdaki kodu dosyanızın thisworkbook sayfasına kopyalayın. Tüm sayfaların A sütununa açıklamayı yazdığınızda soruyu getirecektir.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, [a8:a65536]) Is Nothing Then Exit Sub
Set s1 = Sheets("sorubankası")
say = WorksheetFunction.CountIf(s1.[a:a], Target)
If say = 0 Then
MsgBox "Aradığınız soru bulunamadı.", 48, "Uyarı !"
Target.Select
Exit Sub
End If
sat = WorksheetFunction.Match(Target, s1.[a:a], 0)
s1.Cells(sat, "b").Copy Target.Offset(0, 2)
s1.Cells(sat, "c").Copy Target.Offset(0, 4)
End Sub

 

[arifbirgen]

alt-üst simge

Değerli hocam Leventm

Size çok çok teşekkür ederim.Başarı ve mutluluklar dilerim.

 

[ncrimp]

merhabalar ortalama vade için nasıl formül oluşturabilirim