Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Çözülen Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: yyhy - 29 Aralık 2010, 16:15:41

Başlık: [Çözüldü] Macro ile verileri aktarabilir miyiz?
Gönderen: yyhy - 29 Aralık 2010, 16:15:41

Macro ile verileri aktarabilir miyiz?


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

Başlık: Ynt: Macro ile verileri aktarabilir miyiz?
Gönderen: yyhy - 30 Aralık 2010, 08:27:02

Ö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.]

Başlık: Ynt: Macro ile verileri aktarabilir miyiz?
Gönderen: Bülent Öztürk - 30 Aralık 2010, 08:37:52

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



Başlık: Ynt: Macro ile verileri aktarabilir miyiz?
Gönderen: yyhy - 30 Aralık 2010, 08:57:35

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

Başlık: Ynt: Macro ile verileri aktarabilir miyiz?
Gönderen: yyhy - 30 Aralık 2010, 09:44:03

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.]

Başlık: Ynt: Macro ile verileri aktarabilir miyiz?
Gönderen: Bülent Öztürk - 30 Aralık 2010, 09:52:26

Alıntı

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

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

Başlık: Ynt: Macro ile verileri aktarabilir miyiz?
Gönderen: yyhy - 30 Aralık 2010, 15:04:21

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

Başlık: Ynt: [Çözüldü] Macro ile verileri aktarabilir miyiz?
Gönderen: Bülent Öztürk - 30 Aralık 2010, 16:03:39

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

Başlık: Ynt: [Çözüldü] Macro ile verileri aktarabilir miyiz?
Gönderen: yyhy - 31 Aralık 2010, 08:27:04

İ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.

Başlık: Ynt: [Çözüldü] Macro ile verileri aktarabilir miyiz?
Gönderen: Bülent Öztürk - 31 Aralık 2010, 08:46:02

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

Başlık: Ynt: [Çözüldü] Macro ile verileri aktarabilir miyiz?
Gönderen: yyhy - 31 Aralık 2010, 09:34:16

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.

Başlık: Ynt: [Çözüldü] Macro ile verileri aktarabilir miyiz?
Gönderen: Bülent Öztürk - 31 Aralık 2010, 09:45:05

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.

Başlık: Ynt: [Çözüldü] Macro ile verileri aktarabilir miyiz?
Gönderen: yyhy - 31 Aralık 2010, 10:22:40

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

Başlık: Ynt: [Çözüldü] Macro ile verileri aktarabilir miyiz?
Gönderen: Bülent Öztürk - 31 Aralık 2010, 10:24:12

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