Kopyala-yapıştır sorunu

[manisali_mdr]

ARKADAŞLAR MERHABA
Yine burada üstadların sayesinde yaptığım bakım takip çizelgesi ile ilgili sorunuma yardımcı olursanız sevinirim.
Bu çizelgeyi çoğaltmak için kopyala-yapıştır yapıyorum,bütün hücreler "bulamadım" yazısıyla doluyor.
son satırın altından tutup çekiyorum yine aynı manzara ile karşılaşıyorum.
Üstetik hücreleri bütün özellikleri ile aşağıya nasıl kopyalayabilirim.
Şimdiden teşekkürler

 

[manisali_mdr]

Üstadlarım tekrar merhaba..ekteki dosyam ile ilgilenirseniz sevinirim

 

[Korhan Ayhan]

Selamlar,

Sayfanıza ait kodu aşağıdaki şekilde değiştirip denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    On Error GoTo Son
    
    If Intersect(Target, [D:D]) Is Nothing Then Exit Sub
    If Target.Cells.Count > 1 Then Exit Sub
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
        
    Set c = Sheets("Ücretlendirme").Range("A:A").Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not c Is Nothing Then
        Target.Offset(0, 2) = Sheets("Ücretlendirme").Cells(c.Row, "B")
    Else
        Target.Offset(0, 2) = "Bulamadım"
    End If
Son:
End Sub

Kopyalama işlemini aşağıdaki yöntemlerden birisi ile yapabilirsiniz.

CTRL+C / CTRL+V
CTRL+INSERT / SHIFT+INSERT
Sürükle bırak yöntemi ile

 

[manisali_mdr]

işte bu kadar üstadım
*harika olmuş
*bir kez daha emeğiniz,ilginiz,bilginiz,yüreğiniz ve beyniniz için teşekkür ederim