hücredeki verileri farklı sayfaya taşımak ve sayfayı kopyalamak

[yuang]

Arkadaşlar merhaba,

Ekteki gibi bir dosyam mevcut.

1- Giriş sayfasındaki sarı ile renkli hücrenin karşısına girilen değeri "ekle" butonuna tıkladığımda diğer sayfa olan Kararlar kısmındaki ilgili yerlerine yazmasını istiyorum. Ekle butonu ile bilgileri alacak sonra yeni bir bilgi girişi için formu sıfırlayacak. Bilgileri sıfırlamak için bu sayfada açılan bir userform oluşturmam gerekir mi? Hücrelerde bunu yapabilirmiyiz?

2-Giriş sayfasındaki ekle butonuna tıkladığında bu sayfayı kopyalayacak, girilen bu bilgilere göre yeni bir sayfa oluşturacak. Yalnız bu sayfanın ismini "karar no" hücresinin karşısına girilen değere göre oluşturmasını istiyorum.

Forumlarda bulamadım.Yardımcı olurmusunuz.

İlginize teşekkürler.

Saygılar,

 

[askm]

Aşağıdaki kodları butonunuza ekleyebilirsiniz.

Sub askm()
Dim s1 As Worksheet: Dim s2 As Worksheet
s1 = Sheet("GİRİŞ"): s2 = Sheet("KARARLAR")
Dim son As Long
son = s2.Range("A" & Rows.Count).End(3).Row + 1
Application.ScreenUpdating = False
s2.Cells(son, 3) = s1.Cells(5, 2)
s2.Cells(son, 4) = s1.Cells(6, 2)
s2.Cells(son, 5) = s1.Cells(7, 2)
s2.Cells(son, 6) = s1.Cells(8, 2)
s2.Cells(son, 7) = s1.Cells(9, 2)
s2.Cells(son, 8) = s1.Cells(10, 2)
s2.Cells(son, 9) = s1.Cells(11, 2)
s2.Cells(son, 10) = s1.Cells(12, 2)
s2.Cells(son, 11) = s1.Cells(13, 2)
s2.Cells(son, 12) = s1.Cells(14, 2)
Range("B5:B14").ClearContents
Ad = s1.Range("B8")
Sheets.Add After:=Sheets(Worksheets.Count)
Application.ScreenUpdating = True
MsgBox "Veriler eklenip sayfa oluşturuldu...", vbInformation, "ASKM"
End Sub