Hücre içine harf ekleme

[muratkivilcim]

:yardim: Arkadaşlar benim bir tablom var ve tabloda anketlerin analizini yapıyorum ve her sorunun karşısında bir hücre var hücrenin içine o soruya kaç kişi cevap vermişse herbiri için tik koyuyorum. ama her tik için hücrenin içine girmem gerekiyor yada F2 tuşuna basıp yeni tiki ekliyorum. Bunun kolay bir yöntemi varmıdır.hücrenin üzerindeyken yazacağım yeni tiki var olanların arkasına eklese böyle bi şey mümkünse çok sevinirim. Yardımlarınızı bekliyorum.Teşekkürler...:yardim:

 

[Orion1]

:yardim: Arkadaşlar benim bir tablom var ve tabloda anketlerin analizini yapıyorum ve her sorunun karşısında bir hücre var hücrenin içine o soruya kaç kişi cevap vermişse herbiri için tik koyuyorum. ama her tik için hücrenin içine girmem gerekiyor yada F2 tuşuna basıp yeni tiki ekliyorum. Bunun kolay bir yöntemi varmıdır.hücrenin üzerindeyken yazacağım yeni tiki var olanların arkasına eklese böyle bi şey mümkünse çok sevinirim. Yardımlarınızı bekliyorum.Teşekkürler...:yardim:

CheckBox Koysanız olmazmı?

 

[muratkivilcim]

ekteki dosyaya bakarsanız sevinirim. tiklerin kaçtane olacağa belirsiz verilen nota göre tikleri yazıyorum.

 

[Seyit Tiken]

Renkli kısımları çift tıklayarak sonucunu gözlemleyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.Font.Name = "Wingdings"
ActiveCell = "ü"
ActiveCell.Offset(1).Activate
End Sub

Dosyadaki Veri Doğrulamayı inceleyiniz.

 

[muratkivilcim]

malesef gönderdiğiniz dosya isteğime yanıt vermiyor.benim istediğim Örneğin hücreye önceden 5 tane tik yazmış olayım,sonradan aynı hücrenin üzreine gelince tekrar 1 tik yazdığımda hücre 1 teke dönüşmesin önceden olan 5 tikin üzreine 6 ncı olarak ilave olsun

 

[Orion1]

Dosyanız Hazır.

Sub Düğme1_Tıklat()
ActiveCell.Value = ActiveCell.Value & "a"
End Sub

 

[muratkivilcim]

Üstadım süpersin buda işime yarar ama bunu hiç buton falan eklemeden yapamıyoruz sanırım. benin ilk istediğim gibi olması mümkün değilmidir. Emeğinize saygı gösteriyorum gerçeklten çok iyi olmuş ama bu formu birtek ben kullanmıyacağım ve diğer kullanıcılar benden çok daha kötüler, o yüzden buton falan kafalarını karıştırır.

 

[Orion1]

Üstadım süpersin buda işime yarar ama bunu hiç buton falan eklemeden yapamıyoruz sanırım. benin ilk istediğim gibi olması mümkün değilmidir. Emeğinize saygı gösteriyorum gerçeklten çok iyi olmuş ama bu formu birtek ben kullanmıyacağım ve diğer kullanıcılar benden çok daha kötüler, o yüzden buton falan kafalarını karıştırır.

Buton olmadan nasıl olacak.
İsterseniz hücreyi seçince otomatik tik versin öyle olurmu?

 

[muratkivilcim]

aktif hücreye sadece a yazdığım zaman mevcuta ilave etsin olurmu

 

[Orion1]

aktif hücreye sadece a yazdığım zaman mevcuta ilave etsin olurmu

Öyle zor gibi görünüyor.
Çift tıklama ile olsa nasıl olur?

 

[muratkivilcim]

aslında hücre seçildeğinde olanda güzel olur ama denetimi zor olur heryere a yağarlar sonra o yüzden sadece a yazınca olsa çok güzel olur

 

[Orion1]

aslında hücre seçildeğinde olanda güzel olur ama denetimi zor olur heryere a yağarlar sonra o yüzden sadece a yazınca olsa çok güzel olur

Ama hücreye çift tıklama ile olsa sorun olmaz sanırım.

 

[muratkivilcim]

evet evet oda süper olur çok teşekkürler

 

[Orion1]

Çift tıklayınız.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
ActiveCell.Value = ActiveCell.Value & "a"
Cancel = True
End Sub

 

[Zeki Gürsoy]

Change için bu da olabillir.

Private memo As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Right(memo, 1) = "a" Then _
        Target = memo & "a"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    memo = Target.Value
End Sub

 

[muratkivilcim]

üstad emeğine sağlık çok teşekkür ederim.

 

[muratkivilcim]

Change için bu da olabillir.

Private memo As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Right(memo, 1) = "a" Then _
        Target = memo & "a"
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    memo = Target.Value
End Sub

üstad bu nasıl çalışıyor ben denedim ama bir şey olmadı anlatırsan sevinirim.

 

[Zeki Gürsoy]

Hücre seçildiğinde hücre içeriği hafızaya alınıyor. Seçili hücreye tekrar yazmak istediğinizde sağdan 1. karakter "a" değilse "a" ekleniyor.