• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

  • Konbuyu başlatan Konbuyu başlatan Hsn55
  • Başlangıç tarihi Başlangıç tarihi
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.
 
Sayın NextLevel düzeltebilirseniz sevinirim
 
ListFillRange özeliğini kapatıyorum. Buton ile Kayıt yaptıktan sonra yine ListFillRange ye KAYITLAR!B4:J21 geliyor
 
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
 
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.
 
Hocam şöyle bir sorun var. Listbox1 de bulduğum satırı seçip ;Veri Girişi sayfasında D4:D31 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?
 
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
 
Ben denedim ama böyle bir hata görmedim
 
Hocam şöyle bir sorun var. Listbox1 de bulduğum satırı seçip ;Veri Girişi sayfasında D4:D31 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?
 
Kayıt güncelemesi yaptıktan sonra tekrar Textboxta kayıtı bulup güncellendiğini o zaman görüyorum.
 
Kayıt güncellmesi yaptıktan sonra aratma yapmadan Listboxta değişikliği görebilmeli ve Süzülü halde kalmalı
 
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.
C++: 
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
 
Nasıl yapabilirim. Siz kodu revize eder misiniz?
 
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)
 
Değişiklik olmadı. Yine aynı durum
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst