[Çözüldü] Sütun aktarma

[yesilyurtlu]

üstadım;
Ekli dosyanın sayfa1 sekmesinin a1 hücresinde bugünün tarihi var. içinde bulunulan ay bitince Sayfa1!J2:J43 sütunu Sayfa2!N2:N43 sütununa aktarılsın.
İçinde bulunulan ay ne ise o ayın sonunda aktarılsın.
bu konuda yardımcı olabilir misiniz?

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[Bülent Öztürk]

İlhan Bey, merhaba.

Sorunuz bana pek anlaşılır gelmedi.

"Ay bitince" derken, nasıl bir işleyiş olacak? Daha detaylı anlatabilir misiniz?

[yesilyurtlu]

Bülent Abi;
Sayfa1 deki kırmızı rakamlar
" Sayfa1 deki A1 hücresinde ki bugünün tarihi 10/05/2010 Mayıs Ayının 10'u Mayıs Ayı 31 gün çektiği için 31/05/2010 günün akşamı 01/06/2010 olduğu an " Sayfa2 deki N sütununa aktarılacak.
Aktarma sürekli N sütununa olacağı için N sütununda sürekli üstüste toplayacak.

Yardımcı olabilirsen sevinirim abi.

[Bülent Öztürk]

01/06/2010 olduğu an

derseniz, aktarma işlemi dosya açılışında otomatik olması veya tarih değiştirğinde otomatik olması gerekir.
Bu da aynı tarihte dosyanın her açılmasında aktarılacağı anlamına gelir.
Bu işlem için bir buton koysak olmaz mı?

[yesilyurtlu]

Bülent Abi
Nasıl uygun olursa nasıl uygun görürseniz o şekilde kabulumdur Yalnız ikinci sayfada üstüste toplasın

[Bülent Öztürk]

Bir düğmeye aşağıdaki kodları atayıp, deneyin;

Kod: [Seç]

Sub Excelce_Aktar_Topla()
    Range("J2:J43").Copy
    Sheets("Sayfa2").Range("N2:N43").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    MsgBox "Aktarma işlemi tamam.", vbInformation, "Excelce.Net"
End Sub


[yesilyurtlu]

Bülent Abi Hakkını Helal et.
Emeğine Sağlık.
TEŞEKKÜR EDERİM
"ÇÖZÜLDÜ"

[Bülent Öztürk]

Helal olsun. Rica ederim.