Hücreye tek tıklama ile aktarma kodu

[kemal turan]

Sn.Ustadlarımız,
Ek dosyada işimde kullandığım tablo var.Bu tabloda istediğim aktarma için 30-40 adet makro yaptım ve butonlara bağladım.k
Kullanım aşamasında zorlanıyorum.
Sayfanın kod bölümüne yazılacak bir kod ile dosyada istediğim aktarmayı yapacak bir makro rica ediyorum.
Teşekkürler

 

[kemal turan]

Merhaba arkadaşlar,
Aşağıdaki alıntı kodlarla isteğime bir nebze yaklaştım.
Yapamadığım N14 dolu ise N15 hücresine yapıştırsın,N15 dolu ise N16 e yapıştırsın.
Yardımınız bekliyorum.
Tşk.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
Selection.Copy
Range("N14").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

 

[Mustafa MUTLU]

Merhaba arkadaşlar,
Aşağıdaki alıntı kodlarla isteğime bir nebze yaklaştım.
Yapamadığım N14 dolu ise N15 hücresine yapıştırsın,N15 dolu ise N16 e yapıştırsın.
Yardımınız bekliyorum.
Tşk.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
Selection.Copy
Range("N14").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Bunu Deneyin..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("B:B")) Is Nothing Then Exit Sub
Selection.Copy
Range("N1").PasteSpecial Paste:=xlPasteValues
Satır = Range("N65536").End(3).Row + 1
Cells(Satır, "N") = Satır - 1
Cells(Satır, "N") = [N1]
End Sub

 

[kemal turan]

süppeerr.
Çok teşekkür ederim
kolay gelsin.

 

[Mustafa MUTLU]

süppeerr.
Çok teşekkür ederim
kolay gelsin.

Rica ederim...