[Yardım]  UserForm Veri Güncelleme Problemi

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

UserForm Veri Güncelleme Problemi

İleti#1)  eneSene » 12 Eyl 2019 09:23

Merhabalar;
Aşağıdaki şekilde bir userform'um var, güncelleme ile ilgili kodları çalışan başka bir formdan almama rağmen bu formda güncelleme yaptıramıyorum. Kodlarım aşağıdaki gibi, yardımlarınızı bekliyorum. Teşekkürler. İyi Çalışmalar.

Resim

Kod: Tümünü seç
Private Sub cmd_stf_guncelle_Click()
    Dim bul As Range
        For Each bul In Sayfa19.Range("a3:a" & Range("a65536").End(3).Row)
    If bul.Value = txt_stf_skno.Value Then
   
    bul.Offset(0, 0).Value = txt_stf_skno.Value
    bul.Offset(0, 1).Value = txt_stf_tarihi.Value
    bul.Offset(0, 2).Value = txt_marka.Value
    bul.Offset(0, 3).Value = txt_model.Value
    bul.Offset(0, 4).Value = txt_uruntipi.Value
    bul.Offset(0, 5).Value = txt_serino.Value
    bul.Offset(0, 6).Value = txt_aksesuar.Value
    bul.Offset(0, 7).Value = cbo_garanti.Value
    bul.Offset(0, 8).Value = txt_bildirariza.Value
    bul.Offset(0, 10).Value = txt_yardim_masasi.Value
    bul.Offset(0, 12).Value = txt_satno.Value
    bul.Offset(0, 13).Value = txt_ariza_irtibat.Value
    bul.Offset(0, 14).Value = txt_bolum.Value
    bul.Offset(0, 15).Value = txt_telefon.Value
    bul.Offset(0, 16).Value = cbo_kaydiacan.Value
    bul.Offset(0, 17).Value = txt_aciklama.Value
    bul.Offset(0, 18).Value = cbo_firmaadi.Value
    bul.Offset(0, 19).Value = cbo_firma_telefon.Value
    bul.Offset(0, 20).Value = cbo_irtibat_kisisi.Value
    bul.Offset(0, 21).Value = cbo_teslim_durumu.Value
    bul.Offset(0, 22).Value = txt_takipno.Value
    bul.Offset(0, 23).Value = txt_ariza_durumu.Value
    bul.Offset(0, 24).Value = txt_ariza_bedeli.Value
    bul.Offset(0, 25).Value = txt_teslim_tarihi.Value
    bul.Offset(0, 26).Value = txt_ariza_aciklama.Value
   
             
    End If
        Next bul
   
        aciklama = "Güncelleme işlemi tamamlandı."
    dugme = vbOKOnly + vbInformation + vbDefaultButton1
    Baslik = "KAYIT"
   
    MsgBox aciklama, dugme, Baslik

    End Sub

Kullanıcı avatarı
eneSene
 
Adı Soyadı:Yasin Yiğit
Kayıt: 15 Kas 2008 13:57
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya

Cevap: UserForm Veri Güncelleme Problemi

İleti#2)  eneSene » 16 Eyl 2019 08:27

İlk arama alanındaki kodu aşağıdaki şekilde değiştirince düzeldi. Teşekkürler.

Kod: Tümünü seç
If bul.Value = Int(txt_stf_skno.Value) Then
Kullanıcı avatarı
eneSene
 
Adı Soyadı:Yasin Yiğit
Kayıt: 15 Kas 2008 13:57
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sakarya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot ve 2 misafir

Bumerang - Yazarkafe