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

Cevap: Resimli listview

İleti#82)  xemdarx » 17 Tem 2018 15: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 20:07
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Resimli listview

İleti#83)  feraz » 17 Tem 2018 17: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#84)  xemdarx » 19 Tem 2018 14: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 20:07
İleti: 225
 
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 14:36

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

Cevap: Cevap: Resimli listview

İleti#86)  skat » 28 Tem 2018 00: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 02:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 223
 
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 » 28 Tem 2018 00: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#88)  skat » 28 Tem 2018 00: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 02:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 223
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

Cevap: Resimli listview

İleti#89)  feraz » 28 Tem 2018 00:45

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

Cevap: Resimli listview

İleti#90)  feraz » 28 Tem 2018 00: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#91)  feraz » 28 Tem 2018 00: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#92)  skat » 28 Tem 2018 00: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 02:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 223
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

Cevap: Resimli listview

İleti#93)  feraz » 28 Tem 2018 01:02

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

Cevap: Resimli listview

İleti#94)  feraz » 28 Tem 2018 01: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#95)  skat » 28 Tem 2018 01: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 02:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 223
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

Cevap: Resimli listview

İleti#96)  feraz » 28 Tem 2018 01:33

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

Cevap: Resimli listview

İleti#97)  feraz » 28 Tem 2018 01: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#98)  skat » 28 Tem 2018 01: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 02:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 223
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kdz.Ereğli

Cevap: Resimli listview

İleti#99)  feraz » 28 Tem 2018 02: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5530
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Resimli listview

İleti#100)  skat » 28 Tem 2018 02: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 02:17
Konum: ereğli
Meslek: I. Kademe Vardiya amiri/Yönetici
Yaş: 44
İleti: 223
 
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

Bumerang - Yazarkafe