Üst Satir Doluysa Alta Yazdirma

[bakemr]

Excelde makro olayına merak sardım. Bu konuda henüz pek bilgim yok, şu anda en çok merak ettiğim konu, bir üst satırda değer varsa, makro üst satırda değer olduğunu görüp, bir alt satıra inip, verdiğim veriyi yazsın. Bunu yapabilirmiyim?:???:

 

[AS3434]

Evet yapabilirsiniz.
Sayfanın Kod sayfasına aşağıdaki kodları yazın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [a:a]) Is Nothing Then Exit Sub
a = [a65536].End(3).Row + 1
If Target.Cells.Value <> "" Then Cells(a, 1).Select
End Sub

A sütununda herhangi bir dolu hücre seçtiğinizde sizi ilk boş hücreye yönlendirir.

 

[bakemr]

Teşekkür ederim.

 

[bakemr]

Beceremedim

 

[AS3434]

Dosyayı inceleyin.

 

[bakemr]

süper emeğinize sağlık.

 

[Seyit Tiken]

Aşağıdaki kodu ilgili sayfanın kod bölümüne yapıştırıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [a1] = "" Then Exit Sub
If Target.Column = 1 Then [a6500].End(3).Offset(1).Select
End Sub