döngüyü nasıl yapacağım

[battlemaster]

SLM ALYK arkadaşlar
aşağıda takıldığım bir kod var.
yapmak istediğim açılır listeden müşteri adını seçince müşterinin ayrıntılı bilgilerinin olduğu bir sayfaya ulaşmak istiyorum. bu sayfa müşteri kartı gibi düşünülebilir. Aşağıdaki kodda değişkenllerim sadece en sağ kısımda bulunan parantez içinde görünenn 4 rakamı
1. müşretide 4
2. müşteride 5
3. müşteride 6
.
.
.
diye gidiyor

    Sheets("MUSBILGI").Select
    Cells(4, 5).Select
    ActiveCell.FormulaR1C1 = "=MUS!RC[-3]" '(4,2)
    Cells(5, 5).Select
    ActiveCell.FormulaR1C1 = "=MUS!R[-1]C[-2]" '(4,3)
    Cells(6, 5).Select
    ActiveCell.FormulaR1C1 = "=MUS!R[-2]C[-1]" '(4,4)
    Cells(9, 9).Select
    ActiveCell.FormulaR1C1 = "=MUS!R[-5]C[-4]" '(4,5)
    Cells(10, 5).Select
    ActiveCell.FormulaR1C1 = "=MUS!R[-6]C[1]" '(4,6)

 

[Ergün Güler]

Selam,
Asıl ne yapamak istediğinizi, bahsi geçen dosyanızı ekleyerek izah edebilir misiniz?

 

[battlemaster]

dosya ekledim
yapmak istediğim açılır kutudan bir müşteri seçince "alışveriş listesi" sayfasına,C4 hücresine, sadece "müşteri no"nun gelmesi.

 

[Merhum İdris SERDAR]

dosya ekledim
yapmak istediğim açılır kutudan bir müşteri seçince "alışveriş listesi" sayfasına,C4 hücresine, sadece "müşteri no"nun gelmesi.

.


Formülle yapılmış, dosyanız ekte.

.

 

[battlemaster]

çok teşekkür ediyorum
bir sorum daha olacak aynı örnek ile ilgili.
açılır kutudan seçim yaptığım zaman müşteri bilgi sayfasına otomatik yönlendirsin istiyorum
nasıl bir kod yazacağım