Veriyi getirtip değiştirmek

[TİKOS]

Arkadaşlar,
Bir proje üzerinde çalışıyorum, dün dEdE arkadaşımız yardımcı oldu, sağolsun
Bu sefer,Rapor'a basıp firma combobox dan istediğim veriyi getirip, üstünde değişiklik yaptıktan sonra kayıt değiştire basıp , o kaydı değiştirmek istiyorum. Bunun için yardımlarınızı rica ediyorum.

 

[Huseyinkis]

Bul komutu altındaki kodları tersine yazarsanız değiştir komutu olacaktır. ekte değiştirilmiş halini yolluyorum.

Private Sub cmdtemizle_Click()
    Sheets("tablo").Select
     Application.Goto Reference:=Range(Range("B:B").Find(What:=ComboBox1.Value, LookAt:=xlWhole).Address)
    ActiveCell.Select
    Cells(ActiveCell.Row, 3).Value = Format(txttarih.Value, "dd.mm.yyyy")
    Cells(ActiveCell.Row, 4).Value = Format(txtdirekt.Value, "#,##0")
    Cells(ActiveCell.Row, 5).Value = Format(txtsabit.Value, "#,##0")
    Cells(ActiveCell.Row, 6).Value = Format(txtnakliye.Value, "#,##0")
    Cells(ActiveCell.Row, 7).Value = Format(Txtfon.Value, "#,##0")
    Cells(ActiveCell.Row, 8).Value = Format(txtsozlesme.Value, "#,##0")
    Cells(ActiveCell.Row, 9).Value = Format(txtpreftl.Value, "#,##0")
    Cells(ActiveCell.Row, 10).Value = Format(txtprefmk.Value, "#,##0")
    Cells(ActiveCell.Row, 11).Value = Format(txtpref.Value, "#,##0.00")
    Cells(ActiveCell.Row, 12).Value = Format(txtpnltl.Value, "#,##0")
    Cells(ActiveCell.Row, 13).Value = Format(txtpnlmk.Value, "#,##0")
    Cells(ActiveCell.Row, 14).Value = Format(txtpnl.Value, "#,##0.00")
    Cells(ActiveCell.Row, 15).Value = Format(txtkoprutl.Value, "#,##0")
    Cells(ActiveCell.Row, 16).Value = Format(Txtkoprumk.Value, "#,##0")
    Cells(ActiveCell.Row, 17).Value = Format(txtkpr.Value, "#,##0.00")
    Cells(ActiveCell.Row, 18).Value = Format(Txtnakliyetl.Value, "#,##0")
    Cells(ActiveCell.Row, 19).Value = Format(Txtnakliyeton.Value, "#,##0")
    Cells(ActiveCell.Row, 20).Value = Format(txtnkl.Value, "#,##0.00")
    Cells(ActiveCell.Row, 21).Value = Format(txtypltl.Value, "#,##0.00")
    Cells(ActiveCell.Row, 22).Value = Format(txtypla.Value, "#,##0.00")
    Cells(ActiveCell.Row, 23).Value = Format(txtypl.Value, "#,##0.00")
    Cells(ActiveCell.Row, 24).Value = Format(Txtaciklama.Value, "#,##0")
   
End Sub

 

[TİKOS]

teşekkürler,
ellerinize sağlık

 

[TİKOS]

Hüseyin hocam,
Kullanmaya başlayınca bir problemle karşılaştım. Raporu seçip içinden firmayı getirtiyorum. Veri girdiğim zaman sayı olarak algılamıyor. Örneğin Direk Maliyet kısmına 5.000.000 yazdığımda kayıt yaptığı tabloda hücrenin sağına yaslıyor ve oradaki formül işlem yapmıyor.
İnşallah anlatabilmişimdir.
Yardımlarınızı bekliyorum.

Teşekkürler

 

[Huseyinkis]

Hüseyin hocam,
Kullanmaya başlayınca bir problemle karşılaştım. Raporu seçip içinden firmayı getirtiyorum. Veri girdiğim zaman sayı olarak algılamıyor. Örneğin Direk Maliyet kısmına 5.000.000 yazdığımda kayıt yaptığı tabloda hücrenin sağına yaslıyor ve oradaki formül işlem yapmıyor.
İnşallah anlatabilmişimdir.
Yardımlarınızı bekliyorum.

Teşekkürler

Ekteki gibi denermisiniz.

Private Sub cmdtemizle_Click()
    Sheets("tablo").Select
     Application.Goto Reference:=Range(Range("B:B").Find(What:=ComboBox1.Value, LookAt:=xlWhole).Address)
    ActiveCell.Select
    Cells(ActiveCell.Row, 3).Value = txttarih.Value, "dd.mm.yyyy")
    Cells(ActiveCell.Row, 4).Value = txtdirekt.Value*1
    Cells(ActiveCell.Row, 5).Value = txtsabit.Value*1
    Cells(ActiveCell.Row, 6).Value = txtnakliye.Value*1
    Cells(ActiveCell.Row, 7).Value = Txtfon.Value*1
    Cells(ActiveCell.Row, 8).Value = txtsozlesme.Value*1
    Cells(ActiveCell.Row, 9).Value = txtpreftl.Value*1
    Cells(ActiveCell.Row, 10).Value = txtprefmk.Value*1
    Cells(ActiveCell.Row, 11).Value = txtpref.Value*1
    Cells(ActiveCell.Row, 12).Value = txtpnltl.Value*1
    Cells(ActiveCell.Row, 13).Value = txtpnlmk.Value*1
    Cells(ActiveCell.Row, 14).Value = txtpnl.Value*1
    Cells(ActiveCell.Row, 15).Value = txtkoprutl.Value*1
    Cells(ActiveCell.Row, 16).Value = Txtkoprumk.Value*1
    Cells(ActiveCell.Row, 17).Value = txtkpr.Value*1
    Cells(ActiveCell.Row, 18).Value = Txtnakliyetl.Value*1
    Cells(ActiveCell.Row, 19).Value = Txtnakliyeton.Value*1
    Cells(ActiveCell.Row, 20).Value = txtnkl.Value*1
    Cells(ActiveCell.Row, 21).Value = txtypltl.Value*1
    Cells(ActiveCell.Row, 22).Value = txtypla.Value*1
    Cells(ActiveCell.Row, 23).Value = txtypl.Value*1
    Cells(ActiveCell.Row, 24).Value = Txtaciklama.Value*1
End Sub

 

[TİKOS]

hocam olmadı yapamadım.
sizden ricam gönderdiğim dosya üstünde uygulayabilirmisiniz.

 

[Huseyinkis]

hocam olmadı yapamadım.
sizden ricam gönderdiğim dosya üstünde uygulayabilirmisiniz.

Dosyayı açtığımda ve değişiklik yaptığımda herhangi bir hata ile karşılaşmıyorum tutarları her iki kodda duzgun olarak atıyor ve yuklediğiniz dosya uzerinde hiçbir formulde başvuru hatası yok dosya uzerinde değer girilen alanları seçerek Biçimlendir kısmından sayıya çevirirmisiniz.

 

[TİKOS]

Hüseyin hocam olmadı. Uyguladığım dosya ekte hata veriyor.

 

[Huseyinkis]

Hüseyin hocam olmadı. Uyguladığım dosya ekte hata veriyor.

Ekteki dosyayı incelermisin. Açıklama alanına *1 demişiz hata tarih texbox sında kodun başındaki format yazısı silinmiş birde txtbox lardan birinde isim değişikliği olmuş.. Bu arada texboxlar değer içermiyorsa 0 yazıp oyle işlem yapın..

 

[TİKOS]

teşekkürler