(27/11/2021, 19:56)SeferŞANLI yazdı: Ayrıca kod yeni bir sayfa oluştutarak yapıyor. Varolan biçimli sayfaya nasıl atar bunu.
Kod:
SyfAdi = "ÖğrNöbetLis" & Me.DtDonem
SyfAdiTmp = SyfAdi
SyfNo = 0
Do While WorksheetExists(SyfAdiTmp, KTP1) = True
SyfNo = SyfNo + 1
SyfAdiTmp = SyfAdi & IIf(SyfNo = 0, "", "(" & SyfNo & ")")
Loop
Excl.Sheets.Add.Name = SyfAdiTmp
Excele Aktar Butonunuzdaki kod içerisinden bu bölümü silip Yerine
Kod:
Excl.Sheets("Excel Kitabınızdaki Sayfa Adını Buraya Yazınız").Select
Bu kodu yazarsanız seçtiğiniz kitabın içerisinde oluşturmuş olduğunuz sayfayı seçerek aktarımı yapar. Mevcut olan bir tablo tasarımı var ise sayfa üzerinden hiçbir tasarım düzenlemesini oluşturan kodları eklemeden sadece aktarımı yaptırtmak gerekiyor. Örneğin .Range("AI8").Font.Bold = True bu kod AI8 hücresinin içeriğini Kalın Harf yapmayı sağlıyor bu gibi kodları kaldırırsanız sadece verilerin aktarılması ile yapılır. Ancak Kitabınızın silinmesi veya sayfanızın silinmesi durumlarında oluşabilecek sorunların önüne geçmek için de bir kaç kontrol için kod eklemek gerekir.