girilen veriyi sayfa 2 de listelemek

[silience]

sayfa 1 veri giriş sayfamız olacak; verilen belirli bir şablonda yapılacak ve girilen veriler sayfa 2 de listelenecek,

1. veriyi girdikten sonra kayıt(aktar) gibi bir buton ile sayfa 2 ye aktaracak ve sayfa 1 deki girilmiş olan veriler sıfırlanacak, 2. veriyi girilecek, aktar... sayfa 2 deki listeye eklenecek, 3,4,5, yüzlerce giriş yapılacak....

örnek bir tablo hazırladım eğer böyle birşey mümkün ise yardımcı olabilirseniz çok memnun olacağım.

sanırım böyle birşey makro ile yapılabilir ve makro konusunda çok hiç bir bilgim yok.
şimdiden teşekkür ederim.

 

[YUSUF44]

Sayfa1'deyken sayfa sekmesinin üzerine sağ tıklayın, çıkan sayfada insert menüsünden Module'yi seçin

aşağıdaki kodları çıkan sayfaya yapıştırın:

Sub aktar()
Sheets("Sayfa1").Select
Sheets("Sayfa1").Range("C2:C5").Select
Selection.Copy
Sheets("Sayfa2").Select
Set c = [A:A].Find("")
If Not c Is Nothing Then c.Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
Set f = [A:A].Find("")
If Not f Is Nothing Then f.Select
Sheets("Sayfa1").Select
Range("C2:C5").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("C2").Select
End Sub

Sayfa1'de bir adet düğme ekleyin. düğme ekleme

düğmeye bu aktar makrosunu atayın

Sayfa1'e veri girerek, aktar düğmesine basıp deneme yapın.

Makro çalışmaz ve güvenlik düzeyinden bahsederse Güvenlik düzeyi/makro etkinleştirme

 

[silience]

çok teşekkür ederim,

ellerine sağlık