Veri sayfasından 2 farklı rapor

[cebelitarık]

Herkese selamlar
özellikle sayın Leventm, orion2 ve Necdet Yeşertener arkadaşlara çok teşekkür ediyorum.
tavsiyeleri üzerine örnek dosyamı ekte sundum.
ve sayın omerceri nin önerdiği şekilde yeniledim
sorunum için ilgilenecek arkadaşlara çok teşekkür ederim.

 

[omerceri]

Örnek ekte

 

[cebelitarık]

Sayın Omerceri ilgine çok teşekkür ederim.
Bu konuda bütün arkadaşlardan yardım bekliyorum.
inşaalah bizde biraz vba da ilerleme kaydedebilirsek bizde bildiklerimizi böylece başkalarına aktarma mutluluğunu tadabiliriz.
yukardaki kodlar güzel çalışıyor fakat bazen hata veriyor hata : aşağıdaki satırda:
Sheets("LİSTE MAL MÜDÜRLÜĞÜ").Range("C" & a + 23).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

run-time error '1004'
"range sınıfının pastespecial yöntemi başarısız"
mesajı veriyor.

Eğer zahmet olmazsa 1. mesajdaki dosyam önerdiğiniz şekilde yenilenmiştir. fakat yine hata vermektedir. 1. mesajımdaki dosyama uygulayabilirseniz müteşekkir kalırım.

ilgilenecek herkese şimdiden teşekkür ederim.

 

[omerceri]

Sn cebelitarık
Hatayı benim gönderdiğim dosyadamı veriyor.
Sizin dosyanızda bağlantılar var, bu yüzden hata veriyordu. Yeni dosya oluşturmuştum, siz kendinize uyarlarsınız diye.
Sizin dosyanız üzerinde biraz ha uğraşıyım çözüm bulabilirimsem.
Birde dosyanızdaki bağlantılar konusunda bilgi verirseniz daha kolay çözüm bulabiliriz.

 

[omerceri]

Bağlantıları bulup sildim. Dosyanızın yeni hali ekte.