E1 ve E2 satırlarında....

[newmoonstar]

E1 ve E2 satırlarında 2 adet numara var... Aşağıda bulunan koda eklenebilir bir şekilde nasıl bir kod yazabilirizki E1 ve E2 satırındaki verileri boş bir excel sayfasına sırayla nasıl yazdırabiliriz?


Sub tebarka()
'
' tebarka Makro
' Makro Adalet tarafından 28.09.2006 tarihinde kaydedildi.
'


Sheets("ARKA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("FORM").Select
Selection.ClearContents
Range("E5").Select
Selection.ClearContents

On Error Resume Next
[e1] = [e1] + 1
[e2] = [e2] + 1
ActiveWorkbook.Save
End Sub

 

[Levent Menteşoğlu]

Sorunuzu bir örnek dosya ile ifade edermisiniz.

 

[newmoonstar]

Örnek Dosya

Örnek dosya buradadır... Ekli dosyayı görüntüle 7600

 

[newmoonstar]

Örnek Dosya

Açıklama örneği Ekli dosyayı görüntüle 7601 bu sayfada tam olarak anlatılmaktadır. Ama önceki konudaki çalışma kullandığımız çalışmadır...

 

[newmoonstar]

Çok Acil..

Sevgili arkadaşlar bekliyorum....

 

[Levent Menteşoğlu]

Verilerin Sayfa1 isimli sayfaya yazılacağını kabul edersek kodunuza aşağıdaki satırları ilave edin.

say1=worksheetfunction.counta([sayfa1!b:b])+1
sheets("sayfa1").cells(say1,"b")=[e1]
[LEFT]say2=worksheetfunction.counta([sayfa1!d:d])+1
sheets("sayfa1").cells(say1,"d")=[e2][/LEFT]

 

[newmoonstar]

Uyumsuzluk

Sayın Admin,

say1=worksheetfunction.counta([sayfa1!b:b])+1
sheets("sayfa1").cells(say1,"b")=[e1]
say2=worksheetfunction.counta([sayfa1!d:d])+1 sheets("sayfa1").cells(say1,"d")=[e2]

Bu kodda sıkıntı var sanırım, hata veriyor... Tekrar inceleyebilir misiniz?

 

[Levent Menteşoğlu]

Bu kodda sıkıntı var sanırım, hata veriyor... Tekrar inceleyebilir misiniz?

Verdiği hata nedir?, sayfa adlarının doğruluğunu kontrol edin.

 

[newmoonstar]

Hata

Hata aşağıdaki gibidir...

Resim

 

[Levent Menteşoğlu]

Hata veren satırı hatalı yazılmış, siz iki satırı birleştirmişsiniziz.

say2=worksheetfunction.counta([sayfa1!d:d])+1 sheets("sayfa1").cells(say1,"d")=[e2]

Yukarıdaki satır aşağıdaki gibi olmalı.

say2=worksheetfunction.counta([sayfa1!d:d])+1 
sheets("sayfa1").cells(say1,"d")=[e2]

 

[newmoonstar]

Hocam bunu gönderdiğim örneklere uygulayıp gönderebilir misin? Hata veriyor hala? Sanırım ben yapamadım...

 

[newmoonstar]

Yardım.!

Arkadaşlar bu gönderdiğim örneklere uygulayıp gönderebilir misiniz? Hata veriyor hala? Sanırım ben yapamadım... Yardımlarınızı bekliyorum....