Belli bir aralıktaki verileri karıştırarak başka bir sayfaya kopyalama!

[leumruk]

Arkadaşlar,
Örneğin; Sayfa1'deki A1:A5 aralığındaki verilerin, Sayfa2 deki C5:C10 aralığına karıştırılarak kopyalanmasını istiyorum. Mesela 1,2,3,4,5 sıralaması; 3,5,2,4,1 şeklinde karıştırılarak Sayfa2'ye kopyalanabilir. 1, 3'e, 2, 5'e denk gelecek şekilde... Anlaşılmıştır sanırım. Şimdiden teşekkürler.

 

[leumruk]

Evet, sabırla gelecek tavsiyeleri bekliyorum... Şuna bir el atın size zahmet.

 

[Korhan Ayhan]

Selamlar,

Örnek dosya ekleyerek nasıl bir işlem yapmak istediğinizi açıklarmısınız.

 

[betpakdala]

bende aynı soruyu şu şekilde sormak istiyorum.Sayfa 1 de A Sutununda sırasıyla 1,2,3,4,5 yazılı B sutunundada karşılıkları olan ali,mehmet, ayşe, fatma,veli yazılı. sayfa2 de A sutununda bu sayıları 3,1,5,2,4 şeklinde karışık yazarsak B sutununa sayfa1 deki karşılığı gelen isimleri getirmesini istiyorum.bu mümkün müdür? umarım anlatabilmişimdir. dosya ekte.

 

[leumruk]

Selamlar,

Örnek dosya ekleyerek nasıl bir işlem yapmak istediğinizi açıklarmısınız.

Örneği ekte yolladım. Açıklamada ekte mevcut.

 

[Korhan Ayhan]

Selamlar,

betpakdala,

B1 hücresine aşağıdaki formülü uygulayp denermisiniz.

=DÜŞEYARA(A1;Sheet1!A:B;2;0)

 

[betpakdala]

üstad çok sağolasın. oldu valla. bu arada office i benim gibi ingilizce olanlar varsa düşeyaranın karşılığı vlookup mış. tekrar sağol hocam.

 

[Korhan Ayhan]

Selamlar,

Sn. leumruk örnek dosyanızdaki sıralama hep aynımı olacak?

 

[leumruk]

Selamlar,

Sn. leumruk örnek dosyanızdaki sıralama hep aynımı olacak?

Evet, bir bölümü o sıralamaya göre olacak. Kısaca şöyle izah edeyim. Test programı hazırlıyorum. Öreneğin 25 soru var ve 4 grup olacak her grubun şıklarının yeri benim belirlediğim sıralamalara göre farklı olacak. Fakat her 25 soruluk grubun düzeni belirlediğim aynı sıraya göre olacak.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub KOPYALA()
    For Each ALAN In Range("D6:D10")
    If ALAN.Value <> "" Then
    Set BUL = [G6:G10].Find(ALAN.Value, LookAt:=xlWhole)
    If Not BUL Is Nothing Then
    Range(BUL.Address) = ALAN.Value
    End If
    End If
    Next
    Set BUL = Nothing
    MsgBox "&#304;&#351;leminiz tamamlanm&#305;&#351;t&#305;r.", vbInformation
End Sub

 

[leumruk]

Hocam, makroyu yazdım ama sonuç alamadım. Bir yerlerde yanlış mı yaptım acaba. Uygulamayı örnek dosyayla yollayabilir misiniz?

 

[gulumsami]

test poğramı

Evet, bir bölümü o sıralamaya göre olacak. Kısaca şöyle izah edeyim. Test programı hazırlıyorum. Öreneğin 25 soru var ve 4 grup olacak her grubun şıklarının yeri benim belirlediğim sıralamalara göre farklı olacak. Fakat her 25 soruluk grubun düzeni belirlediğim aynı sıraya göre olacak.

Korhan Bey, bende senin düşündüğün gibi test sorusu hazırlamayı çok istemişimdir. Sizde başardığınıza göre örnek dosyayı eklesenizde bende kendime göre uyarlasam. Mümkün mü?
Sami Yiğit

 

[Korhan Ayhan]

Selamlar,

Size önerdiğim kod sizin B gurubunda yazmış olduğunuz değerlere göre çalışıyor. Aslında kod bu anlamda hiçbir işlem yapmıyor gibi görünüyor. Eğer yapınız sabitse sizin işinize aşağıdaki yapıda kod yarayabilir.

Sub KOPYALA()
    [D6].Copy [G8]
    [D7].Copy [G9]
    [D8].Copy [G6]
    [D9].Copy [G10]
    [D10].Copy [G7]
End Sub

 

[leumruk]

Anladım, teşekkürler... Hayırlı geceler.

 

[leumruk]

Selamlar,

betpakdala,

B1 hücresine aşağıdaki formülü uygulayp denermisiniz.

=DÜŞEYARA(A1;Sheet1!A:B;2;0)

Sayın Korhan Hocam,
Bu düşeyara formülü aslında isteğimi bir nebze karşılıyor gibi, ama bana bu formül makroda lazım. Makroda buna benzer bir uygulama yapmamız mümkün mü?