Veri getirme

[ASLAN7410]

Merhaba arkadaşlar hayırlı geceler.

Aşağıdaki kod ile ARŞİV sayfasındaki B ile U sütunundaki verileri VERİ sayfasına getiriyorum.

Benim istediğim ARŞİV sayfasındaki V ile AH sütunu arasındaki verileri SİCİLLER sayfasının A2 hücresinden aşağıya doğru gelmesini istiyorum.

Burada V ile AH sütunu arasını bir örnek verdim, veriler çok sütunu kaplamaktadır, GZ sütununa kadar gitmektedir. Aşağıdaki kodlar gibi hücrelere eşitlemeye çalıştım ancak veriler çok olduğu için hücrelere tek tek eşitlemek bayağı uğraştırdı, V ile AH sütunu arasını tek seferde SİCİLLER sayfası A2 hücresinden aşağıya doğru getirmek istiyorum.

Yardım edecek arkadaşlara şimdiden teşekkür ediyorum.

Sub getir()
    satir = Range("veri!r1").Value + 1
    Range("veri!c6").Value = Range("Arşiv!c" & satir).Value 
    Range("veri!c7").Value = Range("Arşiv!b" & satir).Value 
    Range("veri!c8").Value = Range("Arşiv!d" & satir).Value 
    Range("veri!c9").Value = Range("Arşiv!e" & satir).Value 
    Range("veri!c10").Value = Range("Arşiv!f" & satir).Value 
    Range("veri!c11").Value = Range("Arşiv!g" & satir).Value 
    Range("veri!c12").Value = Range("Arşiv!h" & satir).Value 
    Range("veri!c13").Value = Range("Arşiv!ı" & satir).Value 
    Range("veri!c16").Value = Range("Arşiv!l" & satir).Value 
    Range("veri!c17").Value = Range("Arşiv!m" & satir).Value 
    Range("veri!c18").Value = Range("Arşiv!n" & satir).Value  
    Range("veri!c19").Value = Range("Arşiv!o" & satir).Value 
    Range("veri!c22").Value = Range("Arşiv!p" & satir).Value 
    Range("veri!c23").Value = Range("Arşiv!q" & satir).Value
    Range("veri!c24").Value = Range("Arşiv!r" & satir).Value
    Range("veri!d22").Value = Range("Arşiv!s" & satir).Value
    Range("veri!d23").Value = Range("Arşiv!t" & satir).Value
    Range("veri!d24").Value = Range("Arşiv!u" & satir).Value
    Range("veri!C6").Select
    MsgBox "İşlem tamam.", vbInformation, "UYARI"
End Sub

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun ilginiz için çok teşekkür ediyorum, tam istediğim gibi olmuş ellerinize sağlık, hayırlı geceler.

 

[ASLAN7410]

Sayın muygun tekrar rahatsız ediyorum, yanlış anlaşıldı galiba.

ARŞİV sayfasındaki verilerden B yazanları getir dediğimde VERİ sayfasına getiriyor, sizin eklemiş olduğunuz kodlarda V ile AH sütunundaki bütün sicilleri SİCİLLER sayfasına getiriyor.

Benim istediğim ARŞİV sayfasındaki verilerden B yazanları getir dediğimde ARŞİV sayfasındaki V ile AH arasındaki B yazılı satırdaki verileri SİCİLLER sayfasına getirmesini, A yazan verileri getir dediğimde A yazılı satırdaki verileri SİCİLLER sayfasına getirmesini istemiştim.

 

[muygun]

Arşiv sayfasında B ile U sütun aralığında hep aynı isim mi olacak?
(örn: B sütununu kontrol ederek isim eşitleniyorsa V ile son sütuna kadar tüm siciller mi alınacak?)
Ayrıca var olan verilerin altına devam mı edecek? , yoksa silinerek sadece seçilenler mi listelenecek?

 

[ASLAN7410]

Sayın muygun V ile son sütuna kadar siciller alınacak, seçili olan siciller silinerek listelencek.

 

[muygun]

Merhaba;
Ekleri deneyin.
İyi çalışmalar.

 

[ASLAN7410]

Sayın muygun çok süper oldu ellerinize sağlık, hayırlı geceler diliyorum.