Diğer sayfaya veri aktarma.

[serdarca]

Öncelikle hayırlı günler dilerim. Benim sorum sayfa1 de dönemi kısmında yazan açılır listede ayı seçtiğimiz zaman aktar butonu ile sayfa2 deki ismin karşısındaki hangi dönem ise oraya yazmasını istiyorum. Örneği ekte gönderiyorum. Allah kolaylık versin.

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz.

 

[serkankeser]

Merhaba;
Sayın Zafer B3:B200 aralığını kopyalamak istersek kodlarda nasıl bir değişiklik yapmak gerekiyor acaba. Biraz uğraştım ama yapamadım. Acemilik işte!!!
Yardımlarınız için teşekkürler.

 

[zafer]

Merhaba

B3: b200 aralığı için
Kodlardaki
For i = 1 To son
satırı For i = 1 To 200 olarak değiştiriniz.

Fakat benim size gönderdiğimde B sütununun en son dolu satırını alıyor.
ona göre döngü kuruyor.

son = s1.Cells(65536, 1).End(xlUp).Row
For i = 1 To son

eğr B sutununuz 200 satırı geçerse kodları tekrar düzenlemeye gerek kalmaz.Her zaman için bu kodlar daha kullanışlıdır.

Aşağıdaki kod i değeri 1 se 2. sütunun 4. satırdan başla anlamındadır.
yani i değeri + 3
Siz hangi satırdan itibaren kopyalamak istiyorsanız ona göre sayıyla oynayınız.
s1.Cells(i + 3, 2)

 

[serkankeser]

Günaydın;
Cevabınızı şuan gördüm Zafer Bey. Yardımlarınız ve açıklamalarınız için çok teşekkürler.

 

[serkankeser]

Zafer Bey vaktinizi alacağım yine ama;
Ekte ki dosyayı inceler misiniz.

 

[zafer]

Merhaba

Ekli dosyayı inceleyiniz

 

[serkankeser]

Teşekkürler, iyi çalışmalar.

 

[yedekkullanıcı]

acil yardım zaman azalıyor

visual basic öğrenmeye çalışıyorum çokta iyi bir öğretmenim var bir ödev verdi ama işin içinden çıkamadım bana yardımcı olursnız sevinirim
soru ekteki dosyada

 

[mehmett]

Sn yedekkullanıcı

Sorunuzun bu başlıktaki soruyla ilgisi olmadığından yeni bir başlık açıp sorunuz.