Tıklanan Hücreyi yazdırma

[steppe]

Merhaba Arkadaşlar,
Yeni yılınızı en içten dileklerimle kutlar,mutlu,huzurlu ve sevgi dolu yıllar dilerim.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, [K1:K29]) Is Nothing Then
i = [F65536].End(3).Row + 1
Range("K" & Target.Row & ":K" & Target.Row).Copy Cells(i, "F")
Cancel = True
Range("L1").Select
End If
End Sub

kodunda alanı çogaltmak için ne yapmam lazım.Örnek: [K1:K29] aralığına [L1:L29] ve [M1:M29] eklemek istesek ne yapmalıyız?

 

[YUSUF44]

Aşağdıaki gibi deneyin:

If Not Intersect(Target, range("K1:K29, L1:L29, M1:M29")) Is Nothing Then
i = [F65536].End(3).Row + 1
Target.Copy Cells(i, "F")