açılan kutu hakkında

[numb999]

merhaba
açılan kutuyu tıkladığımda daha önce aylar için verdiğim değerlerin gelmesini istiyorum. yardımcı olabilir misiniz.
ekli dosyada daha ayrıntılı anlattım.

 

[hamitcan]

Aşağıdaki kodu sayfadaki nesneye bağlayın.

Sub getir()
    s = Sayfa2.DropDowns(1).Value + 1
    Sayfa2.Range("b3:m3") = Sayfa1.Range("b" & s & ":m" & s).Value
End Sub

 

[numb999]

hocam olmadı veya ben beceremedim.

 

[muygun]

Merhaba;
Alternatif olsun.
Eki inceleyin.
İyi çalışmalar.

 

[hamitcan]

Eki inceleyin.

 

[numb999]

teşekkür ederim. oldu.

 

[mithatgokceli]

Sa.
Ekteki dosyada bir liste hazırlamaya çalıştım ancak yukarıda vermiş olduğnuz liste kodunu yazamadım gerekli açıklamayı dosyanın içerisine yazdım. Yardımcı olursanız sevinirim. Iyi çalışmalar...

 

[mithatgokceli]

Yardımlarınızı bekliyorum arkadaşlar, değerli bilgileriniz benim için çok önemli..

 

[hamitcan]

gerekli açıklamayı dosyanın içerisine yazdım.

Ben açıklama göremedim. Ne yapmak istediğinizi bir örnekle açıklayın.

 

[mithatgokceli]

Pardon açıklamayı yazmadığımı eklemişim. örnekle açıklayabilsem keşke... Ben notu içerisine yazdım tekrardan. Iyi çalışmalar...

 

[hamitcan]

Birinci sorunuz için;
Nesne üzerinde iken sağ klik yapın, denetim biçimlendiri seçin, hücre bağlantısı içine 'MENÜ-FİRMA LİSTESİ'!$C$2:$C$500 hücre aralığını yazın.
İkinci sorunuz için;
Verdiğiniz örnek yetersiz. Hangi bilginin, nereden ve nasıl alınacağını belirtin.

 

[mithatgokceli]

sayın Hamitcan,

gerekli olan bilgileri yazdım, umarım daha iyi anlatabilmişimdir... yardımınız için şimdiden teşekkür ederim...

 

[mithatgokceli]

üstad bakabildiniz mi acaba? sizi yorduğumun farkındayım ama bu programı oluşturmam lazım. lütfen yardım edin.

 

[hamitcan]

Eki inceleyin.

 

[mithatgokceli]

çok teşekkür ederim sayın hamitcan... Yardımlarınız için minnettarım. Allah razı olsun....

 

[furens]

Aşağıdaki kodu sayfadaki nesneye bağlayın.

Kod:
Sub getir()
s = Sayfa2.DropDowns(1).Value + 1
Sayfa2.Range("b3:m3") = Sayfa1.Range("b" & s & ":m" & s).Value
End Sub
Hamitcan hocam bu formül ("b3:m3") arasını içeriyorya mesela v3,v4,v5,v6,v7 gibi veya farlı karışık hücrelere a2,b4,c8 gibi nasıl uygulanabilir?her iki durumdaki olsması gereken formülleri girebilirmisiniz?
Yardımız için şimdiden tşk.

 

[hamitcan]

Aşağıdaki kodu sayfadaki nesneye bağlayın.

Kod:
Sub getir()
s = Sayfa2.DropDowns(1).Value + 1
Sayfa2.Range("b3:m3") = Sayfa1.Range("b" & s & ":m" & s).Value
End Sub
Hamitcan hocam bu formül ("b3:m3") arasını içeriyorya mesela v3,v4,v5,v6,v7 gibi veya farlı karışık hücrelere a2,b4,c8 gibi nasıl uygulanabilir?her iki durumdaki olsması gereken formülleri girebilirmisiniz?
Yardımız için şimdiden tşk.

Verilerin bulunduğu duruma göre kodun şekli değişir. Bu şekilde bir kod yazmak yanlış olur.

 

[furens]

misal bu örneklere göre uygulayabilirmisiniz?

 

[hamitcan]

Birinci Açılan Kutu için;

Sub getir()
    s = Sayfa2.DropDowns(1).Value + 1
    Sayfa2.Range("b2:b6") = WorksheetFunction.Transpose(Sayfa1.Range("a" & s & ":e" & s).Value)
End Sub

İkinci Açılan Kutu için;

Sub getir2()
    s = Sayfa2.DropDowns(2).Value + 1
    Sayfa2.[i2] = Sayfa1.Cells(s, 1)
    Sayfa2.[j4] = Sayfa1.Cells(s, 2)
    Sayfa2.[i6] = Sayfa1.Cells(s, 3)
    Sayfa2.[j8] = Sayfa1.Cells(s, 4)
    Sayfa2.[j9] = Sayfa1.Cells(s, 5)
End Sub

 

[furens]

üstadım ilgin için tşk.verdiğin formülleri modüle yerleştirdim ama herhangibir değişiklik yok.