yazım kuralı ile ilgili..

[meto_]

merhaba ;

ilk = [sayfa2!t1:t65536].Find(ComboBox5).Row
yukardakı ifadede de t1:t65536 olan yerde değişken kullanarak ifadeyi yazmak istiyorum. mesela a= t1
b=t65536
vede sonunda
ilk = [sayfa2!a:b].Find(ComboBox5).Row diyeceğim. fakat hata mesajı alıyorum. bu dediğim mantıgı nasıl yapabilirim ??


şimdiden teşekkürler..

 

[Mahmut Kök]

aşağıdaki gibi deneyiniz.

a = "t1"
b = "t65536"
ilk = Sheets("sayfa2").Range(a & ":" & b).Find(ComboBox5).Row

 

[Korhan Ayhan]

Selamlar,

Neden böyle bir değişken kullanma ihtiyacı duyduğunuzu açıklayabilirmisiniz.

 

[meto_]

yazım kuralı ileilgili...

aslında sorunumu tam olarak çözemedim yine. dahada açık yazayım :

ilk = [sayfa2!t1:t65536].Find(ComboBox5).Row buradan elde ettiğim sonucu

diğer ifade de kullanacağım. yani : [sayfa2!u1:u65536].Find(ComboBox6).Row burda.
yani ikinci ifade de "u1" in odugu yere u ile "ilk" değişkeninin birleşimi gelmeli.
u65536 ya dokunmayacağım.

ne türlü yazsam hata mesajı alıyorum u ile ilk'i birleştiremedim bir türlü.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde kullanabilirsiniz.

    ilk = [sayfa2!t1:t65536].Find(ComboBox5).Row
    Sheets("sayfa2").Range("U" & ilk & ":U65536").Find(ComboBox6).Row

 

[meto_]

sayın cost contol ;
tavsiye ettiğiniz şeyi yazıyorum fakat 'object doen't support this property or method' hatasını alıyorum bu seferde.

 

[Korhan Ayhan]

Selamlar,

Örnek bir dosya üzerinde tam olarak ne yapmak istediğinizi açıklarsanız daha faydalı olacaktır.

 

[meto_]

selamlar tekrar.
çalıştıgım dosyayı gönderiyorum bu sefer.

combobox4 te bellek seçiyorum.combo5 te markasını seçiyorum ve sonra combo6 da ürünü seçiyorum.sayfa 2 de ise o ürünün yanında ,ona ait açıklama sütünları var.(turuncu yerler) açıklama sutunlarını ise sayfa 1 de comboların tam altına yazdırıyorum.

problem şurda : bellek-kingston-66Mhz 64 MB 144 Pin Sdram SoDimm ile
bellek-hp- 66Mhz 64 MB 144 Pin Sdram SoDimm in açıklama satırı aynı geliyor!! halbuki iki ürüne ait açıkalama satırları farklı.

ilk =[sayfa2!t1:t65536].Find(ComboBox5).Row
son =[sayfa2!u1:u65536].Find(ComboBox6).Row

ilk değişkeninden okuttugum değeri ,son değişkeninde u1 in oldugu yere koyabilirsem eğer olacak. ama 2 gundur yapamıyoum. hata mesajı alıp duruyorum. u ile ilk değişkeninden alacagım sayıyı toplatıp bir araya getirip son değişkeninde u1 yerine koyabilirsem olacak.

daha net oldu sanırım artık.

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda ComboBox6 daki kodu aşağıdaki ile değiştirip denermisiniz.

Private Sub ComboBox6_Change()
    ilk = [sayfa2!t1:t65536].Find(ComboBox5).Row
    urun = Sheets("Sayfa2").Range("U" & ilk - 1 & ":u65536").Find(ComboBox6).Row
    For k = 5 To 16
    Cells(17, k) = Sheets("sayfa2").Cells(urun, 19 + k)
    Next
End Sub