• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Listboxdan Multi Seçili, kapalı sayfalara Kayıt

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Hunkar50

Yeni Üye
Katılım
30 Ocak 2022
Mesajlar
303
Çözümler
2
Aldığı beğeni
57
Excel V
Office 2010 TR
Konu Sahibi
Sayın Refaz Hocam Bakım Borçlandırması için Daha önceki Yardımcı Oldugunuz Kodları olduğu Gibi aldım ve yeni excel çalışma kitabına yapıştırdım..

Lakin Seçili kapalı sayfayı bulmasına rağmen açıp işlem yapmıyor, Birleştirme yolunu denedim olmadı. yolunu bulamıyor diye kendi çapımda eklemeler yaptım yine olmadı.. anlam veremedim.. Zaten bilgi bazında kıt kanaat gidiyorum.. Siz veya diğer arkadaşlarımızdan yardımcı olabilme imkanı varmı..

Teşekkür ediyorum..

Yapacağı işlem :

Listbox2 den seçili kapalı çalışma kitabının Extra Sayfasına ;

A sutunun il boş olanına sıra numarası yazacak..
B Sutununun aynı satırına ( kapalı sayfanın C10 da yazılı tutarı ) yazacak
G Sutununa Tarih yazacak ( tarihi aktif Bbakım.userform dan alacak )
I:J Sutununa İşlem açıklamasını sutunları birleştirip yazacak..

Şimdiden Elinize Emeğinize Sağlık.. Teşekkür Ediyorum..
 
Konu Sahibi
Değerli Hocalarım.. Listbox2 den seçtiğim ( multi ) kapalı sayfalara kaydet butonunu tıkladığımda ..
borçlandırma yapıyor ama tek bir seçiliye yapıyor diğerlerine yapmıyor..
listbox2 den seçili kapalı sayfaların hepsine işlem yapması için koda eklemem gereken kod hususunda yardımcı olursanız sevinirim..

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Amatör yapım ile yapabildiğim bu , daha iyi bir çalışma şekli var ise paylaşırsanız sevinirim..
Teşekkür ediyorum
 
Konu Sahibi
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

Alttaki Şekilde Dönyüyü oluşturdum, bu kezde aynı kaç kapalı sayfa seçmiş isem.. seçtiğim kapalı sayfa kadar aynı kapalı sayfaya borçlandırma yapıyor.. :) ( en zengini seçse sorun olmayacak ) :)

With ListBox2
For i = 0 To .ListCount - 1
If .Selected(i) Then
End If
Next i
End With


hata buradan diye buraya : dsy = ListBox2.List(ListBox2.ListIndex = i)
ekledim yine olmadı
 
Konu Sahibi
dsy = ListBox2.List(i, 0)
Bu kadarmış :)

Ne demişler Azimli Sırçan Duvarı deler :)
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst