Satırda değişiklik yapınca kod bozuluyor.

[Tolgahand]

Merhaba, excelde hiç bilgim yok. araştıra araştıra oluşturduğum formüllerde sayfa düzenlemesi yapınca sayfa bozuluyor. Bu konuda yardımcı olursanız sevinirim.

Çalışma kitapçığında 2 ayrı sayfa var.
Sayfa2 de 50-60 satır içerik olucak. sayfa1i ise sayfa ikideki dağınık hale olan içeriği düzenli bir şekilde alıp ve yazıcıdan çıktı almak için kullanıcam.

her çıktı alışımda sayfa2 den bir satır silerek sayfa1de yeni bir içerik oluşturmak istiyorum. fakat bunu yapınca da ilk sayfa bozuluyor &başvuru diye hata çıkıyor. Konuyu daha iyi anlamanız açısından oluşturduğum sayfayıda buraya yükledim. yardımcı olursanız sevinirim.

 

[Muhammet Okumuş]

Merhaba,

Sub SilYaz()
Range("A1") = Sheets("Sayfa2").Range("A2") & " " & Sheets("Sayfa2").Range("B2")
Range("A2") = Sheets("Sayfa2").Range("D2")
Range("A3") = Sheets("Sayfa2").Range("E2")
Sheets("Sayfa2").Rows(2).Delete
Range("A1:E4").PrintOut
End Sub

Kodu deneyiniz.