Satira Gİrİlen Kod İle Satiri Kopyalatmak

[Araştırıcı]

Değerli Arkadaşlar selam. Herkese kolay gelsin.

Ekteki tablodaki E sütununda bulunan, "Aktarılan Grup" satırlarına SP1,SP2,SP3 değerli girilecek. SP1 yazınca bulunduğu satırı aşağıda bulunan ilgili Sheetin ilk satırına kopyalama işlemi yaptıracak. Aynı şekilde SP2 yazınca SP2 yazılan satır, SP2 sheetine kopyalama işlemi yaptıracaktır. Ancak ardı ardına aynı gruptan giriş yapıldığında. İlgili sheette her yeni kopyalanan satır diğerinin altından sıralanacaktır. Yani takip edecektir. Böyle bir çalışmaya örnek bir uygulama yapabilir misiniz? Yardımlarınızı bekliyorum.

Teşekkür ediyorum şimdiden.

 

[conari]

DOSYANINI İNCELEYİNİZ.
e Sütununa girilen sp1 sp2 sp3 e göre sayfalara aktarılır.

 

[N.Ziya Hiçdurmaz]

yanıt

Arkadaş cevaplamış buda boşa gitmesin.

Sub aktar()
Set s1 = Sheets("aktarılan işler")
For sayfa = 2 To Sheets.Count
For bak = 1 To [e65536].End(3).Row
If Sheets(sayfa).Name = s1.Range("e" & bak).Value Then
s1.Range("e" & bak).EntireRow.Copy
s = WorksheetFunction.CountA(Sheets(sayfa).Range("e1:e65536")) + 1
Sheets(sayfa).Range("a" & s).PasteSpecial Paste:=xlValues
End If
Next
Next
Application.CutCopyMode = False
End Sub

 

[Araştırıcı]

Yardımınız çok çok teşekkürler. Buradan sonrasını ben geliştirmeye çalışacağım. Takılırsam size sormak isterim tekrar.

Üstatlar İyi Hafta sonları

 

[Araştırıcı]

Veri Aktarmada Sorun, çok acil

Merhaba,

Ekteki dosyamda "V" ve "O" sütunlarına bağlı hücrelere giriş yaptığımda verilerimi satırlar halinde aynı adlı sayfalara kopyalamak istiyorum. Ama aynı anda hem "O" hemde "V"" kriterli için makro çalışmadı, işlemi yaptıramadım. Yardımcı olabilir misniz?