Veriyi başka sayfadaki listeye ekletme

[yhackup]

Arkadaşlar personel avans takibi yapmak istiyorum kafamdaki yapmak istediğim exceli ekledim personeli tarihi tutarı yazıp ekle dediğimde sonraki sayfadaki listeye eklemesini istiyorum

 

[ZorBey_]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

 

[yhackup]

Merhaba
İyi Çalışmalar
Dosyanız Ektedir.
--------------------------
Konuya Olumlu Veya Olumsuz
Dönüş Yapmanız.
Konuyu Takip Eden Diğer Site
Sakinleri Açısından Faydalı Olucaktır.

malesef çalışmıyor ekle dediğimde herhangi birşey olmuyor

 

[Murat OSMA]

Şu kodları bir deneyin;

Private Sub CommandButton1_Click()
    Dim son As Integer
    son = Sayfa3.Range("A65536").End(3).Row + 1
    Range("B2").Resize(, 4).Copy Sayfa3.Cells(son, "B")
    Sayfa3.Cells(son, "A") = son - 1
    Sayfa3.Select
End Sub

 

[osmanucel]

murat bey benim sorunuma bakabilirmisiniz

 

[yhackup]

şu kodları bir deneyin;

private sub commandbutton1_click()
    dim son as ınteger
    son = sayfa3.range("a65536").end(3).row + 1
    range("b2").resize(, 4).copy sayfa3.cells(son, "b")
    sayfa3.cells(son, "a") = son - 1
    sayfa3.select
end sub

çalıştı teşekkürler.

 

[Murat OSMA]

çalıştı teşekkürler.

Rica ederim, iyi günler...

murat bey benim sorunuma bakabilirmisiniz

Osman Bey, hangi sorunuzdan bahsediyorsunuz bilmiyorum ama son açtığınız konu konu kilitli görünüyor. :dusun: