Yalnız Mesajı Göster
Eski 09-11-2017, 11:51  
muygun
Özel Üye
 
muygun kullanıcısının avatarı
 
Giriş: 06/07/2004
Mesaj: 6,786
Excel Vers. ve Dili:
Excel-2003 Türkçe
Varsayılan

Merhaba;
Sayfanın kod bölümüne;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("L3:L65500")) Is Nothing Then
sat = Target.Row
Cells(sat, "L") = Cells(2, "L")
Cells(sat, "m") = Cells(2, "m")
Cells(sat, "n") = Cells(2, "n")
Cells(sat, "o") = Cells(2, "o")
End If
End Sub

Kodlarını yerleştirin ve L3 L65536 aralığında çift tıklayın.
İyi çalışmalar.
__________________
Excel-2003 - Türkçe
muygun Çevrimdışı   Alıntı Yaparak Cevapla