seçili alana dblclick

[peleryn]

Herkese Merhabalar;

Benim bildiğim haliyle excel seçili olan hücreye dblclick yapılmasına izin veriyor.Peki bunu seçili hücrede değilde seçili alan üzerinde çalıştırmak mümkün müdür?

Sub satir()
If WorksheetFunction.CountA(Selection) = 0 Then
MsgBox "Seçili alanda veri bulunmamaktadır."
Exit Sub: End If
For x = Selection.Row To Selection.Row + Selection.Count - 1
bosluk = Chr(10)
If x = Selection.Row Then bosluk = ""
If Cells(x, Selection.Column) <> "" Then
a = a & bosluk & Cells(x, Selection.Column)
End If
Next
Selection.ClearContents
Cells(Selection.Row, Selection.Column) = a
Cells(Selection.Row, Selection.Column).Select
End Sub

Yukarıdaki kodlar çalıştığında seçili alandaki veriler tek bir hücreye satır satır diziliyor.
Sorumu bu kodları dblclick olayına atayabilmek için soruyorum.

 

[Orion1]

Dblclick ile seçili alandaki veriyi almayı düşünüyorsanız olmaz.Çünkü;bir hücreyi seçtiğiniz ilk anda seçimlilik kaybolur.Sadece seçili hücre kalır.

 

[peleryn]

Evren Hocam yanıtınız için teşekkür ediyorum.Bu çözüm oluşturulabilse benim için çok pratik olacaktı.Halihazırda butonumu seçimin yanına getirerek problemimi çözüyorum.Ama bu işlem için en pratiği dblclick olacaktı ama kısmet değilmiş

 

[Orion1]

Evren Hocam yanıtınız için teşekkür ediyorum.Bu çözüm oluşturulabilse benim için çok pratik olacaktı.Halihazırda butonumu seçimin yanına getirerek problemimi çözüyorum.Ama bu işlem için en pratiği dblclick olacaktı ama kısmet değilmiş

Sağlık olsun.Ne yapalım.

 

[peleryn]

Neyse üzülmeyin yorulsam da tükensem de butona basarak ta yaşayabilirim hocam dediğiniz gibi önce sağlık