Resimli listview

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

Cevap: Resimli listview

İleti#81)  feraz » 14 Tem 2018 15:01

Bir iki kod daha ekledim.
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: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#82)  xemdarx » 17 Tem 2018 13:41

Selamlar Feraz bey,
Programı düzenlemeye devam ediyorum. Tekrar yardımınızı isteyebilirim.
Ayrıca İsminizi de kullanmak istiyorum.Emeğiniz çok oldu. Eğer onaylarsanız tam olarak isminizi rica edeceğim.
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#83)  feraz » 17 Tem 2018 15:01

Aleyküm selam.
Bana kısaca Zafer diyebilirsiniz hocam.

Lazım olduğumda yardımcı olurum.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#84)  xemdarx » 19 Tem 2018 12:02

Selamlar,
Zafer bey, Değiştir butonu yanlış kaydediyor. Kontrol edebilir misiniz?
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

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

Cevap: Resimli listview

İleti#85)  feraz » 19 Tem 2018 12:36

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

Cevap: Cevap: Resimli listview

İleti#86)  skat » 27 Tem 2018 22:18

feraz yazdı:Dosyayı bir deneyiniz üstad.

Sayın feraz merhaba
Arama bölümünde cep no ile ara (OptionButton3) işaretli iken ,TextBox11 de telefon formatı yani (###)### ## ##") ile arama yapılablir mi? Teşekkür ederim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
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

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Resimli listview

İleti#87)  feraz » 27 Tem 2018 22:34

Merhaba excel hata veriyor.
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: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#88)  skat » 27 Tem 2018 22:39

Sayın feraz cevabınız için teşekkür ederim.Ekli dosya 26 nolu mesajdaki dosyadır.
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#89)  feraz » 27 Tem 2018 22:45

Rica ederim hata benimle alakalıymış office programıyla alakalı yani.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#90)  feraz » 27 Tem 2018 22:49

Alttaki koddaki Controls("textbox" & tem) = Empty yerine TextBox11.Value = Empty ekler misiniz?

Kod: Tümünü seç
Private Sub OptionButton3_Click()
Label3.Caption = "CEP NO"
TextBox1.SetFocus
For tem = 1 To 8
Controls("textbox" & tem) = Empty
Next
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#91)  feraz » 27 Tem 2018 22:52

Daha doğrusu alttaki gibi yapın döngüye gerek yok.

Tektboxları temizlemek için mesela TextBox1.Value = Empty gibi ekleyebilirsiniz kodlara .

Kod: Tümünü seç
Private Sub OptionButton3_Click()
Label3.Caption = "CEP NO"
TextBox1.SetFocus
TextBox11.Value = Empty
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#92)  skat » 27 Tem 2018 22:55

Sayın feraz resimdeki gibi yazabilir mi?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
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#93)  feraz » 27 Tem 2018 23:02

Başka işlemlerde gerekiyormuş biraz denememde.Birazdan paylaşırım dsyayı.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#94)  feraz » 27 Tem 2018 23:21

Üstadım kodlara bunlarıda ekledim.

Kod: Tümünü seç
Private Sub TextBox11_Keyup(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    With Me.TextBox11
        If Len(.Value) = 1 Then
            If Left(.Value, 1) = "(" Then .Value = Empty
        End If
    End With

End Sub


Kod: Tümünü seç
Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    With Me.TextBox11
   
        If .SelStart = 0 Then .SelText = "("
        If .SelStart = 4 Then .SelText = ")"
        If .SelStart = 8 Then .SelText = " "
        If .SelStart = 11 Then .SelText = " "
        .MaxLength = 14
       
    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: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#95)  skat » 27 Tem 2018 23:25

Çok teşekkür ederim siz harikasınız.Allah cc sizden razı olsun İnşallah.Hayırlı geceler.
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#96)  feraz » 27 Tem 2018 23:33

Sizdende.
Hayırlı geceler.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#97)  feraz » 27 Tem 2018 23:39

Bu arada alttaki kod boşluklarda dahil en fazla textboxa veri girilmedine izin verir.

Kod: Tümünü seç
.MaxLength = 14
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5844
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#98)  skat » 27 Tem 2018 23:44

Sayın feraz diğer OptionButtonlarda da ( ) bu işaretler çıkıyor.Sadece OptionButton3 işaretli iken olmaz mı acaba.
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#99)  feraz » 28 Tem 2018 00:02

If OptionButton3 = True Then bu şartı ekledim.

Kod: Tümünü seç
Private Sub TextBox11_Keyup(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If OptionButton3 = True Then
    With Me.TextBox11
        If Len(.Value) = 1 Then
            If Left(.Value, 1) = "(" Then .Value = Empty
        End If
    End With
End If

End Sub


Kod: Tümünü seç
Private Sub TextBox11_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If OptionButton3 = True Then
    With Me.TextBox11
   
        If .SelStart = 0 Then .SelText = "("
        If .SelStart = 4 Then .SelText = ")"
        If .SelStart = 8 Then .SelText = " "
        If .SelStart = 11 Then .SelText = " "
        .MaxLength = 14
       
    End With
End If

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

Cevap: Resimli listview

İleti#100)  skat » 28 Tem 2018 00:17

Çok teşekkür ederim sorunsuz çalışıyor. Allah cc razı olsun bu saatte rahatsızlık verdim.Hayırlı geceler.
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

ÖncekiSonraki

Forum ListView

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe