Makro yardımıyla diğer sayfa kayıtları atma

[mttari]

Merhabalar,

Ekte gönderdiğim dosyada makro yardımıyla bilgi giriş sayfasında girdiğim bilgilerin "Giriş" düğmesine basııldığında liste sayfasında artan sıra ile yazılmasını ve sonrasında bilgi giriş sayfasında son yazılanların temizlenmesini ve yeni bir kayıt girişine hazır hale gelmesini yapmak istiyorum.

Yardımcı olabilirseniz sevinirim...

İlgi ve alakanız için şimdiden teşekkür ederim.

 

[bedri41]

Merhabalar,

Ekte gönderdiğim dosyada makro yardımıyla bilgi giriş sayfasında girdiğim bilgilerin "Giriş" düğmesine basııldığında liste sayfasında artan sıra ile yazılmasını ve sonrasında bilgi giriş sayfasında son yazılanların temizlenmesini ve yeni bir kayıt girişine hazır hale gelmesini yapmak istiyorum.

Yardımcı olabilirseniz sevinirim...

İlgi ve alakanız için şimdiden teşekkür ederim.

Bir modul içerisine kopyalayıp deneyiniz.

Sub Giris()
    With Sheets("liste")
        Satır = .Range("A65536").End(3).Row + 1
            .Cells(Satır, 1) = Satır - 4
            .Cells(Satır, 2) = [C4]
            .Cells(Satır, 3) = [C5]
            .Cells(Satır, 4) = [C6]
            .Cells(Satır, 5) = [C7]
            .Cells(Satır, 6) = [C8]
            Range("c4:c8").ClearContents
   End With
End Sub

Kolay Gelsin

 

[mttari]

Teşekkür ederim. Ellerine sağlık...