Her Hücreye tıkladığımızda açılan seçim ekranı

[umit1907]

Merhabalar,

Ekteki dosya ile bir muhasebe programı mantığında bir mahsup fişi tasarlamaya çalıştım. Yapmak istediğim c stununda her hangi bir hücreye tıkladığımda bir arama penceresinin açılması ve oradan hesap kodunu seçtiğimde hücreye yazması bu şekilde bir şey yapabilinirmi.

 

[NBATMAN]

Merhaba,

Excel'de Veri Sekmesi Veri Doğrulama Özelliğine bakınız. Buradaki Liste seçeneği verdiğiniz örneği tam olarak benzemese de isteğinizi karşılayacaktır.

2. alternatif verdiğiniz örnek gibi bir userform oluşturup, ilgili hücrelere tıklandığında açılması sağlanarak, oradan yapılacak kodlama ile istediğiniz veri istediğiniz hücreye getirilir.

 

[umit1907]

Merhaba,

Excel'de Veri Sekmesi Veri Doğrulama Özelliğine bakınız. Buradaki Liste seçeneği verdiğiniz örneği tam olarak benzemese de isteğinizi karşılayacaktır.

2. alternatif verdiğiniz örnek gibi bir userform oluşturup, ilgili hücrelere tıklandığında açılması sağlanarak, oradan yapılacak kodlama ile istediğiniz veri istediğiniz hücreye getirilir.

İlginiz için teşekkürler,
Şöyle birşey yaptım hücrelere tıklayınca USERFORM açılıyor şimdi userformda çift tıkladığım hesap ismini aktif hücreye yazabilirsem işimi görecek.

 

[NBATMAN]

Merhaba,

aşağıdaki kodları userform kod sayfasına ekleyiniz.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

Dim i As Integer
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) Then
ActiveCell.Value = ListBox1.List(i, 0)
Exit For
End If
Next i


End Sub

 

[umit1907]

Çok teşekkür ederim. halletim gibi. yalnız son son olarak sayfayı temizlediğimde bir hata veriyor onuda halletimmi işim bitecek .

 

[umit1907]

Merhabalar,
bu koyu yerde sürekli hata veriyor burada hatayı yoksayabilirmiyiz. üstteki mesajda dosyanın son hali mevcuttur. Teşekkürler.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [C:C]) Is Nothing Or Target.Row < 4 Or Target.Value = "" Then Exit Sub