Hücreye bir veri yapıştırıldığında ?

[ataaax]

İyi akşamlar değerli forum üyeleri. Nacizane bir sorum olacak sizlere. Benim isteğim excel'de bir satıra bir veri yapıştırdığımda otomatik olarak alt hücreye geçmek. Böyle bir özellik var mı excel'de bilmiyorum lakin çok aradımsa da çözemedim. Excel 2010 kullanıyorum. Şimdiden teşekkürler.

 

[Korhan Ayhan]

Merhaba,

Çalışmanızı açın.
ALT+F11 tuşlarına basarak kod editörünü açın.
INSERT menüsünden "Module" seçeneğini seçin.
Sağ tarafta açılan beyaz pencereye aşağıdaki kodu uygulayın.
2007 öncesi versiyon kullanıyorsanız dosyanızı direkt olarak kayıt edip kapatın.
Eğer 2007 ve sonraki versiyonları kullanıyorsanız dosyanızı "Makro İçerebilen Excel Çalışma Kitabı" formatında kayıt edip kapatın.

Dosyanızı tekrar açıp kopyala-yapıştır yapmayı deneyin.

Sub AUTO_OPEN()
    Application.OnKey "~", "ALTA_GEÇ"
    Application.OnKey "{ENTER}", "ALTA_GEÇ"
    Application.OnKey "^{v}", "ALTA_GEÇ"
    Application.OnKey "+{INSERT}", "ALTA_GEÇ"
End Sub

Sub AUTO_CLOSE()
    Application.OnKey "~"
    Application.OnKey "{ENTER}"
    Application.OnKey "^{v}"
    Application.OnKey "+{INSERT}"
End Sub

Sub ALTA_GEÇ()
    If Application.CutCopyMode Then
        Selection.PasteSpecial
        ActiveCell.Offset(Selection.Rows.Count, 0).Resize(1, Selection.Columns.Count).Select
    Else
        On Error Resume Next
        ActiveCell.Offset(1, 0).Select
        On Error GoTo 0
    End If
End Sub