excel.range

[nkumas]

inceledigim bi excel dosyasında açılır kutu veri aralıgı range olarak girilmis ve secilen optionboxa gore açılır kutunun seçilecek veri listesi degisiyor. worksheetin makrosuna

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

End Sub

girilmis ama range nerde tanımlanmıs bir turlu bulamadım .

Yardımcı olabilirseniz cok sevinirim tesekkurler..

 

[Merhum İdris SERDAR]

Insert/Name/Define

.

 

[nkumas]

maalesef ad olarak tanımlı degil.. dosyayı ekledim bakabilirseniz..

hea.table ve ipe.table diye isimle tabloya gecmesini ben ekledim normalde diger profiller icin o da otomatik olarak o sheetlerdeki tablolara ad tanımda olmamasına ragmen yonleniyor.nereden kodlanmıs bulamadım bir turlu..

 

[hsayar]

'Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'
'End Sub

yukarıdaki kodların bir fonksiyonu yok.

Sub clearcell()
    ThisWorkbook.Sheets("NOT FULL RESTRAINT").Range("C68").Value = 1
End Sub

Sub clearcell2()
    ThisWorkbook.Sheets("FULL RESTRAINT").Range("C68").Value = 1
End Sub

Sub clearcell3()
    ThisWorkbook.Sheets("CANTILEVER").Range("C68").Value = 1
End Sub

Sub clearcell4()
    ThisWorkbook.Sheets("BEARING & BUCKLING").Range("C68").Value = 1
End Sub

eğer option butona basınca neresi tetikleniyor di,ye soruyorsanız, module2 deki yukardıaki kodlar.

başka bir şey soruyorsunuz anlamadım.

 

[Merhum İdris SERDAR]

Sub clearcell()
ThisWorkbook.Sheets("NOT FULL RESTRAINT").Range("C68").Value = 1
End Sub

Sub clearcell2()
ThisWorkbook.Sheets("FULL RESTRAINT").Range("C68").Value = 1
End Sub

Sub clearcell3()
ThisWorkbook.Sheets("CANTILEVER").Range("C68").Value = 1
End Sub

Sub clearcell4()
ThisWorkbook.Sheets("BEARING & BUCKLING").Range("C68").Value = 1
End Sub

Option'lara bağlı bu kodlar range'ı oluşturuyor.

.

 

[nkumas]

su an not full restraint sheeti dogru calısmıyor zaten .. dogrusu icin full restrainte bakarsanız bahsettigim ozellik calısıyor orda. ben not full restraint sheetinde 2 optionbox daha eklemek istedim ama bozuldu o yuzden anlatamadım galiba.. evet bu kodlara gore c68 d68 vs hucreleri 1 2 3 gibi degerler alıyor ve mesela d68 1 ise ub sheetindeki tablodaki b kolonundaki degerler 2. optionboxa tıklarsan o deger 2 oluyor ve uc sheetindeki tablonun b kolonundaki degerler acılır kutuya yukleniyor.

bu kodlar bu hucrelerdeki sayıları atıyor ama bu sayılara gore liste nasıl yukleniyor ve s8 hucresine bakarsanız kesit ozelliklerini ub.table veya uc.table diye tabloda arıyor ama bu isimler tanımlı adlarda yok.. uc.table nerede tanımlı mesela?

dosyayı yeniledim dikkat ederseniz not full restraint sheetinde ub, uc, rsj ve pfc secildiginde liste degisiyor ama hea ve ipe icin listeyi yukletemiyorum o secenekler icin de tıpkı digerleri gibi ipe ve hea sheetlerindeki degerleri cagırsın istiyorum ?

 

[nkumas]

acaba yeterince acıklayamadım mı? yani basit bi trick eminim ama ..

 

[Merhum İdris SERDAR]

acaba yeterince acıklayamadım mı? yani basit bi trick eminim ama ..

Püf noktası şu: range diye bir dinamik ad tanımlaması yapılmış. Ancak bu gizlenmiş. Bu dosyanın sayfa ve VBA şifreleri kırılınca, bu alan gizli olarak kalmıştır.

Bu şekilde bir dinamik alan nasıl yapılır? Diye isterseniz. Bir örnek dosya hazırlayabilirim.


.

 

[nkumas]

ay çok teşekkur ederim evet öyle gizli bi yerde bi tanımlama olduğu kesin sanırım nasıl yapıldıgını bilirsem kendim rangein icine yeni ekledigim sheetleri de tanımlayarak duzeltebilirim .. amacım ikinci sheetteki dinamik degisimlere diger hea ve ipe sheetlerini de eklemek zaten..örneği aynı dosyada acılır kutu icin gönderebilirseniz cok sevinirim..normalde girdi aralıgına indirect(range) yazınca olmalıydı ama acılır kutu icin gecerli degil galiba.

 

[Merhum İdris SERDAR]

ay çok teşekkur ederim evet öyle gizli bi yerde bi tanımlama olduğu kesin sanırım nasıl yapıldıgını bilirsem kendim rangein icine yeni ekledigim sheetleri de tanımlayarak duzeltebilirim .. amacım ikinci sheetteki dinamik degisimlere diger hea ve ipe sheetlerini de eklemek zaten..örnek gönderebilirseniz cok sevinirim..

ya da dediginiz gibi tabloları ad tanımlayıp bi range adlı bi hucreyi de secime baglı degisen yaparak ayarlayabilirim ama ad ad tanımda bu yazmadan dosya nasıl calısıyor bana o garip gelmişti sanırım bu kırılmadan dolayı olmus .. gene de o zaman sistemin bozulması gerekirdi diye dusunuyorum nerdeyse tum hucrelerde aradım bulamadım cunku ..

Eklediğiniz dosya, ekte gönderdiğim örnekteki şekilde yapılmıştır.


.

 

[nkumas]

hımm listeleri aynı sheete getirmeden bu yapılamaz mı peki ?

ekteki dosyanın j69 hucresine veri dogrulamayla uygulayabildim ama aynı sey combobox icin olmuyor

 

[Merhum İdris SERDAR]

hımm listeleri aynı sheete getirmeden bu yapılamaz mı peki ?

ekteki dosyanın j69 hucresine veri dogrulamayla uygulayabildim ama aynı sey combobox icin olmuyor

Örnek dosyayı kendinize uyarlayın.

.