Otomatik sıra tarih verme ve dolu olan satırı diğer sayfadaki boş satıra aktarma

[ThEeNCi]

Selamlar

isim yazdıkça otomatik sıra numarası ve günlük tarihi atma ve dolu olan satırı kayıt sayfasındaki boş olan satıra aktarmasını macrosu nasıl yapabilirim teşekkürler

 

[ThEeNCi]

dosya eklemeyi unutmuşum

 

[Emir Hüseyin Çoban]

. . .

Aktarma işlemini buton ile mi yapmak istiyorsunuz.

. . .

 

[ThEeNCi]

evet buton ile

 

[Emir Hüseyin Çoban]

. . .

Bilgi sayfasına alt alta isimler girerek mi aktaracaksınız. Yoksa tek isim girip aktar mı yapacaksınız.

. . .

 

[ThEeNCi]

isimler girerek hepsine bazen olmuyor

 

[ThEeNCi]

pardon yanlış anladım hepsini aktaracak daha doğrusu dolu olanların hepsi

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

. . .

 

[ThEeNCi]

Emir Hüseyin bey teşekkür ederim fakat sıra numarasını baz almasa olabilir mi hem bilgi de hemde kayıt da çünkü bilgi sayfasındaki sürekli sabit kalacak 1'den 10 'a kadar kayıt da sınır yok

 

[Emir Hüseyin Çoban]

. . .

Sıra noyu size elle mi vermek istiyorsunuz. Doğru mu anladım..

. . .

 

[ThEeNCi]

kayıt sayfasında evet elle

 

[Emir Hüseyin Çoban]

. . .

1. mesajdaki sorunuzda otomatik sıra numarası verme kısmı nedir ?

. . .

 

[ThEeNCi]

sadece bilgi sayfasında demiştim ama eğer olmuyorsa şart değil

 

[Emir Hüseyin Çoban]

. . .

Çalışma sayfasındaki kodları şunlar ile değiştirin.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo hata
    
    Dim S2 As Worksheet: Set S2 = Sheets("Kayıt")
    If Intersect(Target, [C2:C50]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
[COLOR="SeaGreen"]    'a = WorksheetFunction.Max(Range("A:A"))
    'b = WorksheetFunction.Max(S2.Range("A:A"))
    'c = WorksheetFunction.Max(a, b)
    'c = c + 1[/COLOR]
    If Target.Value <> "" Then
        Cells(Target.Row, "A") = Target.Row - 1
        Cells(Target.Row, "B") = Date
    End If
hata:
    Application.EnableEvents = True
End Sub

. . .

 

[ThEeNCi]

Aktarma yapmıyor

 

[Emir Hüseyin Çoban]

Modül icindeki aktarma kodlarinda degisiklik veya silme yaptiniz mi.

.

 

[ThEeNCi]

evet yaptım

 

[Emir Hüseyin Çoban]

Hatali bir islem yapmis olabilirsiniz.
Aktarmiyor dediginiz dosyayi kodlariyla ekleyin inceleyelim.

.

 

[ThEeNCi]

örnek dosya sizin yaptığınız orda denedim

 

[Emir Hüseyin Çoban]

Dedigim gibi calismiyor dediginiz dosyayi eklerseniz incelerim.

.