Kod İle Aynı Sayfada Veri Kaydetme

[ahmed_ummu]

Ömer Faruk bey teşekkürler.

Kırmızı renkli satırda Syntax error olarak hata veriyor.

Sheets("puantaj").Range("b8:ar948") Copy
Sheets("ekders giriş").Range("n54:bd994").PasteSpecial xlPasteValues

Şimde de

Sheets("ekdrs giriş").Range("n54:bd800").Copy 'Bu satıda
Sheets("ekders giriş").Range("b8:ar800").PasteSpecial xlPasteValues

Run-time error 9
Subscript out of range hatası veriyor

 

[halit3]

Sheets("puantaj").Range("b8:ar948").Copy
Sheets("ekders giriş").Range("n54").PasteSpecial xlPasteValues

 

[ÖmerFaruk]

Copy den önce nokta olacaktı görmüşsünüz OK.

Son sorduğunuzda
"ekdrs giriş" diye bir sayfa yok.
"ekders giriş" olmalı

 

[ahmed_ummu]

Sheets("puantaj").Range("b8:ar948").Copy
Sheets("ekders giriş").Range("n54").PasteSpecial xlPasteValues

Düzeldi Halit bey çok Sağolun.

 

[ahmed_ummu]

Copy den önce nokta olacaktı görmüşsünüz OK.

Son sorduğunuzda
"ekdrs giriş" diye bir sayfa yok.
"ekders giriş" olmalı

Evet sayfa ismini yanlış yazmışım. Ekders olacaktı

 

[ahmed_ummu]

Sheets("puantaj").Range("b8:ar948").Copy
Sheets("ekders giriş").Range("n54").PasteSpecial xlPasteValues

İyi akşamlar Halit bey.

En son gönderdiğiniz VERİ_TABANI5555 dodyanın tablo sayfasında, ders saatlerinin yazıldığı sayfaya bir ek sütun açıp kodları ona göre düzeltebilir misiniz. Ben denedim ama içine çıkamadım. Resmi gönderiyorum. Sarı alanlı yeri yeni colon olarak açılacak ve oraya yatay olarak ders saatleri toplanacak. Birde yeni açılan colonun en son dolu satırın bir alt satırına dikey olarak toplamlar alınacak. Bu haliyle çok güzel olacak ama fazla zahmet olmayacaksa bir de sayfanın üstünde 4 satırlık bir satır açılır kodlar ona göre revize edilirse çok sevinirim. o dört satıra okul ismi, bordro dönemi vs. yazacağım.Size zahmet.

 

[ahmed_ummu]

Yeni farkettim resmi göndermemişim.