Çözüldü Excel consolidate makroyla işlem yapması

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 22 Mar 2021

• #2

Merhabalar Sn. @selis
Dosya ismini değişkene alıp, kod içindeki aşağıdaki satırı

VBA:

İçeriği görüntülemek için giriş yapmalısınız
(1 satır)

bu şekilde değiştiriniz.

VBA:

İçeriği görüntülemek için giriş yapmalısınız
(1 satır)

Excel ismini değişkene alma için açtığınız örnek konuyu kullanabilirsiniz.

https://www.exceldestek.com/konu/excel-ismini-makroyla-degistirme.3916/post-24827

 

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 22 Mar 2021

• #3

Hocam aşağıdaki şekilde yazdım, çalışmadı..

Kod:

İçeriği görüntülemek için giriş yapmalısınız
(13 satır)

 

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 22 Mar 2021

• #4

Kod:

İçeriği görüntülemek için giriş yapmalısınız
(1 satır)

 

Oyla 0 Olumsuz oyla

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 22 Mar 2021

• #5

4 numaralı mesajda yazdığınız isim değişkenini, 3 numaralı mesajda paylaştığınız kodda kullanmalısınız.

VBA:

İçeriği görüntülemek için giriş yapmalısınız
(15 satır)

 

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 22 Mar 2021

• #6

Evet hocam öyle yaptım, onu göndermeyi unutmuşum o yüzden sonra attım..

 

Oyla 0 Olumsuz oyla

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 22 Mar 2021

• #7

Merhabalar;
5 numaralı mesajda paylaştığım kod isteğinizi karşıladı ise konuyu çözüldü olarak kayıt edelim mi?

 

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 23 Mar 2021

• #8

Kod:

İçeriği görüntülemek için giriş yapmalısınız
(4 satır)

Hocam bu şekilde yazdım hata veriyor, bulunamadı şeklinde..

 

Oyla 0 Olumsuz oyla

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 23 Mar 2021

• #9

Merhabalar;
Örnek dosyalar ekler misiniz?

 

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 23 Mar 2021

• #10

Paylaştım hocam sorun olan kısmı gösterdim, commandbutton 1 de..

 

Ekli dosyalar

• 1000003348-16.xlsm

  67.1 KB · Görüntüleme: 1

Oyla 0 Olumsuz oyla

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 23 Mar 2021

• #11

Verileri aldığınız MİP TASLAK MAKRO.xlsm isimli dosyanın da örnek halini ekleyebilir misiniz?

Ayrıca, 4 numaralı mesajfa isim = Sheets("MIP").Cells(1, 2).Value değişkenini kullandınız ama Sheets("MIP").Cells(1, 2).Value değeri 1000003348-16 , "'C:\Users\selcanusta\Desktop\[MİP TASLAK MAKRO.xlsm]M-KG'!C1:C2" bu satırda kullanacağınız sayfa isimlerini nereden alacaksınız?

 

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 23 Mar 2021

• #12

Hocam burda veri yok o yüzden eklememiştim..

 

Ekli dosyalar

• Koyun Sürü Yönetimi (Otomatik kaydedildi).xlsx

  38.6 KB · Görüntüleme: 1

Oyla 0 Olumsuz oyla

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 23 Mar 2021

• #13

VBA:

İçeriği görüntülemek için giriş yapmalısınız
(2 satır)

MİP TASLAK MAKRO isimli dosya içinde kodda belirttiğim sayfalar yok, sayfaları bulamadığı için hata verir.

 

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 23 Mar 2021

• #14

Hayır hocam bunları ekliyor zaten kodda sonra bu işlemi yapıyor

 

Oyla 0 Olumsuz oyla

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 23 Mar 2021

• #15

Çalışma düzenini bilmediğim ve sırası ile anlatmadığınız için İşlemleri parça parça tamamlıyoruz.

CommandButton1_Click kodlarında Workbooks.Open Filename:="C:\Users\" & Environ("UserName") & "\Desktop\" & [B1] & "-" & ".xls" bu satır ile B1 hücresinde de ismi yazılı olan dosyayı açtırıyorsunuz ve sonraki işlemler geliyor.
Bu satırda açıp işlem yaptığınız dosyanın da örneğini alabilir miyim?

 

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 23 Mar 2021

• #16

Hocam module 6 da deneme olarak ayrı aldım çalışmayan kodu, ancak şuan efektif olmadı excel ismini B1 den alması gerekiyor..

 

Ekli dosyalar

• 
  1616498648852.webp

  18 KB · Görüntüleme: 1

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 23 Mar 2021

• #17

Kod:

İçeriği görüntülemek için giriş yapmalısınız
(18 satır)

Hocam bu şekilde olunca çalışmıyor, yani excel adını değişkene atayınca hata veriyor.. Normal excel adını yazınca çalışıyor..

 

Oyla 0 Olumsuz oyla

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 23 Mar 2021

• #18

Bu şekilde hata vermeden çalıştı.

VBA:

İçeriği görüntülemek için giriş yapmalısınız
(4 satır)

 

Oyla 0 Olumsuz oyla

S

selis

Normal Üye

• 25 Mar 2021

• #19

Hocam çok teşekkürler çalıştı bende de..

 

Oyla 0 Olumsuz oyla

A

AhmetRasim

Forum Yöneticisi

Yönetici

• 25 Mar 2021

• #20

Rica ederim.
Saygılarımla, iyi çalışmalar.

 

Oyla 0 Olumsuz oyla