• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Userform yardımı lütfen.

C

chngrcn

Katılım
5 Mart 2010
Mesajlar
295
Excel Vers. ve Dili
Microsoft Office 2010
EKTEKİ DOSYAMDA KASKO DEĞER LİSTESİ VARDIR. BİR TANE USERFORM OLUŞTURDUM FAKAT BU USERFORMDA COMBOBOX VE TEXTBOX'LARA DEĞERLERİ BULUP ATAMASINI İSTİYORUM.. ÜSTADLARIMIN YARDIMINI BEKLİYORUM..



şekilde görüldüğü üzere aracın modeli combobox1'de seçilecek,
ardından markasını combobox2'den seçtiğimizde
combobox3' otomatik olarak excel çalışma sayfamızda o aracın model yılına ve markasını baz alarak aracın tipini combobox3'e yansıtacak.. ( sadece seçilen aracın tipleri combobox3'te gözükecek )

ardından aracın tipini combobox3'ten seçtiğimizde textbox1'e (seçilen model yılı ve markasına göre o markaya ait aracın tipi'ni (tiplerini) seçilen yıldaki kasko bedelini listeden bulup textbox1'e yansıtacak )
ve textbox2 'ye de kasko bedeli yansıyan aracın kasko kodu sütunundan (kasko kodunu 3.sütun)'dan bulup yansıtacak..

sevgili üstadlarım bu kombinasyonun içinden çıkamadim.. bana kodları yazabilecek üstad arkadasimiz var mi ?

yardımlarınızı talep eder saygılarımı sunarım..
örnek çalışmam ektedir..
 

Ekli dosyalar

Merhabalar,
şekilde görüldüğü üzere aracın modeli combobox1'de seçilecek,
Genişletmek için tıkla ...
Marka belli ama, Model nereden seçilecek, A kolonu modelmidir?

otomatik olarak excel çalışma sayfamızda o aracın model yılına ve markasını baz alarak aracın tipini combobox3'e yansıtacak..
Genişletmek için tıkla ...
combobox3'e seçilen markanın, her tipi için 1996 ve 2010 arası değerleri birleşik mi gelecek?
Yani ilk sıradaki "156 1.9 JTD" tipi için "156 1.9 JTD 1996 - 156 1.9 JTD 2010" arası 15 adet tip mi oluşturulacak? Bunları bir netleştirirsek daha kısa bir yolumuz olacaktır, iyi çalışmalar.
 
öncelikle ilgi alakanıza çok teşekkür ederim..


dentex' Alıntı:
Merhabalar,

Marka belli ama, Model nereden seçilecek, A kolonu modelmidir?

2.SATIR F2 ve T2 Sütunları arasındakiler aracın model yılıdır.. 2010 fiyatı gibi..


combobox3'e seçilen markanın, her tipi için 1996 ve 2010 arası değerleri birleşik mi gelecek?
Yani ilk sıradaki "156 1.9 JTD" tipi için "156 1.9 JTD 1996 - 156 1.9 JTD 2010" arası 15 adet tip mi oluşturulacak? Bunları bir netleştirirsek daha kısa bir yolumuz olacaktır, iyi çalışmalar.
Genişletmek için tıkla ...

atıyorum combobox1 de 2010 modelini seçtik...
combox2'de de aracın markasını seçtik..

bu adımlardan sonra combobox1 ve combox2 de seçilen aracın o model yılı ve markada ki ( o markaya ait ) araç tiplerini combobox3'e yansıtacak...

( combobox3 yerine oraya listbox da konulabilir.. listbox sonradan aklıma geldi listbox koyulursa daha verimli olur )

sonuç olarak seçilen aracın model yılı ve markasına göre o markaya ait araç tiplerini listbox'a yansıtacak... ( sonuçta atıyorum bir " TOFAŞ-FIAT" markanın bir sürü tipi var " DOĞAN S" " ŞAHİN S" " ŞAHİN 1.6 LPG " gibi )
"ARAÇ TİPLERİ TEK MARKA ALTINDA TOPLANIR.. "

listboxta tipi seçtiğimizde textbox'lara kaskonun değerini ve kasko kodunu yasıtacak... umarım anlatabilmişimdir..
 
userform'un son halini ekte sunuyorum.. ( listbox'lı hali )
Not: buton'a görev verilmeyecek .. (orası benim işim ):)
 

Ekli dosyalar

Merhabalar,
Halit bey'in dosyasını işyerinde açamadım ama eminim çok pratik ve kullanışlıdır. Bu arada ben de bir dosya hazırlamıştım, alternatif olabilir,
iyi çalışmalar.
 

Ekli dosyalar

Son düzenleme:
sevgili halit bey ve dentex çok çok çok teşekkürlerimi sunuyorum.. tek kelime ile harika.
 
teşekkürler iyi çalışmalar
 
dentex' Alıntı:
Merhabalar,
Halit bey'in dosyasını işyerinde açamadım ama eminim çok pratik ve kullanışlıdır. Bu arada ben de bir dosya hazırlamıştım, alternatif olabilir,
iyi çalışmalar.
Genişletmek için tıkla ...

sayın dentex sizden bir ricam daha olacak...

yapmiş olduğunuz çalışmayı cok beğendim ayrıca tesekkür ederim..

lakin userform'a bi adet combobox3 koydum.. burayada aracın tipini elle manuel içine yazdığımızda, listbox'ta mevcut olan tipi otomatik süzüp yazdığım tipi anında listeden bulup seçmesini istiyorum.. bunu başarabilir misinizi rica etsem ?
 

Ekli dosyalar

İyi akşamlar,
7. nolu mesajda dosya güncellenmiştir, iyi çalışmalar.
 
dentex' Alıntı:
İyi akşamlar,
7. nolu mesajda dosya güncellenmiştir, iyi çalışmalar.
Genişletmek için tıkla ...

çok teşekkür ederim.. gerçekten çok yardımcı oldunuz..

son bişey sorsam ayip etmem umarım.. yapmiş olduğumuz çalışmada excel sayfasını gizlemek. açarken direkt Userform1'in önümüze gelmesini istiyorum..

yani arkadaki excel sayfası hiç belli olmayacak.. direkt userform üzerinden çalışmak. ekrana userform1'in gelmesini nasıl sağlayabiliriz. ?

biliyorum belki sizin için basit bişeydir. ama ben inanınki bu vba olayı bende cok bağımlılık yapti. kursuna bile gitmeyi düsünüyorum.. bu konudada bilginiz var ise yazarmısnız ? nerede iyi bir eğitim alabilirim ?
 
Merhaba,
burada iyi bir eğitim alabilirsiniz :)
Bir üstad excel'in arka planda görünmeden çalışmasını pek doğru bulmadığını yazmıştı. Ben de katılıyorum. Yine de dosyayı güncelledim, iyi çalışmalar.
 
dentex' Alıntı:
Merhaba,
burada iyi bir eğitim alabilirsiniz :)
Bir üstad excel'in arka planda görünmeden çalışmasını pek doğru bulmadığını yazmıştı. Ben de katılıyorum. Yine de dosyayı güncelledim, iyi çalışmalar.
Genişletmek için tıkla ...

sayın dentex . biliyorum çok şey istiyorum ama.. aynı uygulamayı bu ekteki çalışmamada hazırlayabilirmisiniz ? bundaki tablo çok farklı.. benim için daha iyi bir tablo.. eğer yapabilirseni harika olucak benim için.. USERFORMU'NU ben hazırladım.. sadece aynı sistemde nasıl kodlayabiliriz. bunu bilmiyorum.. yardımlarınız için tesekkürler..
 

Ekli dosyalar

dentex üstadim insallah okumuşsundur en son yazdığımı.. çok acil lazım bu program bana.. üstadlarımdan çok rica eder saygılarımı sunarım...
 
dentex üstadim ve evren abi bi konuya bi el atabilirmisiniz ? çok memnun olurum..
 
Son düzenleme:
Kod: 
Sub Makro1()
'
' Makro1 Makro
' Makro CİHANGİR tarafından 17.05.2010 tarihinde kaydedildi.
'

'
    ActiveCell.FormulaR1C1 = "ALFA ROMEO"
    Range("A1").Select
    Selection.Font.Bold = True
       With Selection.Font
        .Name = "Tahoma"
        .Size = 8
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = xlAutomatic
    End With
    With Selection.Interior
        .ColorIndex = 15
        .Pattern = xlSolid
    End With
End Sub


Dentex üstadım çalışma kitabında dikkat edersen Araçların "Marka" ları " Tahoma Fontu, Kalın , ve hücre içi gri ile boyanmış..." listbox'ta bu şartta olan bir yazıyı marka olarak gösterme imkanımız var sanırım.. yukarıdaki kod sadece bir fikir üretmek istedim..

TAHOMA, BOLD,

With Selection.Interior ' Hücrenin iç rengi GRİ
.ColorIndex = 15
.Pattern = xlSolid
End With

BU ŞART'A DAYANARAK MARKA KISMINDA SÜZDÜRME YAPABİLİRİZ LİSTBOX'A.. Ne dersiniz?
 
Merhaba,
dosyayı incelermisiniz. Ancak bu dosya şu anki formatlara göre çalışacaktır. En küçük bir değişiklikte çalışmaz.
 

Ekli dosyalar

üstadım benim harikasın... eline koluna yüreğine sağlık.. çok tesekkür ederim.. allah razı olsun...


( son birşey daha ; hani listbox yada combobox içinde içen mouse üzerindeki silindir varya hani yuvarlak çeviriyoruz. aşağı yukarı scrollbar görevi görüyor... onu nasıl aktifleştirebiliriz ?)


Not: zor bişey ise yazma.. tekrar çok sağol...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst