Soru Dosya Açılışta Makro Hata Veriyor

[Hsn55]

Ekli dosyayı açtığımda makro hata veriyor. Bir türlü bulamadım. Yardımcı olabilir misiniz?

https://dosyam.org/2DIv/İZİN2.xlsm

 

[ÖmerFaruk]

Hata sadece 1 tane deği sanırım. Çok zorlandım incelerken.
Sizin sorunuz ise ListBox1 özellikler penceresinden ListFillRange özelliğini kullanmışsınız ama çalışma kitabı açılışında Clear komutu da kullanıyorsunuz. Sanırım bu ikisi uyumsuz oluyor.

 

[Hsn55]

Sayın NextLevel düzeltebilirseniz sevinirim

 

[Hsn55]

ListFillRange özeliğini kapatıyorum. Buton ile Kayıt yaptıktan sonra yine ListFillRange ye KAYITLAR!B4:J21 geliyor

 

[Hsn55]

Sanırım dediğin gibi ListFillRange özelliğindeki KAYITLAR!B4:J21 kaldırdım. Aynı zamanda Kayıt makrosundaki
Sayfa1.ListBox1.ListFillRange = "KAYITLAR!B4:J" & ss kaldırdığımda sorun düzeldi gibi

 

[ÖmerFaruk]

Sorunlarınızı tek tek bulup, çözümlerde zorlandığınızda hata veren komut satırını kopyalayıp forumda aratarak balık tutmayı öğrenebileceğinize eminim.

 

[Hsn55]

Hocam şöyle bir sorun var. Listbox1 de bulduğum satırı seçip ;Veri Girişi sayfasında D431 hücresine ise veri girip kaydet butonu ile güncellediğimde Listboxta seçili satır kayboluyor. Kayıtların tamamını gösteriyor. Acaba Sadece seçili kayıtı seçip yine güncelle dediğimde Listbox yine seçili kayıt anlık güncellenip yine süzülmüş halde kalabilir mi?

 

[ÖmerFaruk]

Düzelttiğiniz ve düzenlediğiniz haliyle dosyanızın yeni halini paylaşırsanız belki daha kolay ilerleriz.
Not: Altın Üye olmanızı tavsiye ediyorum

 

[Hsn55]

Dosya ektedir.
https://dosyam.org/2DIz/İZİN2.xlsm

 

[ÖmerFaruk]

Ben denedim ama böyle bir hata görmedim

 

[Hsn55]

Hocam şöyle bir sorun var. Listbox1 de bulduğum satırı seçip ;Veri Girişi sayfasında D431 hücresine ise veri girip kaydet butonu ile güncellediğimde Listboxta seçili satır kayboluyor. Kayıtların tamamını gösteriyor. Acaba Sadece seçili kayıtı seçip yine güncelle dediğimde Listbox yine seçili kayıt anlık güncellenip yine süzülmüş halde kalabilir mi?

 

[Hsn55]

Kayıt güncelemesi yaptıktan sonra tekrar Textboxta kayıtı bulup güncellendiğini o zaman görüyorum.

 

[Hsn55]

Kayıt güncellmesi yaptıktan sonra aratma yapmadan Listboxta değişikliği görebilmeli ve Süzülü halde kalmalı

 

[ÖmerFaruk]

Listbox1.List(ListBox1.ListIndex,0)=....karşılık helen hücreniz gibi her bir satır ve kolonunuza işlem yaptırabilirsiniz
Mevcut şu kodunuzun tersini yapacaksınız.

Private Sub ListBox1_Click()
    On Error Resume Next
    If ListBox1.ListCount > 0 And ListBox1.ListIndex <> -1 Then
        sat = ListBox1.ListIndex
        For i = 0 To 28
            Cells(i + 4, 4) = ListBox1.List(sat, i)
        Next i
        Cells(28, 4) = FormatNumber(ListBox1.List(sat, 29))
    End If
End Sub

 

[Hsn55]

Nasıl yapabilirim. Siz kodu revize eder misiniz?

 

[ÖmerFaruk]

Kaydet kodlarınızın sonunda uygun biryere
sat = ListBox1.ListIndex
For i=0 to 28
Listbox1.List(sat,i)=Cells(i+4,4)
Next i
Listbox1.List(sat,29)=Cells(28,4)

 

[Hsn55]

Değişiklik olmadı. Yine aynı durum