Aktif olan hücreye bir tıkla veri kopyalama

[ismail-34]

Merhaba Excel Web Değerli Uzmanlarına..

Benim sorum aktif hücre neredeyse oraya karşılık gelen 5 sütunundaki değerin kopyalanması ve aktif hücrenin bir alt satıra geçmesi ile ilgili..

Örneğim aktif hücre b2 ise k2 deki hücreyi b2 e yazsın ve aktif hücre bir alt satıra yani b3 geçsin (enter işlemi uygulansın).

Örnek linktedir ..

Sevgiler saygılar..

İndir Aktif olan hücreye karşlık gelen değeri kopalama

Dosyayı indir Aktif olan hücreye karşlık gelen değeri kopalama

dosya.co

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki kod istediğiniz işlemi yapar. Kendi dosyanız göre geliştirebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo 10
    Application.EnableEvents = False
    Target = Cells(Target.Row, "K")
    Target.Offset(1).Select
10  Application.EnableEvents = True
End Sub

 

[ismail-34]

Merhaba,

Aşağıdaki kod istediğiniz işlemi yapar. Kendi dosyanız göre geliştirebilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo 10
    Application.EnableEvents = False
    Target = Cells(Target.Row, "K")
    Target.Offset(1).Select
10  Application.EnableEvents = True
End Sub

Çok Değerli Korhan hocam günaydın.
bunu örnekteki gibi manuel butona uygulamak istiyorum..
yani ben tıklayınca bu işlemi yapsın.yani kodunuz doğru ama otomatik yapmasın.baştakileri silip sub yaptım ama olmadı
yardımcı olursanız sevinirim.

İndir Aktif olan hücreye karşlık gelen değeri kopalama

Dosyayı indir Aktif olan hücreye karşlık gelen değeri kopalama

dosya.co

 

[Korhan Ayhan]

Aşağıdaki kodu butona atayıp deneyebilirsiniz.

Sub Aktar()
    ActiveCell = Cells(ActiveCell.Row, "K")
    ActiveCell.Offset(1).Select
End Sub

 

[ismail-34]

Aşağıdaki kodu butona atayıp deneyebilirsiniz.

Sub Aktar()
    ActiveCell = Cells(ActiveCell.Row, "K")
    ActiveCell.Offset(1).Select
End Sub

Aynen budur hoocam çok çok teşekkür ederim Değerli Korhan hocam.İyi Çalışmalar..