Çözüldü Dosyadan Formüllü Olarak Database Dosyası Oluşturma

[incsoft]

Arkadaşlar tablolu şekilde kullanmış olduğum ve gerek çok fazla sayıdan dolayı,gerekse de araya yeni bir hücre eklentisi olduğunda diğer bağlantılı dosyalarında sürekli bozulduğundan dolayı çalışma dosyamı tablolu halden sadece formüllü şekilde database dosyasında saklamasını istemekteyim. Ekte sizlere SORU ÖRNEK ve DATABASE şeklinde 2 dosya da istediklerimi anlatmaya çalıştım. SORU ÖRNEK dosyasındaki butona tıkladığımda DATABASE dosyasında olduğu gibi formüllü şekilde database'ini oluşturmasını istemekteyim. SORU ÖRNEK dosyasında satır sayısı çok daha fazladır ve her satır size sorumda da belirttiğim gibi tablo şeklinde kullandığım excel dosyalarımda tek tek tutulmaktadır. Bunu macro ile nasıl yapabilirim?

 

[Alicimri]

Her İki dosyada açık olsun, makroyu çalıştırın.

 

[incsoft]

Her İki dosyada açık olsun, makroyu çalıştırın.

Öncelikle teşekkürler hocam..

Macroda bulunan

Workbooks("SORU ÖRNEK.xlsm").Sheets("3").Range("P1").Copy

formüllerinde SORU ÖRNEK.xlsm mesela örnek dosya bunu o anda aktif olan dosya ismini otomatik olarak alacak şekilde , Sheets("3") örnek olduğu için onu da aktif olan sayfa ismine göre otomatik olarak alacak şekilde nasıl revize edebilirir? Öbür türlü dosya ve sayfa ismine göre hepsini tek tek değiştirmem gerekecektir o da çok mantıksız.

 

[Alicimri]

Eski kodun yerine aşağıdaki kodu yapıştırın
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[incsoft]

Birde hocam tek tek sayfada çalıştırmak yerine ay sonunda topluca aktarmak için bütün sayfaları aktarma yapabilirmiyiz?

 

[incsoft]

Eski kodun yerine aşağıdaki kodu yapıştırın
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Workbooks("SORU ÖRNEK.xlsm") sayfa ismi olmamış sanırım. Birde hocam tek tek sayfada çalıştırmak yerine ay sonunda topluca aktarmak için bütün sayfaları aktarma yapabilirmiyiz?

 

[Alicimri]

"Workbooks("SORU ÖRNEK.xlsm") sayfa ismi olmamış sanırım".
Ne kast ediyorsunuz.

 

[incsoft]

"Workbooks("SORU ÖRNEK.xlsm") sayfa ismi olmamış sanırım".
Ne kast ediyorsunuz.

mesela bunu 2.xlsm de 3.xlsm vb... yani her türlü dosya isminde kullanacağım hocam. O anda hangi dosya ise o dosya ismini kendisi alsın demek istedim.

 

[Alicimri]

Deneyin
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

 

[incsoft]

Deneyin
HTML:

İçeriği görebilmek için Giriş yap ya da Üye ol.

Bunları çözdük hocam tamamda mesela 3-4-5-6.....31 e kadar sayfa oluşturdum database'e hep üstüne yazdı. Burda database nerede bittiyse ordan kaldığı yerden devam etmesi gerekliydi. Mesela 4'ü aktarınca 3'ün sonuna aktarması lazım

 

[Alicimri]

İlk sorudan çok ayrı bir yere geldin. Benden bu kadar.