- Katılım
- 28 Eylül 2007
- Mesajlar
- 9
- Excel Vers. ve Dili
- office2007
- Altın Üyelik Bitiş Tarihi
- 03/11/2018
listbox daki iki kolondaki bilgileri çift tıklamayla 1.kolonu sayfada c sutununa 2. kolonu sayfada d sutununa atabilirmi ( tek veriyi şu şekildeki kod la atabiliyorum)
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim Hedef As Range, Alan As Range
Set Hedef = Range("C3:C10000")
Set Alan = Intersect(ActiveCell.EntireRow, Hedef)
Alan.Value = ListBox1.Value
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
Dim Hedef As Range, Alan As Range
Set Hedef = Range("C3:C10000")
Set Alan = Intersect(ActiveCell.EntireRow, Hedef)
Alan.Value = ListBox1.Value
End Sub