Resimli listview

Listeleme kutusu. Verileriniz klasör ve dosyalarınızı görsel olarak kontrol edebileceğiniz bir nesne modeli.

Cevap: Resimli listview

İleti#61)  xemdarx » 10 Tem 2018 02:17

Basit oldu ama çözdüm. Silip yeniden ekleyince Listview düzeldi.
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#62)  feraz » 10 Tem 2018 08:07

Sevindim düzeldiğine.
Ben birkeresende Tollboxa sağ tıklayınca hiç birşey gelmediği için Tolboxa Pc yi formatlamıştım ne yaptıysam olmamıştı.

Yinede listview view kısmı dediğim gibi olacak.

Ek1,2 kısmı için ise tam son darbeyi indirecekti kapitalizmin çarkı(iş) beni çağırdı :)

Öğleden sonra paylaşırım dosyayı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#63)  feraz » 10 Tem 2018 17:00

Dim xx As Control, i As Byte, bul As Range

i = 8

For Each xx In Me.Controls

If TypeName(xx) = "TextBox" And LCase(Left(xx.Name, 2)) = "ek" Then
Set bul = Range("E:E").Find(ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(3), , , , xlPart)
xx.Value = Cells(bul.Row - 1, i).Value
i = i + 1
End If
Next

i = Empty: Set bul = Nothing


Kod: Tümünü seç
Private Sub ListView1_Click()

Me.Image1.Picture = LoadPicture("")

If Dir(ThisWorkbook.Path & "\" & Me.ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text & ".jpg") <> "" Then
    Me.Image1.Picture = LoadPicture _
    (ThisWorkbook.Path & "\" & Me.ListView1.ListItems(ListView1.SelectedItem.Index).ListSubItems(1).Text & ".jpg")
End If

'         OPTÝON Button
  If ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(6) = "E" Then
    OptionButton5.Value = False
    OptionButton4.Value = True
  ElseIf ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(6) = "H" Then
    OptionButton5.Value = True
    OptionButton4.Value = False
  End If
   '********************


   Dim xx As Control, i As Byte, bul As Range
   
    i = 8
   
    For Each xx In Me.Controls

        If TypeName(xx) = "TextBox" And LCase(Left(xx.Name, 2)) = "ek" Then
            Set bul = Range("E:E").Find(ListView1.ListItems(ListView1.SelectedItem.Index).SubItems(3), , , , xlPart)
            xx.Value = Cells(bul.Row - 1, i).Value
            i = i + 1
        End If
    Next
   
  i = Empty:  Set bul = Nothing

End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#64)  xemdarx » 10 Tem 2018 18:40

Selamlar,
Değerler yerine tam olarak gelmiyor. Kaymalar oluyor.
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Resimli listview

İleti#65)  feraz » 10 Tem 2018 19:05

Evet tam test etmemişim dikkatlice.

xx.Value = Cells(bul.Row - 1, i).Value bunu
Kod: Tümünü seç
Controls("Ek" & i - 7) = Cells(bul.Row - 1, i).Value
ile değiştiriniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#66)  xemdarx » 10 Tem 2018 20:15

Sayenizde bir basamak daha ilerledik. Ben soruyorum siz yapıyorsunuz. Benim emek sıfır diyebilirim. Kusuruma bakmazsınız inşallah.
* Kaydet değiştir ve sil den sonra
* Arama kalıyor yanılmıyorsam.
Teşekkürler. Eğitime faydalı bir program kazandırmış olacağız inşallah.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Resimli listview

İleti#67)  feraz » 10 Tem 2018 20:18

Arama sanırım yapılmıştı.Sadece bazı sütunlar eksikti.

Dosyaya yarın bakayım inşAllah.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#68)  feraz » 11 Tem 2018 21:20

Birşeyler yaptım.

Ad ve Soyadların aynı sütunda olması bayağı uğraştırttı.
AU:AV sütun aralığına yazdırttım ad ve soyadı parçalayıp.
Böyle yapılmazsa aramada hem ad hemde soyadda aranan olduğu için problem oluyordu.

G sütunundaki Saat kısmını userforma almamışsınız.

Bir deneyiniz dosyayı.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#69)  xemdarx » 12 Tem 2018 14:25

Feraz bey,
Sıra numarasını otomatik verebilir miyiz?
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#70)  feraz » 12 Tem 2018 14:29

Kolay o iş.Bugün hallederim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Resimli listview

İleti#71)  feraz » 12 Tem 2018 18:08

xemdarx yazdı:Feraz bey,
Sıra numarasını otomatik verebilir miyiz?


Dosyayı teferruatlıca bir deneyiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#72)  xemdarx » 13 Tem 2018 02:57

Feraz Bey,
Harika olmuş elinize sağlık. Mükerrer kayıtları engellemek için TC'yi kriter gösterebilir miyiz?
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#73)  feraz » 13 Tem 2018 07:19

Tica ederim.
Veri doğrulamada eğersay ile yapılır.Bugün hallederim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#74)  feraz » 13 Tem 2018 13:58

Tc No giriş olayı için engellemeyi Userformdaki textboxa göremi yapacağız.

Yani userformdaki Tc No textboxundanmı sayfaya veri gireceksiniz sadece?

Buna göre hazırlayayım kodu.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#75)  xemdarx » 13 Tem 2018 14:16

Evet.Sizce öyle daha doğru olmaz mı ?
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#76)  feraz » 13 Tem 2018 14:56

Evet.Userformdan veri gerilmesi bencede iyi olur.

Bugün şunları yaparım fırsat bulunca.

*11 rakam ile sınırlandırıp 11 rakam girilmeyi mecbur tutarım.
*Sadece rakam girilmesine izin verdiririm.
*Benzersiz olmasını sağlarım.

Başka istediğiniz olursada yazarsınız.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#77)  feraz » 13 Tem 2018 21:45

Dediklerimi yaptım.

Ayrıyeten userform açılışında va değiştirme gibi olaylar için TC NO butonunu pasif yaptım aktif yapma düğmeside ekledim.

Deneyip sorun görürseniz yada başka sorunuz olursa bildirirsin hocam.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#78)  xemdarx » 14 Tem 2018 15:16

Üstadım, acaba yanlış dosyayı mı eklediniz?
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#79)  feraz » 14 Tem 2018 16:39

Evet yanlışlık olmuş.
Belkide kaydetmeyimi unuttum bilmiyorum.

Tekrar kodu hazırlayıp yüklerim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#80)  feraz » 14 Tem 2018 16:45

Kusura bakmayın hocam eski dosyayı yollamışım :)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5167
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

ÖncekiSonraki

Forum ListView

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe