Makro ile dosya fihristi oluşturma

[whirlybird]

Merhaba, ben sayfa1deki şekilde evrak düzenlemekteyim, sonra elimle sayfa 2deki gibi dosya fihristi düzenleyip saklıyorum ve sayfa1'deki bilgileri silip sürekli yeni evrak düzenliyorum.

Kısaca Sayfa2 benim bir verileri kaydettiğim defter olmaktadır. İstediğim makro sayfa2'ye verileri sırası ile işledikten sonra sayfa1'de verileri silecektir.
Bunu yapabilmem mümkün mü? Yardımcı olabilirseniz çok sevinirim, şimdiden teşekkür ederim.

Sayfa1 ekran görüntüsü:


Sayfa2 ekran görüntüsü:

 

[Ömer BARAN]

Merhaba.
Aşağıdaki kodu bir MODÜL'e kopyalayın.
Sayfa1'e ekleyeceğiniz bir düğmeye/şekile fareyle sağ tıklayıp
"MAKRO ATA"yı seçin ve açılan listeden AKTARSİL'i seçerek onaylayın.
Artık bu düğme/şekil ile verileriniz aktarılacak ve sayfa1'deki veriler silinecektir.

[SIZE="2"]Sub AKTARSİL()
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("Sayfa2")

son = s2.[A65536].End(3).Row + 1

s2.Cells(son, 1) = s1.Cells(1, 2)
s2.Cells(son, 2) = s1.Cells(2, 2)
s2.Cells(son, 3) = s1.Cells(3, 2)

s1.Range("B1:B3").ClearContents

End Sub[/SIZE]