verileri değiştirmek

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Siteden esinlenerek evrak kayıt hazırladım, ancak GELEN evrak sayfasındaki veriler CommandButton3 (DEĞİŞTİR) ile değiştir yapınca değiştirmiyor, bunun için yeni bir kod yazarmısınız? herseke teşekkürler.

 

[dEdE]

Merhaba,
Koddaki şu satırı

Cells(Bul.Row, 2) = Val(TextBox1)

şununla değiştirip dener misiniz? Geldiği yer dışında tümünü değiştiriyor. Geldiği yeri değiştiremezsiniz çünkü aramayı geldiği yere göre yaptırıyorsunuz.

  Cells(Bul.Row, 2) = TextBox1.Text

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; Sayın dedenin yazdığı kod ile değiştir işlemini hallettik
sizden rica birde bu dosyada, Kaydettiğim veriler anında ListBox'ta gözükmüyor, yani Userform1'i açıp kapayınca listBox'a alıyor, Bunu kayıt yap deyince anında ListBox'a gelmesi için ne yapmalıyız. Buna da bakarsanız sevinirim,
Herkese teşekkürler.

 

[dEdE]

Merhaba,
Diğer satırlara hiç dokunmadan mevcut kodunuzun sondan bir öncesine aşağıdaki kırmızı satırı ekleyerek dener misimiz?

Private Sub CommandButton2_Click()
.....
[COLOR="Red"]UserForm_Initialize[/COLOR]
End Sub

 

[Hacı Bayram ÖZKAN]

Eline sağlık Sayın Dede;
Bu programla Gelen ve Giden evrak diye iki sayfa yaptım ve iki Userform düzenledim, yeni dosya ekte, ancak burda size şunu soracağım,
Private Sub CommandButton3_Click()
Sheets("GELEN").SelectParola = InputBox("Lütfen Parola Giriniz ?")
If Parola <> Format(Now, "yyyy") Then Exit Sub
Onay = MsgBox("Yapılan değişiklikleri Onaylıyor musunuz ?", vbCritical + vbYesNo + vbDefaultButton2)
If Onay = vbYes Then
Set Bul = Range("A2:A65000").Find(TextBox19, LookAt:=xlWhole)
If Not Bul Is Nothing Then
Cells(Bul.Row, 1) = Val(TextBox19)
Cells(Bul.Row, 2) = TextBox1.Text
Cells(Bul.Row, 3) = Format(TextBox2.Text, "dd.mm.yyyy")
Cells(Bul.Row, 4) = TextBox3.Text
Cells(Bul.Row, 5) = TextBox4.Text
Cells(Bul.Row, 6) = TextBox5.Text
Cells(Bul.Row, 7) = TextBox6.Text
Cells(Bul.Row, 8) = TextBox7.Text
Cells(Bul.Row, 9) = TextBox8.Text
Cells(Bul.Row, 10) = TextBox9.Text
Cells(Bul.Row, 11) = TextBox10.Text
Cells(Bul.Row, 12) = TextBox11.Text
Cells(Bul.Row, 13) = TextBox12.Text
End If: End If
End Sub
Değişiklikleri kırmızı ile yazdığım kodu yazarsam Gelen ve Giden sayfasında doğru bir şekilde değiştirmiş olurmuyum. Teşekkürler. Evrak kayıt olacağı için yanlış yapmayalım. Dua ile kal

 

[dEdE]

Merhaba,
Sayfa ve userform yapılarınız aynı ise neden olmasın?
Ayrıca bu durumu deneme/yanılma yoluylada test edebilirsiniz.