LİSTE KUTUSU yardım

[duranproject]

önce görünüm menüsünden form çubuğunu açarak liste kutusunu açtım. Listekutusunu çift tıklayarak sayfa 1'deki a sutunnundaki verileri aktardım. Şimdi ben liste kutusundaki verilerinden her hangi birini benim belirlediğim her hangi bir hücreye tıklayarak nasıl aktarabilirim?

 

[Orion1]

Bir tane örnek dosya ekleyiniz ve açıklamasını yazınız.

 

[duranproject]

liste kutusu

Sayın orion örneği ekledim. liste kutusuna verileri veri tabanından c2-c20 arasındaki verileri ekledim. şimdi de bu verileri ben her hangi bir hücreyi seçtiğim zaman liste kutusundaki her hangi bir veriye tıkladığım zaman o veriyi yapıştırsın.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub ListeKutusu1_Değiştir()
If ActiveCell.Column = 8 And ActiveCell.Row >= 3 _
And ActiveCell.Row <= 25 Then
    ActiveCell.Value = Sheets("veri tabanı").Cells([A1] + 1, "C").Value
End If
End Sub

 

[duranproject]

TeŞekkÜrler..... ÇOK İŞE YARAYACAK

 

[Orion1]

TeŞekkÜrler..... ÇOK İŞE YARAYACAK

Rica ederim.
İyi çalışmalar.