Çift tıklanan satırı, diğer sayfaya aktarma hk.

[EKREM1661]

Saygıdeğer arkadaşlar.. Eklı dosyada, Rapor sayfası "V6" str/stn itibariyle, çift tıklanan satırı RaPoR sayfasına aktarıyor..
Amacım;
1-Aktarımı 2.ncı satırdan başlatıyor. . 6.ncı satır itibariyle başlatsın..
2-Verileri formülleriyle aktarıyor.. Metinsel aktarsın..
3-Dolgu rengi de aktarıyor.. "V" stn hariç, aktarmasın..
Buna ait DoubleClick kodunu bu amaçlar doğrultusunda düzenleyebilir miyiz ?

 

[Muzaffer Ali]

Merhaba.

 

[EKREM1661]

Saygıdeğer hocam, öncelik itibariyle elinize sağlık.. Dosya yine sizin önünüze düşmüş.. Yalnız "Q" sütunu, bölme işlemi olduğu için, sayısal formatını koruyamadı. Yani 47,06 değil de 47,06736 olmuş.. Neyse o çok önemli değil..
Bunun dışında tek pürüz var..
Sayfa1 deki aktarım kod'u; içerisindeki "Bulunamadı" ifadesini sayfanın olur olmaz hücrelere atıyor. Şu anki 2 nolu mesajlı dosyada aynısını yapmış.. (Ocak sayfası "F" stn.da) Bunun da nedinini anlayamadım.
Fırsatınız varsa bakarsınız, ziyadesiyle teşekkürler..

 

[Muzaffer Ali]

3 isteğinizi de yaptım.
Kodların başına "On Error Resume Next" eklemeyin. Eğer hatalı bir kod varsa hata uyarısı ermesini engellemeyin, uyarı versin ki çözüm bulunsun.

 

[EKREM1661]

Evet doğrudur.. Yeterince yük olduk üstad, her şey için teşekkürler ve hayırlı ömürler..

 

[Muzaffer Ali]

Eyvallah. Bilmukabele.

 

[EKREM1661]

Hocam selamlar olsun, istemeyerek rahatsız ediyorum.. DoubleClick aktarma koduna sayfa ismi nasıl ilave edebiliriz ? Yani rapor sayfasına aktarılan satırın, hangi aya ait olduğu anlaşılsın diye.. Satır sonunda ("V" stn olabilir) ocak şubat...diye not düşülecek şekilde..

 

[Muzaffer Ali]

Aleykümselam.

Bu satırın altına

Sheets("RapoR").Cells(son + 1, "B") = son

Bu satırı ekleyin.

Sheets("RapoR").Cells(son + 1, "V") = Me.Name