veri düzeltme işlemi

[sinemomec]

ekli dosyada gelen ve giden evrak kısmında listbox kısmından hatalı olarak girilen veriyi seçip düzeltme yapıp tekrar kaydetmek istiyorum.

İndir EVRAK KAYIT deneme

Dosyayı indir EVRAK KAYIT deneme

dosya.co

 

[AdemCan]

Örnek olarak Sadece Gelenevrak için yaptım.
Çift tıklama ile seçim yapıp güncelle butonuna tıklayınız.
Dosya İndirme

Not: Diğer fromlar için uylama yaparken dikkat etmeniz gereken husus.
Userform kod bölümünde en üst satıra kayitno değişkeni tanımlandı.

 

[sinemomec]

elinize sağlık tam istedğim gibi yalnız gidenevrak kısmında dediğinizi yaptım ancak hata yaptım sonuç alamadım.

 

[AdemCan]

CommandButton1_Click() ve Lstgelenevrak_DblClick kodlarını da giden evrak formuna göre değiştirdiniz mi?

 

[sinemomec]

değiştirdim ancak hatam var onuda bulamadım

 

[AdemCan]

En üst satıra Public kayitno As Long ekleyip.
Buton kodları.

Private Sub CommandButton1_Click()
    If kayitno = 0 Then
        MsgBox "Seçim yapmadınız!", vbExclamation, ""
        Exit Sub
    Else
        Dim giden As Worksheet
        Set giden = Sayfa3
        Set r = giden.Range("A:A").Find(kayitno)
        If Not r Is Nothing Then
            r = r.Row
            giden.Range("B" & r) = Cbgönderilenkurum.Value
            giden.Range("C" & r) = Tbtarih.Value
            giden.Range("D" & r) = tbek.Value
            giden.Range("E" & r) = Cbdesimaldosya.Value
            giden.Range("F" & r) = Cbkonu.Value
            giden.Range("G" & r) = Cbhavaleedenmemur.Value
        End If
    End If
End Sub

Listbox kodları.

Private Sub Lstgidenevrak_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With Lstgidenevrak
        s = .ListIndex
        Cbgönderilenkurum.Value = .List(s, 1)
        Tbtarih.Value = .List(s, 2)
        tbek.Value = .List(s, 3)
        Cbdesimaldosya.Value = .List(s, 4)
        Cbkonu.Value = .List(s, 5)
        Cbhavaleedenmemur.Value = .List(s, 6)
        kayitno = .List(s, 0)
    End With
End Sub

 

[sinemomec]

TEŞEKKÜR EDERİM ELİNİZA SAĞLIK

 

[AdemCan]

Rica ederim.

 

[sinemomec]

peki burada listbox ta evrak nodan mükerrer kayıt olduğunda uyarı nasıl alabilirim

 

[sinemomec]

gelen evrak kısmında

 

[AdemCan]

Kaydet butonunda, hücrelere yazdırma işleminden önce Evrak numarasını mevcut kayıtlarda saydırabilirsiniz.
Sıfırdan büyük ise mükerrer kayıttır ve o satırda işlemi Exit sub ile sonlandırırsınız.

 

[sinemomec]

desimal dosya bölümünde listbox güncelle kısmını nasıl yapabilirim yardımcı olurmusunuz

 

[sinemomec]

Kaydet butonunda, hücrelere yazdırma işleminden önce Evrak numarasını mevcut kayıtlarda saydırabilirsiniz.
Sıfırdan büyük ise mükerrer kayıttır ve o satırda işlemi Exit sub ile sonlandırırsınız.

yeni başladım çok vba tecrubem yok yardımcı olursanız sevinirim.

 

[AdemCan]

say = WorksheetFunction.CountIf(Worksheets("GELENEVRAK").Range("D:D"), Tbevrakno.Value)
If say > 0 Then Exit Sub

Bu bölümü resimdeki gibi gelen evrak formuna ekleyiniz.


Mesaj ile uyarı vermesini isterseniz bu kodu aynı yere ekleyiniz.

say = WorksheetFunction.CountIf(Worksheets("GELENEVRAK").Range("D:D"), Tbevrakno.Value)
If say > 0 Then
    MsgBox Tbevrakno.Value & " Evrak numarası kayıtlı.", vbExclamation, ""
    Exit Sub
End If

 

[sinemomec]

foto bende açmadığı için bakamadım

 

[AdemCan]

If sonsatır = 2 Then satırının üzerine ekleyiniz.

 

[sinemomec]

teşekkür ederim ancak msjbox uyarı almadım.

 

[sinemomec]

teşekkür ederim elinize sağlık

 

[AdemCan]

Rica ederim.

 

[sinemomec]

desimal dosya bölümünde listbox güncelle kısmını nasıl yapabilirim yardımcı olurmusunuz