Kopyala Yapıştır butonu yardım

[mawiliman]

Arkadaşlar merhaba,
a3 ve b3 hücresindeki verileri bir buton yapıp, mouse ile seçtiğim yere kopyalayıp yapıştırmasını istiyorum.
Ve bu işlemi her butona tıkladığımda, her farklı hücreyi mouse ile seçtiğimde yapmasını istiyorum.

yardımcı olursanız sevinirim.

 

[Greenblacksea53]

Sub Yapistir()

Dim hucre As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "GreenBlacksea53"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Yapıştıracağın sutünü seç:", xTitleId, Type:=8)
For Each hucre In InputRng
    If hucre.Value <> "" Then
        dt(hucre.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

Modüle ekle sonra butona bağla

 

[mawiliman]

Sub Yapistir()

Dim hucre As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "GreenBlacksea53"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Yapıştıracağın sutünü seç:", xTitleId, Type:=8)
For Each hucre In InputRng
    If hucre.Value <> "" Then
        dt(hucre.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

Modüle ekle sonra butona bağla

ilginize teşekkür ederim fakat hata veriyor.
benim istediğim şey a3 ve b3 teki veriyi mouse ile her tıkladığım yere buton ile kopyala yapıştır yapması.

 

[Greenblacksea53]

Denedim yolladım istediğin hücredeki veriyi kopyalayıp istediğin hücreye yapıştırabiliyor. Kodları mödüle ekleyip excel oluşturduğun düğmeye mödülü atayacaksın.

 

[mawiliman]

Denedim yolladım istediğin hücredeki veriyi kopyalayıp istediğin hücreye yapıştırabiliyor. Kodları mödüle ekleyip excel oluşturduğun düğmeye mödülü atayacaksın.

hocam benim istediğim şey tek tek seçmek değil.
şu şekilde anlatayım
x butonu = b3 hücresi
ben her tıkladığım yerde, butona bastığımda b3 hücresindeki veriyi seçtiğim yere yapıştırsın. kopyalanacak yer sabit yapıştırılacak yer mouse ile seçilecek.

 

[YUSUF44]

Sayın Greenblacksea'nın önerisi düğmeye bastıktan sonra seçilen hücreleri seçilen hücrelere yapıştırıyor. Bende hata vermedi.

Alternatif olarak aşağıdaki makroyu deneyin:

Sub Yapistir()
[A3:B3].Copy Selection
End Sub

 

[ÖmerFaruk]

Örnek bir dosya yaptım. İşlevsellik açısından deneyebilirsiniz.

Altın üye olmayanlar için harici link
https://dosya.co/f7rvubf18tio/Kopyala_Yapıştır.xlsm.html

 

[Greenblacksea53]

Sub B3Huscresi()
    Sheets("Sayfa1").Range("B3").Copy
    a = ActiveCell.Address
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[mawiliman]

Sub B3Huscresi()
    Sheets("Sayfa1").Range("B3").Copy
    a = ActiveCell.Address
   
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

hocam teşekkür ederim bu kod ile çözdüm.