Anket

[neylim]

Arkadaşlar merhaba elimdeki excell anketinin anket kısmına gelen kulanıcılar yazının üstüne yani anketten bir yeri seçtiklerinde- tıkladırklarında o kısım x olmasını istiyorum
yada her soru için ayrı seçilebilen form nesneside olabilir
Yardımcı olmak isteyen varsa anket burda

 

[neylim]

Hocalar bu anketi yarına yetiştirmem gerekiyor yokmu bilen biri

 

[1Al2Ver]

Merhaba,

Öneri ;

Dosyanızı buraya, 2003 formatında ekleyiniz,

 

[Ergün Güler]

Selam,
Dosyanızı *.xls formatında yollayabilseydiniz, belki cevap bulunabilirdi.

 

[neylim]

Arkadaşlar özür farklı kaydettim dosya Burda

 

[lark]

Soru anlaşılmıyor.

Excel tablonuzu istediğiniz şekilde örneklendirirseniz bakılabilir. Nereye çarpı atmak istediğiniz bile anlaşılmıyor.

 

[1Al2Ver]

Arkadaşlar özür farklı kaydettim dosya Burda

Sayın neylim, merhaba,

Sitemiz dururken, hem de boyutu kısa olan bir dosyayı neden başka bir yere koyuyor sunuz?

Şahsen ben dosyanızı açmadım,

Sakıncası yoksa, 2003 formatında, şifresiz ve içerisinde "x" olmasını istediğiniz yerleri açıklayan örnek bir dosyayı, foruma ekleyiniz..

Teşekkür ederim.

 

[neylim]

ben kendi hostuma atmak istedim daha hızlı iner diye düşündüğümden
dosyayı şimdi açtım, şifresizdir vede işretli olacak yerler açık (N 1 ... 8 e kadar) şekilde bellidir
saygılar

 

[Ergün Güler]

ben kendi hostuma atmak istedim daha hızlı iner diye düşündüğümden
dosyayı şimdi açtım, şifresizdir vede işretli olacak yerler açık (N 1 ... 8 e kadar) şekilde bellidir
saygılar

Selam,
Örnek dosyanızın "Sayfa1" adlı sayfanın kod sayfasına aşağıdaki kodları yapıştırınız. D10:L44 aralığındaki herhangi bir hücreye tıkladığınızda "X" işareti koyacaktır. tekrar tıkladığınızda sizin belirlediğiniz önceki işaretleri (N,1,2.. v.s.) koyacaktır.
İstediğiniz bu mudur?
İyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("D10:L44")) Is Nothing Then Exit Sub
Cells(Target.Row, "A").Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son:
If Intersect(Target, Range("D10:L44")) Is Nothing Then Exit Sub
If Target.Row = 16 Or Target.Row = 23 Or Target.Row = 29 Or Target.Row = 35 Or Target.Row = 40 Then Exit Sub

    If Target <> "X" Then
    Target = "X"
    Target.Font.ColorIndex = 0
    Target.Font.Bold = True

    Else
        If Target.Column = 4 Then
        Target = "N"
        Else
        Target = Target.Column - 4
        End If

    Target.Font.ColorIndex = 15
    Target.Font.Bold = False

    End If
son:
End Sub

Örnek Dosya Ektedir.

 

[neylim]

Selam,
Örnek dosyanızın "Sayfa1" adlı sayfanın kod sayfasına aşağıdaki kodları yapıştırınız. D10:L44 aralığındaki herhangi bir hücreye tıkladığınızda "X" işareti koyacaktır. tekrar tıkladığınızda sizin belirlediğiniz önceki işaretleri (N,1,2.. v.s.) koyacaktır.
İstediğiniz bu mudur?
İyi çalışmalar.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("D10:L44")) Is Nothing Then Exit Sub
Cells(Target.Row, "A").Select

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo son:
If Intersect(Target, Range("D10:L44")) Is Nothing Then Exit Sub
If Target.Row = 16 Or Target.Row = 23 Or Target.Row = 29 Or Target.Row = 35 Or Target.Row = 40 Then Exit Sub

    If Target <> "X" Then
    Target = "X"
    Target.Font.ColorIndex = 0
    Target.Font.Bold = True

    Else
        If Target.Column = 4 Then
        Target = "N"
        Else
        Target = Target.Column - 4
        End If

    Target.Font.ColorIndex = 15
    Target.Font.Bold = False

    End If
son:
End Sub

Dostum çok sağol süper olmuş ama bunu normal excell dosyası olarak kaydedemiyorum

 

[Ergün Güler]

Dostum çok sağol süper olmuş ama bunu normal excell dosyası olarak kaydedemiyorum

Selam,
Dosyayı kaydederken çıkan önergeleri takip etse idiniz, dosyayı siz de kaydedebilirsiniz.

İyi çalışmalar

 

[neylim]

eline sağlık

 

[Ergün Güler]

eline sağlık

Rica ederim.
İyi çalışmalar.