[ÇÖZÜLDÜ] Silme kodu ile kopyalama kodu neden çakışır?

[leumruk]

Hayırlı sabahlar...
Hazırladığım dosyada Combobox ile belirtilen sayfadan verileri AnaSayfa'ya alıyorum. Verinin içinde resim de var. Fakat birden fazla veri çağırmam gerektiğinde resimler üst üste biniyordu. Bunu engellemek için Veri çağırma makrosunun önüne ilgili alandaki resmi silme makrosu ekledim. Fakat bu makro ilk resmi sildikten sonra gelen resmi de siliyor. Mantıken silme işlemi tamamlandıktan sonra kayıt yapıldığı için gelen resmin silinmemesi gerekiyor. Bunun sebebi ne olabilir?
Yardımcı olursanız çok memnun olacağım.
Bahsi geçen kod "AnaSayfa" içinde. Kodun önüne eklediğim silme kodu "Call Sil3"
Saygılar...

 

[Levent Menteşoğlu]

dropdown olayındaki kodu aşağıdaki ile değiştirerek deneyin.

Private Sub ComboBox1_DropButtonClick()
    Dim X As Integer
    If ComboBox1.ListIndex > -1 Then Exit Sub
    ComboBox1.Clear
    For X = 2 To Sheets.Count
    ComboBox1.AddItem Sheets(X).Name
    Next
End Sub

Not: comboboxa yeni eklenen sayfaları yüklemek için önce comboboxtaki veriyi silin ve drop butonuna tıklayın.

 

[leumruk]

Syn. Levent hocam, öncelikle teşekkür ederim. Silme problemi halloldu. Ancak Sil butonuyla sayfayı sildiğim zaman silinen sayfa comboboxtan silinmiyor. Kaydettiğim zamanda yeni sayfayı comboboxa eklemiyor. Bu sorunu nasıl aşabiliriz?

 

[Levent Menteşoğlu]

Syn. Levent hocam, öncelikle teşekkür ederim. Silme problemi halloldu. Ancak Sil butonuyla sayfayı sildiğim zaman silinen sayfa comboboxtan silinmiyor. Kaydettiğim zamanda yeni sayfayı comboboxa eklemiyor. Bu sorunu nasıl aşabiliriz?

Bunun cevabını bir önceki mesajımda not olarak vermiştim. Bana kalırsa kullandığınız kod mantığını değiştirmek gerekir. Bu şekilde her ilavede sorun yaşamanız kaçınılmazdır.

 

[leumruk]

Syn. Levent hocam,
Size dönmeden önce kodları değiştirerek halletmeye çalıştım ama beceremedim. Alternatif olarak nasıl bir şey yapabiliriz? Yardımcı olur musunuz?
Saygılar...

 

[leumruk]

Çok şükür, sonunda hallettim.

Private Sub ComboBox1_Change()
    Application.ScreenUpdating = False
[COLOR="Red"]Worksheets(Worksheets("AnaSayfa").Range("A5").Text).Range("A4").Copy
Worksheets("AnaSayfa").Paste[/COLOR]
    If ComboBox1 <> "" Then Sheets(ComboBox1.Text).[A1:AJ65536].Copy [A1]
    Application.ScreenUpdating = True
End Sub


Private Sub ComboBox1_DropButtonClick()
    Dim X As Integer
    [COLOR="Red"]Call Sil3[/COLOR]
    ComboBox1.Clear
    For X = 2 To Sheets.Count
    ComboBox1.AddItem Sheets(X).Name
    Next
End Sub

"Call Sil3" kodunu aşağı aldım ve yukarı kırmızı ile işaretli kodları ekledim, düzeldi."

Her şey için teşekkürler.
Hayırlı bayramlar...