toplu aktarım

[Barons]

merhaba
ekteki dosyada sayfa2 deki satırları (satır sayıları değişebiliyor) database sayfasına sıralı aktarmak istiyorum.Yardımcı olacak forum üyelerine ve Üstadlara şimdiden teşekkürler,
saygılar

 

[harziyan]

Hayırlı Sabahlar,
Aşağıdki kodları bu amaçla kullanabilirsin. Aslında bu tür durumlarda kendi yağınla da kavrulabilirsin (ben öyle yapıyorum). Araçlardan --- Makro kaydet var, ben genelde önce hangi işleri yapmak istiyorsam o işleri önce makro kaydet ile yapar(bu makrolar VBA bölümünde modüle1,23... diye kayıt altına alınıyor), sonra o makro üzerinde VBA bölümünde ufak tefek değişiklikler yaparak işimi kolaylaştırmaya çalışırım.

Aşağıdaki kodları denetim araç çubuğu ndan bir komut düğmesi oluşturup bu düğmeye çift tıklayarak açılan yerdeki Private Sub CommandButton1_Click()-----End Sub satırları arasına yapıştırabilirsin

Range("B2:O25").Select 'Buradaki O25'i istersen O1000 yaparak daha fazla kaydı aktarmakta kullanabilirsin.
Selection.Copy
Sheets("database").Select
Range("B2").Select
ActiveSheet.Paste
Selection.Sort Key1:=Range("E2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

 

[Barons]

teşekkürler..ancak burada 2 hata oluyor.
1.mevcut veri ne kadarsa o kadarını almıyor.her seferinde b225 aralığını alıyor.
2.database sayfasına hep aynı veriyi yapıştırıyor.oysa altalta sıralı olması gerekir.

 

[Barons]

Aktarma

Merhaba
Ekli dosyada sayfa2 'den database sayfasına aktarmak istiyorum.Kod çalışıyor ama kayma oluyor.Yardımcı olacak arkadaşlara çok teşekkürler,,,

 

[Barons]

bunu başaracak forumda çok kişi var eminim ama musait değiller sanırım.

 

[dEdE]

Merhaba,
Böyle birşey mi istiyordunuz?

 

[Barons]

Çok teşekkürler evet istediğim aynen buydu...elinize sağlık.

 

[dEdE]

Çok teşekkürler evet istediğim aynen buydu...elinize sağlık.

Rica ederim.
Güle güle kullanın.

 

[SAVAS777]

Vseçtopla

Sayın dede

sorunum yapmıs oldugum 10 sayfalık sipariş formunda kodlar bölümündeki form1 (yeşil alanda) metinin karsısına sayfa1 de hangı ürünkodu bölümünde olursa olsun ordan bulup adetlerini toplamasını istiyorum excel ustalarından bana bu konuda yardımcı olmalarınızı rica ederim
ör:form 1 -ürün koduna 21300400 yazarsam karsısına pkp-300/400 yazıyor
karsısındakı rakamı kodlar bölümündeki pkp-300/400 yazan yerin karsısına toplanması oloacak

vseçtopla gibi heralde

 

[Barons]

Sayın dEdE
ufak bir sorun daha var ama yardımcı olursanız memnun olurum...sayfa2 den database atarken ,database sayfasında diyelim A sütunundaki no'lara göre atması mümkünmüdür?
örnek:database sayfasında A kolonunda en son 23 de kalmışsa sayfa 2 den verileri atınca 24,25,26 diye no'lar devam etmelidir.Umarım anlatabilmişimdir.

 

[dEdE]

Merhaba,
Sayın Barons
Koddaki For ile başlayan satırdan önce aşağıdaki satırı eklemeniz yeterlidir.

s2.Range("A2:O65536").ClearContents

 

[Barons]

teşekkürler ancak yine olmuyor.Database sayfasındaki mevcut en son numara örnek 3 ise sayfa2 den gelen veriler 4,5,6 diye olmalıdır ama olmuyor.