Kopyala -Yapıştır

[cevatyildiz]

Merhaba

Bu aşağıdaki kod bloğunu kullanarak remark alanlarına tıklandıgında otomatik boyutlandırmak istiyorum ama herhangi bir kaç hücreyi kopyalayıp alt satırlara kopyalamak istediğimde "Yapıştır" ifadesi sağ click menüsünde oluşmuyor.

Bu konuda yardımcı olmanızı rica ediyorum. Mesela iki veya üç alanı beraber seçip alt satırlara kopyalamak için nasıl bir düzeltme gerekecektir?

Sub ResizeCommentsInSelection()
'Posted by Dave Peterson 2002-02-25
Dim mycell As Range
Dim myRng As Range
Dim lArea As Long

Set myRng = Selection


For Each mycell In myRng.Cells
  If Not (mycell.Comment Is Nothing) Then
    With mycell.Comment
      .Shape.TextFrame.AutoSize = True
      If .Shape.Width > 300 Then
        lArea = .Shape.Width * .Shape.Height
        .Shape.Width = 200
        .Shape.Height = (lArea / 200) * 1.2
      End If
    End With
  End If
Next mycell
End Sub

 

[cevatyildiz]

Yardımcı olabilecek varsa çok memnun olurum arkadaslar...

 

[ALİ GEZER 07]

ctrl + v deneyerek yapıştırma işlemini yapabilirsiniz.

 

[cevatyildiz]

ne yazık ki bu kadar kolay değil.. :arkadas:

 

[cevatyildiz]

Arkadaslar yardımcı olabilecek yok mu? Hücreyi kopyalayıp herhangi bir başka hücreye geçtiğim an kopyalanan hücre hafızadan siliniyor. Bu nedenle kopyaladıgım hücreleri yapıştıramıyorum.