Tablodan Diğer Sayfa Aktarma veri aktar

[baba]

Bu Tablo Sayfa1 de Sabit Kalacak ComboBox1 Butonu ile Sayfa2 de Her Aktarma Yap butonu ile Sayfa2'ye Altalta ve Sıralı bir şekilde Olması için Gerekenlerin Yapılma bilmesi için yardımlanıza ihtiyaç duymaktayım.Şimdi Teşekkürler Saygılarımla

Örneği Ektedir.


http://dosyam.net/?id=ccpk6m

 

[N.Ziya Hiçdurmaz]

yanıt

Sub aktar()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
For i = 4 To s1.[d65000].End(3).Row
s1.Range("d" & i & ":e" & i).Copy
say = WorksheetFunction.CountA(s2.[d1:d65000]) + 4
s2.Range("d" & say).PasteSpecial
Next
For sira = 1 To WorksheetFunction.CountA(s2.[d1:d65000])
s2.Range("c" & sira + 3) = sira
Next '******
For i = 4 To s1.[I65000].End(3).Row
s1.Range("I" & i & ":J" & i).Copy
say = WorksheetFunction.CountA(s2.[I1:I65000]) + 4
s2.Range("I" & say).PasteSpecial
Next
For sira = 1 To WorksheetFunction.CountA(s2.[I1:I65000])
s2.Range("H" & sira + 3) = sira
Next
Application.CutCopyMode = False
End Sub

 

[baba]

Teşekkürler ellerinize sağlık
Lakin ben Kendi Prğ'de çalıştıramadım nerede Hatta yapıyorum bilemedim.
Şimdi Size Kendim yapmak istediğim.Prğ göndereyim .Bir bakarasanız sevinirim.

http://dosyam.net/?id=m0mu92

 

[Seyit Tiken]

Dosyanızı açamadık. Açıklamanızdan yola çıkarak, bir örnek hazırladım. Bir inceleyiniz. Combo ile sayfa1'deki verileri Sayfa2'ye aktarıyor.

 

[baba]

Dosyanızı açamadık. Açıklamanızdan yola çıkarak, bir örnek hazırladım. Bir inceleyiniz. Combo ile sayfa1'deki verileri Sayfa2'ye aktarıyor.

Sayın Seyit TİKEN Teşekkürler Yapmış olduğunuz örnek bana uymayacak ben size benim size gönndereceğim.Konu Hakkında gerekli bilgileri size exe nin içinde olacak.

 

[baba]

Haber bekliyorum.

 

[Seyit Tiken]

Aşağıdaki kodu dosyanıza uyarlayınız.

Sub Makro1()
[F26:G43].Copy Destination:=[DATA!B6500].End(3).Offset(1)
[K26:N43].Copy Destination:=[DATA!E6500].End(3).Offset(1)
MsgBox "Veriler Aktarıldı", vbInformation
End Sub