Kopyalama butonu

[cenqawer]

Merhaba sadece basınca hücreyi kopyalayacak buton ekleyeceğim ama biraz fazla 78 tane tek tek yapmak biraz zaman alacak merak ettiğim bunun kolay bir şekilde yapmanın yolu varmıdır. Aşağıdaki gibi 78 e kadar gitmem gerekecek sonra tek tek düğmelere makroyu atamam gerekecek. teşekkürler

Sub Makro1()
'
' Makro1 Makro
'

'
Range("C2").Select
Selection.Copy
End Sub
Sub Makro2()
'
' Makro1 Makro
'

'
Range("C3").Select
Selection.Copy
End Sub
Sub Makro3()
'
' Makro1 Makro
'

'
Range("C4").Select
Selection.Copy
End Sub

 

[Seyit Tiken]

78 düğme yapmanıza gerek yok, aşağıdaki kod tam olarak ihtiyacınızı karşılar. (Çift Tıklama)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("C1:C" & Rows.Count)) Is Nothing Then Exit Sub
Cancel = True
If Target = "" Then
Application.CutCopyMode = False
Exit Sub
End If
Target.Copy
End Sub

 

[cenqawer]

Ustam bi türlü ekleyemedim ectivex komut düğmesine mi yapıştırıcam

 

[ÖmerFaruk]

Sayfanızın kod sayfanıza direkt yapıştıracaksınız. Herhangi bir butona atamayın

 

[Seyit Tiken]

 

[cenqawer]

Çok teşekkürler

 

[tacettinsal]

Merhaba,

Yapmak istediğinizin devamı olarak belki işinize yarayabilir. Aşağıdaki kodları da devamına yazarsanız; kopyalamak için seçtiğiniz hücreyi seçtiğiniz başka bir hücreye yapıştırır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Application.CutCopyMode = 1 And Target.Column <> 3 Then
ActiveSheet.paste
Application.CutCopyMode = 0
End If

End Sub