birçok sayfadan belli kriterlere göre veri aktarmak

[feraset045]

:yardim: arkadaşlar elimde 70 sayfa kadar excel sayfaları olan gider bütçesi var benim sorum şu şimdi ben bu sayfalara veri gireceğim ve veri doğrulama ile (açılır liste) belirlediğim kriterlere göre sectigim kriter ile aynı isimde olan sayfalara verileri kaydetmek istiyorum yani ben 22d Mal seçeneğini seçtiğimde yazdığım veriler 22d mal sayfasına aynı şekilde gitsin .(burada önemli olan her sayfadan aynı şekilde veri aktarımı olacak ve eğer daha önceden veri aktarımı yapılmış ise digerleri onun altından devam edecek yani ben 250-01 den veri girip 22dmal seçtim bunları 22dmal sayfasına aktaracak ama ben 255-01 den yine 22d mal seçeneğini seçtiğimde yine 22dmal sayfasına kaydedecek ama bir önceki verinin alt sırasına kaydedecek) zaten ekli sayfaya bakınca anlıyacaksınız

 

[N.Ziya Hiçdurmaz]

yanıt

Kodu bir module kopyalayıp kullanabilirsiniz.

Sub aktar()
Set s1 = ActiveSheet
For sayfa = 1 To Sheets.Count
For bak = 1 To s1.[h65536].End(3).Row
If Sheets(sayfa).Name = s1.Range("h" & bak).Value Then
s1.Range("b" & bak & ":h" & bak).Copy
s = WorksheetFunction.CountA(Sheets(sayfa).Range("b1:b65536"))
Sheets(sayfa).Range("b" & s + 10).PasteSpecial Paste:=xlValues
End If
Next
Next
Application.CutCopyMode = False
End Sub

 

[feraset045]

olmadı v.basıc for applications usta denedim olmuyor

 

[feraset045]

arkadaşlar yardım eden olursa benim için çokiyi olur bu benim işyerim için lazım ve işlerimi baya azaltacak

 

[feraset045]

arkadaşlar yok herhalde yardım edebilecek birisi gerçi yeni başlayanlar için biraz zor olsa gerek ama bu işi bilen özellikle vba kodu bilen arkadaşlar için herhalde zor değildir yardımlarınızı usanmadan bıkmadan bekliyorum arkadaşlar

 

[tahsinanarat]

Bu kadarını becerebildim

Dosyanızda biraz değişiklik yaptım, kodlara uydurabilmek adına, kodlardan anlayan arkadaşlar belki sizin orjinal dosya üzerine uyarlayabilirler, dosyanız ekte inceleyiniz.

 

[feraset045]

tahsinanarat bey sizin örneğiniz güzel olmuş ama ben onu nasıl kendi örneğime uygulayacağım ki keşke aynı örneğin içinde 70 boş sayfa olsaydıda ben aktarsaydım ama o zamanda kodlar herhalde o sayfaları kapsamazdı

 

[feraset045]

dünden beri bekliyorum birisi şu sorunu halleder diye ama nafile hicbir arkadaş yokmu yahubu çocuğun sessiz yardım çığlıklarını işitecek