Listview Hata

[eeozbek]

merhaba.hazırladığım dosya ekte .Fakat nedenin çözemediğim bir hata var.Normalde veri kaydederken yada Listview de herhangi bir dataya tıklayıp değiştirdikten sonra "save data " yapınca veriyi sorunsuz değiştiriyor

Fakat Listview de herhangi bir dataya tıkladıktan sonra verileri değiştirip "Add New Data" yapınca excele doğru kaydediyor Fakat listviewe son eklenen verinin sadece ilk sütununu getiriyor.

Yardımcı olursanız cok sevinirim.Çıldırmak üzereyim.

 

[Recep İpek]

Kodlarınıza aşağıdaki satırı ilave ederek deneyeniz.

Private Sub FX_Command_AddNewData_Click()
    
    'If indexa <> 0 Then
    '    MsgBox "'Sava Data' d&#252;&#287;mesine t&#305;klayarak De&#287;i&#351;tirme i&#351;lemini ger&#231;ekle&#351;tirebilirsiniz"
    '    Exit Sub
    'End If
    ' SAYFAYA YEN&#304; KAYIT YAPAR
    Set Sh = Sheets("FX_ARBITRAGE")
    'If TextBox1.Text = "" Then: MsgBox "B&#246;lge giriniz", vbCritical, "HATALI G&#304;R&#304;&#350;": Exit Sub
    
    son = Sh.Cells(65536, 1).End(xlUp).Row
   
    Sh.Cells(son + 1, 1) = StrConv(FX_FORM.FX_FORM_TextBox_PriMoney.Text, vbUpperCase)
    Sh.Cells(son + 1, 2) = StrConv(FX_FORM.FX_FORM_TextBox_SecMoney.Text, vbUpperCase)
    
    If FX_FORM.FX_FORM_OptionButton_Buy.Value = True Then
        Sh.Cells(son + 1, 3) = "BUY"
    ElseIf FX_FORM.FX_FORM_OptionButton_Sell.Value = True Then
        Sh.Cells(son + 1, 3) = "SELL"
    End If
    
    Sh.Cells(son + 1, 4) = FX_FORM.FX_FORM_TextBox_Amount.Text
    Sh.Cells(son + 1, 5) = Replace(FX_FORM.FX_FORM_TextBox_Rate.Text, ",", ".")
    Sh.Cells(son + 1, 6) = StrConv(FX_FORM.FX_FORM_TextBox_ValDate.Text, vbUpperCase)
    Sh.Cells(son + 1, 7) = Date
    Sh.Cells(son + 1, 8) = StrConv(FX_FORM.FX_FORM_TextBox_Bank.Text, vbUpperCase)
    Sh.Cells(son + 1, 9) = StrConv(FX_FORM.FX_FORM_TextBox_Dealer.Text, vbUpperCase)
    
    [B][COLOR=red]UserForm_Initialize[/COLOR][/B]
    ListeGuncelle
    EkranTemizle
    Set Sh = Nothing
  End Sub

 

[ceyrek]

Ben işlem yaparken Sayın Recep İpek cevap yazmış ama ben yine de dosyanızı düzenlenmiş haliyle (farklı bir yöntem) ekte gönderiyorum.
İyi çalışmalar...

 

[eeozbek]

Yardımcı olduğunuz için teşekkür ederim.Recep Bey yanlız yazdığınız satırı eklediğim halde hala eksik veri geliyor

 

[Recep İpek]

Evet dediğiniz gibi hata veriyor.İlginç olan sadece EURO ve USD kayıtlarını aktarması.
Diğer para birimlerinde işlem yapmıyor.

 

[Recep İpek]

Uzun uğraşlardan sonra problemin kaynağını buldum. :keyif:

Verileriniz sayfada A kolonuana göre sıralı olmadığı için listview'e alınırken hatalı oluyor.

Çözüm için ya Listview'in Sorted özelliğini False yapınız.Yada verilerinizi önce A kolonuna göre sıralatıp, bu şekilde Listview'e aldırınız.