[Çözüldü] Macro ile verileri aktarabilir miyiz?

[yyhy]

Macro ile verileri aktarabilir miyiz?


(Yeni dosya eklendiğinden, buradaki silinmiştir. - Bülent)

[yyhy]

Örnek dosya ekte sunmaya çalışıyorum. Bende mi hata var bilmiyorum. Upload butonu veya tuşunu göremedim. Dosyayı gözattan seçtikten sonra gönder butonuna tıklayınca dosya da mesaj ile beraberinde gidiyormu?

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

[Bülent Öztürk]

Tekrar indirdim dosyayı. Sorunsuz çalıştı.

Aşağıdaki kodları dener misiniz?

Kod: [Seç]

Sub ExcelceAktar()
hangiay = ThisWorkbook.Worksheets("Tablo").Range("CK2")
aylar = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
ay = aylar(hangiay - 1)
ThisWorkbook.Worksheets("Tablo").Range("CR13:EP77").Copy
Sheets(ay).Range("P12").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
MsgBox "Kayıtlar aktarıldı.", vbInformation, Application.UserName
End Sub



[yyhy]

Kodları bir deneyeyim, ilginize çok teşekkürler. İyi çalışmalar.

[yyhy]

Kodlar istediğim gibi güzel bir şekilde çalıştı, teşekkürler.
kayıtlar aktarıldı uyarısında çubuk üzerinde bilgisayarınadı yazıyor oraya başka birşeyler yazmak için ne yapabiliriz.
Örnek dosyada ceraimbryilmaz yazıyor.

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

[Bülent Öztürk]

MsgBox "Kayıtlar aktarıldı.", vbInformation, Application.UserName

komut satırındaki Application.UserName yerine dilediğinizi tırmak içinde yazabilirsiniz.

[yyhy]

Teşekkürler iyi çalışmalar.

[Bülent Öztürk]

Rica ederim.
Çalışmalarınızda başarılar.

[yyhy]

İyi günler. Yazdırma butonu eklesek aynı şekilde 1,2,3,4,5,6,7,8,9,10,11,12. aylara göre macro ile yazdırabilirmiyiz? İyi çalışmalar.

[Bülent Öztürk]

Merhaba Yılmaz Bey,
Ay'lara ait sayfalar mı yazdırılacak?
Yine aynı hücredeki rakama göre mi?

[yyhy]

Ayların olduğu sayfaları yazdırmak için bir tane tablo sayfasına bir buton atayıp tablo safyafında eğer 1 yazıyorsa butona tıklayınca ocak ayının sayfasını yazıcıya göndermesini istiyorum.

[Bülent Öztürk]

Bir düğme ekleyip aşağıdaki kodları atayın;

Kod: [Seç]

Sub ExcelceYazdir()
hangiay = ThisWorkbook.Worksheets("Tablo").Range("CK2")
aylar = Array("Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
ay = aylar(hangiay - 1)
ThisWorkbook.Worksheets(ay).PrintOut
End Sub
Not: Sayfa ve yazıcı ayarlarını önceden yapmayı unutmayın.

[yyhy]

Teşekkürler yazdırmayı da tek bir butuno bağlamış olduk. İyi çalışmalar.

[Bülent Öztürk]

Rica ederim.
Çalışmalarınızda başarılar.