Resimli listview

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

Cevap: Resimli listview

İleti#21)  feraz » 04 Nis 2018 23:27

Hayırlı geceler,yarın bakarım inşAllah.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#22)  feraz » 05 Nis 2018 00:41

Label yerine buton oldu.
Labelin click olayında çalışmadı garip.Aslında aynı mantık.Dosyayı inceleyin.
Birden fazla kişinin doğum günü olursa iş karışır o zaman.


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

Dim ara As Range
With Me

    Set ara = Sayfa2.Range("C:C").Find(What:=.CommandButton9.Caption, LookIn:=xlValues, lookat:=xlWhole)

If Not ara Is Nothing Then

    .TextBox1.Text = ara.Offset(0, -2).Value
    .TextBox2.Text = ara.Offset(0, -1).Value
    .TextBox3.Text = ara.Value
    .TextBox4.Text = ara.Offset(0, 1).Value
    .TextBox5.Text = ara.Offset(0, 2).Value
    .TextBox6.Text = ara.Offset(0, 3).Value
    .TextBox7.Text = ara.Offset(0, 4).Value
    .TextBox12.Text = ara.Offset(0, 5).Value
Else

End If

.Image1.Picture = LoadPicture("")

If Dir(ThisWorkbook.Path & "\" & .CommandButton9.Caption & ".jpg") <> "" Then
    .Image1.Picture = LoadPicture _
    (ThisWorkbook.Path & "\" & .CommandButton9.Caption & ".jpg")
End If

End With

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 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#23)  skat » 05 Nis 2018 10:36

Sayın feraz teşekkür ederim.label 13 ün yerine listbox olabilir mi?
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

Cevap: Resimli listview

İleti#24)  feraz » 05 Nis 2018 10:38

Rica ederim.
Benim aklımdanda listbox geçiyordu.
Güzel birşey yapıp akşam paylaşırım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

Cevap: Resimli listview

İleti#25)  skat » 05 Nis 2018 11:28

Çok teşekkür ederim ☺️
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

Cevap: Resimli listview

İleti#26)  feraz » 05 Nis 2018 22:39

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

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Resimli listview

İleti#27)  skat » 06 Nis 2018 17:47

Sayın feraz çok teşekkür ederim .Ellerinize sağlık problemsiz çalışıyor. Allah Cc razı olsun. şkşk
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

Cevap: Resimli listview

İleti#28)  biter13 » 24 May 2018 08:51

Merhaba. Compile error
Cant find project or library hatasının çözümü nedir?
Kullanıcı avatarı
biter13
Yeni Başlamış
 
Kayıt: 15 Mar 2016 14:14
Meslek: mühendis
Yaş: 77
İleti: 66
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Resimli listview

İleti#29)  skat » 24 May 2018 16:20

Merhaba
Dener misiniz lütfen ,
VBA penceresinde. Tools - References menüsünü tıklayın.
Burada [MISSING] ile başlayan seçimleri kaldırarak deneyin.
Kullanıcı avatarı
skat
Siteye Alışmış
 
Adı Soyadı:SITKI YAĞCI
Kayıt: 15 Haz 2008 00:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 224
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

Cevap: Resimli listview

İleti#30)  biter13 » 25 May 2018 11:18

olmadı mıssingle başlayan bir yer yok hatada
Private Sub UserForm_Initialize()

On Error Resume Next
TextBox2.SetFocus
Sheets("SITKI").Select
Dim i As Integer
ListView1.View = lvwReport

lvwReport kısmındada hata gösteriyor
Kullanıcı avatarı
biter13
Yeni Başlamış
 
Kayıt: 15 Mar 2016 14:14
Meslek: mühendis
Yaş: 77
İleti: 66
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Resimli listview

İleti#31)  xemdarx » 02 Haz 2018 15:40

Selamlar,
Elinizdeki çalışmayı beğendim. Mümkünse bu kayıtları iki satırda bir yapabilir misiniz? Örnek dosya ekledim. Çalışmayı "kıyık" sayfasına uyarlayabilir misiniz? Teşekkürler
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 18:07
İleti: 239
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#32)  xemdarx » 06 Haz 2018 12:48

Çok uğraştım yapamadım. Bir yerlerde hata yapıyorum. Yardımcı olur musunuz?
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 18:07
İleti: 239
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#33)  feraz » 06 Haz 2018 13:05

Kim için yazdınız?

Akşam bakabilirim.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#34)  xemdarx » 07 Haz 2018 13:58

Feraz Bey, çözüm bulursanız minnettar olurum.
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 18:07
İleti: 239
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#35)  feraz » 08 Haz 2018 00:02

Tam olarak ne yapılacak onu anlayamadım.
Açıklamalı yaparsanız olur bence.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#36)  feraz » 08 Haz 2018 00:25

ilk aşama olarak ilgili kodu alttaki ile değiştiriniz.
Userform açılışında veriler listviewe aktarılır.

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

On Error Resume Next
TextBox2.SetFocus
Sheets("kıyık").Select
Dim i As Integer
ListView1.View = lvwReport
'Kolanlara isim ver
With ListView1.ColumnHeaders
    .Add , , "S.NO ", 30 ' Burda ..... sütun genişliği
    .Add , , "ADI SOYADI", 105
    .Add , , "TC Kimlik ", 150
    .Add , , "Sinif ", 82

   
    End With
'Kolanlara verileri al

With ListView1
Application.ScreenUpdating = False
    For i = 13 To ActiveSheet.Cells(Rows.Count, "C").End(3).Row Step 2
    X = X + 1
            .ListItems.Add , , Cells(i, 3)
            .ListItems(X).SubItems(1) = Cells(i, 4)
            .ListItems(X).SubItems(2) = Cells(i, 5) & "-----" & Cells(i + 1, 5)
            .ListItems(X).SubItems(3) = Cells(i, 6)
    Next
Application.ScreenUpdating = True
End With
           
ListView1.FullRowSelect = True
ListView1.Gridlines = True

sayı = c - 1
Label1 = sayı & "    ADET"
   With Application
End With
'minimize için ikinci kod
Dim hWnd As Long
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000

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 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#37)  xemdarx » 09 Haz 2018 15:08

İlk aşama tamam.
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 18:07
İleti: 239
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#38)  feraz » 09 Haz 2018 15:56

Sonraki aşama?

Birsürü aşama var :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#39)  feraz » 10 Haz 2018 02:44

SORGU EKRANI ve listviewe tıklayınca resim getirme olayıda tamam.

Listviewe AN sütununa kadar mı alınacak?

Satırlar bir satır aralıkla olduğu için uğraştırıyor.
Zaman buldukçayapmaya çalışrım.Biraz sürebilir:)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#40)  feraz » 10 Haz 2018 03:11

Birde şunu yazayım önceki ekteki textbox isimlerini sayılarını felan ayarlamalısınızki boşa kürek çekmeyelim.

Herşeyi devletten beklememek gerek :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5948
 
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