userform çalışmama kim ne katarsa sevinirim.

[turanb]

ekteki dosyadaki şablonu bu siteden edindiğim alıntı ve bilgilerle oluşturdum.

biraz daha ilerleyebilmek için yardımlarınıza ihtiyacım var.

ekli dosyada yapacağım birçok şeyden birkaçı var.

göz gezdiren hocalarımdan ricam tamamına katkıda bulunmak şart değil. kim ne yaparsa.....

emeğini esirgemeyen elleriniz dert görmesin..

taşıdığımız link aşağıdaki gibidir.
http://www.excel.web.tr/f48/arac-kaydy-ve-sorgulama-t128595.html

 

[Excelmy]

sayın turanb

Dosyanız ektedir.

 

[turanb]

excelmy hocam tamam şimdi oldu. tşk.

zamanınız olduğunda

1- Data ya veri kaydettiğimde otomatik sıralanmasını sağlayabilirmisiniz. (tarih sırasına göre)
2- userform da liste oluşurken data ki sütunlardaki ana başlıkları da görebilirmiyiz. Plaka tarih ve sırayla diğerlerini)

tşk.

 

[vardar07]

excelmy hocam tamam şimdi oldu. tşk.

zamanınız olduğunda

1- Data ya veri kaydettiğimde otomatik sıralanmasını sağlayabilirmisiniz. (tarih sırasına göre)

Merhaba,
Data sayfasının kod bölümüne aşağıdaki kodu kayıt edin Tarihe göre sıralar.

Private Sub Worksheet_Change(ByVal Target As Range)
 Range("B2:K34").Select
    ActiveWorkbook.Worksheets("Data").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add Key:=Range("C2:C34"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Data").Sort
        .SetRange Range("B1:K34")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

 

[turanb]

vardar hocam kod yok mesajınızda. ben göremedim.

 

[vardar07]

Dalgınlığa geldi kod yukarda.

 

[Excelmy]

Tarih sıralaması eskiden yeniye, Kaydet ve değiştir butonlarına ait kodların sonuna,

Sheets("Data").Range("A2:K65536").Sort Key1:=Range("C2"), Order1:=xlAscending

 

[turanb]

EXCELMY hocam sizin dediğinizi uyguladım hata verdi aralıkta problem çıktı sanırım.

ben mi yanlış uygulamışım.

 

[turanb]

vardar hocam sizin dediğinizi yaptım oldu. tarih değişir değişmez otomatik sıralıyor.

teşekkür ederim ilginiz için

 

[Excelmy]

Dikkat ederseniz

Tarih sıralaması eskiden yeniye, Kaydet ve değiştir butonlarına ait kodların sonuna

diye belirtmişim.

ama siz yeni bir CommandButton oluşturup kodları eklemişsiniz

Verdiğim kodları sizin uyguladığınız yöntemde çalıştırabilmek için başa

Sheets("Data").Select

kod satırını ilave etmeliyiz

 

[turanb]

excelmy üstadım sonradan fark ettim uğraştım ve ilk yadığınız kod istediğimiz gibi çalıştı. tşk.

bazen gereksiz yere sizleri oyalıyorum bunun farkındayım ve sizlerden özür diliyorum. ama bir yandan da çabalayıp ortaya somut bir şey koymak istiyorum.

bu çabamı mazur görürsünüz umarım.

affınıza sığınarak

2.soruma müsait olduğunuzda cevap bekliyorum.

2- userform da liste oluşurken data ki sütunlardaki ana başlıkları da görebilirmiyiz. Plaka tarih ve sırayla diğerlerini)

saygılar...

 

[Excelmy]

Başlıklar için UserForm'a Label ekleyebilirsiniz.

Yok, başlıkları illaki ListBox'da göreceğim derseniz kodları değiştirelim.

 

[vardar07]

Başlıklar için UserForm_Initialize altına aşağıdakini eklermisin.

ListBox1.ColumnCount = 11
ListBox1.ColumnWidths = "0;60;60;60;60;60;60;60;60;60;60"
ListBox1.ColumnHeads = True
ListBox1.RowSource = "Data!A2:k" & Sheets("Data").Range("A65536").End(xlUp).Row

 

[turanb]

Label form üzerinde kalabalık olur diye düşünüyorum hocam. siz nasıl uygun görürseniz ona göre yapayım. isterseniz label yapayım. sizce hangisi dah kullanışlı olur.

eğer şekil işleyiş v.s. önerileriniz olursa ki siz tecrübelisiniz bu mevzularda aklımdaki tasarıyı çok etkilemiyorsa ben uyarım.

 

[vardar07]

Labele gerek yok yukardaki kodu ilgili yere ekle test et.

 

[turanb]

vardar ustam dediğiniz kodu yazdım başlıklar geldi fakat bira karışık gibi. birde filtre yapmadığımız halde hepsi listeleniyor.

belkide excelmy hocamın önerdiği gibi label yapsam daha iyi olur. nede olsa veri şablonum sabit.

tşk.

 

[vardar07]

vardar ustam dediğiniz kodu yazdım başlıklar geldi fakat bira karışık gibi. birde filtre yapmadığımız halde hepsi listeleniyor.

belkide excelmy hocamın önerdiği gibi label yapsam daha iyi olur. nede olsa veri şablonum sabit.

tşk.

Şimdilik label le idare et ilerde excelmy'in dediği gibi kodları değiştirilmeli.

 

[Excelmy]

Sayın vardar07

İlgili dosya ListBox veri alma yönteminde, sizin belirttiğiniz kod

ListBox1.ColumnHeads = True

istenilen sonucu vermeyecektir.

 

[turanb]

excelmy hocam

şimdide userform2 de yeni araç kaydı oluşturup SABİTVERİ sayfasında depolamak istiyrum.

yapmak istekdilerim ama yapamadıklarım

 

[turanb]

userform2 deki çalışmalar

yapmak isteyip yapamadıklarım aşağıdaki gibi

1- userform2 de araç bilgilerini girip "sabitveri" sayfasında depolamak.
2- Araç Kaydı Değiştir butonuna tıklayınca yeni bir form açılarak bilgileri değişecek olan araç plakasını giriniz mesajı çıkacak ve plakayı girdiğimizde userform2 deki textbox ve cumbobox lara aracın bilgileri gelecek ve üzerinde değişiklik yapıldıktan sonra kaydedecek.
3- aracın aktif pasif sekmesi eğer aktif ise yeşil renkli, pasif ise kırmızı renkli olacak.
4-tarih sekmelerinde userform1 deki gibi takvim çkması tercihimdir.

dosyam ektedir

esirgemeyeceğinizi düşündüğüm emeğiniz için şimdiden teşekkür ederim.