Butana basıldığında yeni excel sayfası açıp istenilen değerlerin aktarılması

[hopeful]

Merhabalar
Kod, Açıklama ve Zaman değerlerinin olduğu bir datamızın olduğunu düşünelim. Ben ONAY kolonunda arzu ettiğim yerlere "x" yazıyorum. Sadece ONAYladığım ("x" yazdığım) satırların(datanın) otomatik olarak yeni bir excel çalışma kitabına Sheet1 e yazılmasını arzu ediyorum. Butona her basıldığında yeni bir çalışma kitabı açılsın, çalışma kitabının Sheet1 ine ONAYlanan data yazılsın, yeni açılan çalışma kitabına isim vererek kaydetmemi sağlasın..

İlgili çalışma ektedir.. Örnek olarak 20 tane kayıt olduğunu gösterdim. Kayıtların sayısı aslında 1500 kadar...Yardımcı olursanız çok sevinirim

Saygılar

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub farklikaydet()
Sheets("sheet1").Copy
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & "onaylanan.xls"
Set s1 = Workbooks("onaylanan.xls").Sheets("sheet1")
s1.[b3:b65536].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.Shapes(1).Delete
ActiveWorkbook.Save
End Sub

 

[hopeful]

Aşağıdaki kodu deneyin.

Sub farklikaydet()
Sheets("sheet1").Copy
ActiveWorkbook.SaveAs ActiveWorkbook.Path & "\" & "onaylanan.xls"
Set s1 = Workbooks("onaylanan.xls").Sheets("sheet1")
s1.[b3:b65536].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
ActiveSheet.Shapes(1).Delete
ActiveWorkbook.Save
End Sub

Sayın leventm. Runtime error hatası oluşuyor