[Çözüldü]  Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değiştir

Kulanıcı arayüz formu

Cevap: Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil,

İleti#201)  osmanlixxx » 17 Ağu 2016 11:51

Kod: Tümünü seç
For Each bul In Sayfa9.Range("f2:f" & Sayfa9.Range("b65536").End(3).Row)


Teşekkür ederim. Mantığı anladım fakat birde feraz hoca nın dediği gibi next le alakalı bir hata veriyor.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil,

İleti#202)  osmanlixxx » 17 Ağu 2016 12:45

Kod: Tümünü seç
For Each bul In Sayfa9.Range("f2:f" & Sayfa9.Range("b65536").End(3).Row)


Bu şekilde düzeltim en son "next i" silince isim hariç hepsini sildi. Sadece combobox da seçilen isim kaldı.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#203)  osmanlixxx » 17 Ağu 2016 13:07

Texbox ların yerini düzeltince oldu fakat bu seferde resim gelmiyor. Resim yolunun yazılı olduğu alan sarı oluyor. Yardımlarınız için teşekkürler.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil,

İleti#204)  feraz » 17 Ağu 2016 14:26

osmanlixxx yazdı:Private Sub Label8_Click()
Dim bul As Range
For Each bul In Sayfa9.Range("b2:b" & Range("b65536").End(3).Row)
If bul = ComboBox1 Then
bul.Offset(i, -1).Activate
bul.Offset(i, -3) = TextBox1
bul.Offset(i, 2) = TextBox2
bul.Offset(i, -1) = TextBox3
bul.Offset(i, 3) = TextBox4
TextBox4 = Format(TextBox4, "dd.mm.yyyy")
bul.Offset(0, 15) = TextBox5
bul.Offset(0, -2) = TextBox6
bul.Offset(0, -1) = TextBox7
bul.Offset(0, 1) = TextBox8
bul.Offset(0, 22) = TextBox9
bul.Offset(0, 10) = TextBox10
bul.Offset(0, 23) = TextBox11
bul.Offset(0, 19) = TextBox12
bul.Offset(0, 24) = TextBox13
bul.Offset(0, 25) = TextBox14
bul.Offset(0, 12) = TextBox15
bul.Offset(0, -4) = TextBox16
bul.Offset(0, 26) = TextBox17
bul.Offset(0, 27) = TextBox18
bul.Offset(0, 20) = TextBox19
bul.Offset(0, 28) = TextBox20
bul.Offset(0, 5) = TextBox21
bul.Offset(0, 29) = TextBox22
bul.Offset(0, 4) = TextBox23
bul.Offset(0, 13) = TextBox24
bul.Offset(0, 16) = TextBox25
bul.Offset(0, 17) = TextBox26
bul.Offset(0, 21) = TextBox27
bul.Offset(0, 6) = TextBox28
TextBox28 = Format(TextBox28, "dd.mm.yyyy")
bul.Offset(0, 8) = TextBox29
TextBox29 = Format(TextBox29, "dd.mm.yyyy")
bul.Offset(0, 7) = TextBox30
bul.Offset(0, 30) = TextBox31
bul.Offset(0, 31) = TextBox32
Else
TextBox3 = Sayfa9.Range("a65536").End(3).Value + 1
End If
Next bul
If TextBox9.Value <> "" Then
İmage6.Picture = LoadPicture("d:\PBS\RESİMLER" & TextBox9.Value & ".jpg")
Else
Set veri = Nothing
End If
Next i
End Sub


Bu kodları eklediğimde "next without for" mesajı çıkıyor hangi kodu bitirmemişim bi inceleyebilir misiniz.

Kodu alltaki gibi değiştiriniz.

Mesela bul.Offset(0, -3)=TextBox1 yerine
TextBox1 = bul.Offset(0, -3) böyle olmalı kodlardaki yerler.
Çünkü bul düğmesine basına textboxlara veri gelmeli.Diğerlerinide değiştirmelisiniz.


Kod: Tümünü seç
Private Sub Label8_Click()
Dim bul As Range
For Each bul In Sayfa9.Range("f2:f" & Sayfa9.Range("b65536").End(3).Row)
    If bul = ComboBox1 Then
           
         TextBox1 = bul.Offset(0, -3)
        bul.Offset(0, 2) = TextBox2
        bul.Offset(0, -1) = TextBox3
        bul.Offset(0, 3) = TextBox4
        TextBox4 = Format(TextBox4, "dd.mm.yyyy")
        bul.Offset(0, 15) = TextBox5
        bul.Offset(0, -2) = TextBox6
        bul.Offset(0, -1) = TextBox7
        bul.Offset(0, 1) = TextBox8
        bul.Offset(0, 22) = TextBox9
        bul.Offset(0, 10) = TextBox10
        bul.Offset(0, 23) = TextBox11
        bul.Offset(0, 19) = TextBox12
        bul.Offset(0, 24) = TextBox13
        bul.Offset(0, 25) = TextBox14
        bul.Offset(0, 12) = TextBox15
        bul.Offset(0, -4) = TextBox16
        bul.Offset(0, 26) = TextBox17
        bul.Offset(0, 27) = TextBox18
        bul.Offset(0, 20) = TextBox19
        bul.Offset(0, 28) = TextBox20
        bul.Offset(0, 5) = TextBox21
        bul.Offset(0, 29) = TextBox22
        bul.Offset(0, 4) = TextBox23
        bul.Offset(0, 13) = TextBox24
        bul.Offset(0, 16) = TextBox25
        bul.Offset(0, 17) = TextBox26
        bul.Offset(0, 21) = TextBox27
        bul.Offset(0, 6) = TextBox28
        TextBox28 = Format(TextBox28, "dd.mm.yyyy")
        bul.Offset(0, 8) = TextBox29
        TextBox29 = Format(TextBox29, "dd.mm.yyyy")
        bul.Offset(0, 7) = TextBox30
        bul.Offset(0, 30) = TextBox31
        bul.Offset(0, 31) = TextBox32
    Else
        TextBox3 = Sayfa9.Range("a65536").End(3).Value + 1
    End If
Next bul
If TextBox9.Value <> "" Then
Ýmage6.Picture = LoadPicture("d:\PBS\RESÝMLER" & TextBox9.Value & ".jpg")
Else
Set veri = Nothing
End If

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

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

Cevap: Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil,

İleti#205)  osmanlixxx » 17 Ağu 2016 17:39

osmanlixxx yazdı:Texbox ların yerini düzeltince oldu fakat bu seferde resim gelmiyor. Resim yolunun yazılı olduğu alan sarı oluyor. Yardımlarınız için teşekkürler.



Yukarıdaki mesajımda da belirtmiştim textbox ları düzeltince oldu fakat resimleri çağıramıyorum.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#206)  feraz » 17 Ağu 2016 17:51

Son düzeltilmiş dosyayı ekleyin bakalım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5456
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil,

İleti#207)  osmanlixxx » 17 Ağu 2016 18:22

feraz yazdı:Son düzeltilmiş dosyayı ekleyin bakalım.


Teşekkürler yardımınız için. Ekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#208)  feraz » 17 Ağu 2016 18:53

Ýmage6 burdaki ilk harf I yani büyük i olacak.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5456
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#209)  feraz » 17 Ağu 2016 19:01

Örnek hazırladım dosya olarak.Comboboxtan Nihat ŞAHİN yada Zülküf GEÇER secip deneyiniz.


Kod: Tümünü seç
Private Sub Label8_Click()
Dim bul As Range
For Each bul In Sayfa9.Range("f2:f" & Sayfa9.Range("b65536").End(3).Row)
    If bul = ComboBox1 Then
        bul.Offset(i, -1).Activate
        TextBox1 = bul.Offset(i, -3)
        TextBox2 = bul.Offset(i, 2)
        TextBox3 = bul.Offset(i, -1)
        TextBox4 = bul.Offset(i, 3)
        TextBox4 = Format(TextBox4, "dd.mm.yyyy")
        TextBox5 = bul.Offset(0, 15)
        TextBox6 = bul.Offset(0, -2)
        TextBox7 = bul.Offset(0, -1)
        TextBox8 = bul.Offset(0, 1)
        TextBox9 = bul.Offset(0, 22)
        TextBox10 = bul.Offset(0, 10)
        TextBox11 = bul.Offset(0, 23)
        TextBox12 = bul.Offset(0, 19)
        TextBox13 = bul.Offset(0, 36)
        TextBox14 = bul.Offset(0, 37)
        TextBox15 = bul.Offset(0, 12)
        TextBox16 = bul.Offset(0, -4)
        TextBox17 = bul.Offset(0, 38)
        TextBox18 = bul.Offset(0, 39)
        TextBox19 = bul.Offset(0, 20)
        TextBox20 = bul.Offset(0, 40)
        TextBox21 = bul.Offset(0, 5)
        TextBox22 = bul.Offset(0, 41)
        TextBox23 = bul.Offset(0, 4)
        TextBox24 = bul.Offset(0, 13)
        TextBox25 = bul.Offset(0, 16)
        TextBox26 = bul.Offset(0, 17)
        TextBox27 = bul.Offset(0, 21)
        TextBox28 = bul.Offset(0, 6)
        TextBox28 = Format(TextBox28, "dd.mm.yyyy")
        TextBox29 = bul.Offset(0, 8)
        TextBox29 = Format(TextBox29, "dd.mm.yyyy")
        TextBox30 = bul.Offset(0, 7)
        TextBox31 = bul.Offset(0, 14)
        TextBox32 = bul.Offset(0, 18)
    Else
        TextBox3 = Sayfa9.Range("a65536").End(3).Value + 1
    End If
Next bul

If Err Then
        Err.Clear
       Image6.Picture = LoadPicture("")
    End If

If TextBox9.Value <> "" Then

Image6.PictureSizeMode = fmPictureSizeModeStretch
Image6.Picture = LoadPicture(ThisWorkbook.Path & "\Resmler\" & TextBox9.Value & ".jpg")
Else
Set veri = Nothing

End If

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: 5456
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil,

İleti#210)  osmanlixxx » 18 Ağu 2016 13:15

feraz yazdı:Örnek hazırladım dosya olarak.Comboboxtan Nihat ŞAHİN yada Zülküf GEÇER secip deneyiniz.


Kod: Tümünü seç
Private Sub Label8_Click()
Dim bul As Range
For Each bul In Sayfa9.Range("f2:f" & Sayfa9.Range("b65536").End(3).Row)
    If bul = ComboBox1 Then
        bul.Offset(i, -1).Activate
        TextBox1 = bul.Offset(i, -3)
        TextBox2 = bul.Offset(i, 2)
        TextBox3 = bul.Offset(i, -1)
        TextBox4 = bul.Offset(i, 3)
        TextBox4 = Format(TextBox4, "dd.mm.yyyy")
        TextBox5 = bul.Offset(0, 15)
        TextBox6 = bul.Offset(0, -2)
        TextBox7 = bul.Offset(0, -1)
        TextBox8 = bul.Offset(0, 1)
        TextBox9 = bul.Offset(0, 22)
        TextBox10 = bul.Offset(0, 10)
        TextBox11 = bul.Offset(0, 23)
        TextBox12 = bul.Offset(0, 19)
        TextBox13 = bul.Offset(0, 36)
        TextBox14 = bul.Offset(0, 37)
        TextBox15 = bul.Offset(0, 12)
        TextBox16 = bul.Offset(0, -4)
        TextBox17 = bul.Offset(0, 38)
        TextBox18 = bul.Offset(0, 39)
        TextBox19 = bul.Offset(0, 20)
        TextBox20 = bul.Offset(0, 40)
        TextBox21 = bul.Offset(0, 5)
        TextBox22 = bul.Offset(0, 41)
        TextBox23 = bul.Offset(0, 4)
        TextBox24 = bul.Offset(0, 13)
        TextBox25 = bul.Offset(0, 16)
        TextBox26 = bul.Offset(0, 17)
        TextBox27 = bul.Offset(0, 21)
        TextBox28 = bul.Offset(0, 6)
        TextBox28 = Format(TextBox28, "dd.mm.yyyy")
        TextBox29 = bul.Offset(0, 8)
        TextBox29 = Format(TextBox29, "dd.mm.yyyy")
        TextBox30 = bul.Offset(0, 7)
        TextBox31 = bul.Offset(0, 14)
        TextBox32 = bul.Offset(0, 18)
    Else
        TextBox3 = Sayfa9.Range("a65536").End(3).Value + 1
    End If
Next bul

If Err Then
        Err.Clear
       Image6.Picture = LoadPicture("")
    End If

If TextBox9.Value <> "" Then

Image6.PictureSizeMode = fmPictureSizeModeStretch
Image6.Picture = LoadPicture(ThisWorkbook.Path & "\Resmler\" & TextBox9.Value & ".jpg")
Else
Set veri = Nothing

End If

End Sub




Teşekkür ederim yardımlarınız için. Bazı problemlerim devam ediyor. Bunlar ;
1- Sil komutunu verince aynı ada ait kişi varsa ikisini de siliyor,
2- Aynı iki isim olunca ayırmıyor hangisini seçeceğimi bulamıyorum,
3-Kişinin resmi yoksa çalışmıyor bunun yerine "resim yok" diye yazdıramıyorum,
4-Silince userformu temizlemeye çalıştım ama onuda yapamadım.
5-Sil komutu verince çalışma kitabını kaydet diye bir modül ekledim fakat kitabı oluşturuyor ama kaydetmiyor. Sanırım kayıt yolunu yanlış yazdım ama çözemedim tam olarak,
Bu konularda beni yönlendirirseniz çok sevinirim teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#211)  feraz » 18 Ağu 2016 13:41

Resim yoksa zaten kodda olduğu gibi boş resim geliyordu.Oraya msgbox yapılır.Kolay iş.Diğerlerinede bakayım.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5456
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#212)  feraz » 18 Ağu 2016 15:44

Resim hata mesajı dosya altta.Diğer sorunlara bakacağım.İnşallah destekte gelir bu aradaç
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: 5456
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#213)  feraz » 18 Ağu 2016 17:51

Sanırım tam olmadı.Kontrol edebilirsiniz.

Birde bul komutu verince aynı isimden fazla varsa en sondakini gösteriyor haberiniz olsun.

Temizleme için

Kod: Tümünü seç
Private Sub Temzle_Click()
On Error Resume Next
Dim i As Integer

For i = 1 To Controls.Count
    Controls("TextBox" & i) = Empty
    Controls("Combobox" & i) = Empty
Next i
i = Empty
End Sub


sil için

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

Dim bul As Range
On Error Resume Next
Cancel = True
   
    With Sayfa9
        Set bul = .Range("F2:F" & Rows.Count).Find(ComboBox1, lookat:=xlWhole)
       
        If bul Is Nothing Then MsgBox "YOK", vbCritical: Exit Sub

        Do Until bul Is Nothing
   soru = MsgBox("Veri Bulundu.Silinsin mi?", vbExclamation + vbYesNoCancel)
          .Activate
            bul.Select
        If soru = vbYes Then
            bul.EntireRow.Delete
           
        ElseIf soru = vbNo Then
         .Cells(.Range(bul.Address(0, 0)).Row + 1, "F").Select
'          Set bul = .Range("F" & .Range(bul.Address).Row & ":F" & Rows.Count).FindNext

        ElseIf soru = vbCancel Then
          MsgBox "Silme iptal edildi", vbInformation
          Exit Do
         
        End If
        Set bul = .Range("F" & .Range(bul.Address(0, 0)).Row + 1 & ":F" & Rows.Count).FindNext
        Loop
         
    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: 5456
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#214)  osmanlixxx » 19 Ağu 2016 10:30

Yardımlarınız için teşekkür ederim. Temizleme işi buton ile değil sil butonuna bastıktan sonra silme işlemi bitince texboxlarda silinen kişi bilgileri kalıyor onun için olacaktı. Resimde de msjbox değil de imajın içinde "resim yok" ibaresi yazsın diye düşünmüştüm. İyi çalışmalar.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#215)  osmanlixxx » 19 Ağu 2016 11:17

Sildikten sonra temizleme işini hallettim fakat textbox ları silebildim sadece combobox kalıyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#216)  feraz » 19 Ağu 2016 14:56

Bunu deneyiniz.Daha önceki eklediğim dosyadaki kodları kullanmamışsınız.
Biraz değiştirdim.

Öncedende dediğim bul düğmesine basınca aynı isimden fazla varsa en sondakini buluyor.Buluncada textbox1 de boşsa karışıyor iş.

Resim yok olayıda Rsmler dosyasının içine ekledim.Orayainternetten herhangi bir jpg formatında resim eklerseniz hata durumunda o gösterilir.
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: 5456
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil,

İleti#217)  osmanlixxx » 19 Ağu 2016 15:13

feraz yazdı:Bunu deneyiniz.Daha önceki eklediğim dosyadaki kodları kullanmamışsınız.
Biraz değiştirdim.

Öncedende dediğim bul düğmesine basınca aynı isimden fazla varsa en sondakini buluyor.Buluncada textbox1 de boşsa karışıyor iş.

Resim yok olayıda Rsmler dosyasının içine ekledim.Orayainternetten herhangi bir jpg formatında resim eklerseniz hata durumunda o gösterilir.



Evet bu şekilde sıkıntısız çalışıyor fakat resim olmayınca "resim yok" yazısı olan resim gelmiyor.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#218)  osmanlixxx » 19 Ağu 2016 15:21

Resim oldu. Ama aynı isimden iki tane olması ciddi bir sıkıntı olarak devam ediyor. Yardımlarınız için teşekkür ederim.
Kullanıcı avatarı
osmanlixxx
Yeni Başlamış
 
Adı Soyadı:mehmet çevik
Kayıt: 02 Oca 2014 16:51
Konum: gaziantep/şehitkamil
Meslek: üretim planlama
Yaş: 34
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: gaziantep/ b.pınar

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#219)  feraz » 19 Ağu 2016 15:30

Benim tavsiye edebileceğim aynı isim için ya listbox yada listviewle buldurup.Bulunanı seçip ordan sildirmek.Yada bul düğmesinin kodları tamamen değişmeli.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5456
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değişt

İleti#220)  feraz » 19 Ağu 2016 15:52

Yada sayfadaki boş bir sütuna sıra numarası verdirerek aratmayı bu sıra numarasına ve isme göre aratılsa bence problem kalkar.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5456
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

ÖncekiSonraki

Forum UserForm

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe