-
Foruma hoş geldin 👋 Ziyaretçi
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 tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü Kapalı sayfa kayıt işleminde, Hücre birleştir ve metni kaydır özelliği
- Konuyu Başlatan Hunkar50
- Başlangıç tarihi
- Cevaplar : 12
- Gösterim : 1K
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Çözüm
Refaz
Destek Ekibi
Dosyayı deneyin.
Birleştirmeden dolayı listbox1 tıklama kodundada ufak değişiklik yaptım hata verdiği için.
Örnek olarak Private Sub CommandButton17_Click() bu koda alttaki kodları ekledim resimdeki yerlere.
Diğerlerinede uygularsınız.Belki diğer kodlarda hata verebilir bu birleştirmeden dolayı deneyin hata olursa düzeltiriz.
Birleştirmeden dolayı listbox1 tıklama kodundada ufak değişiklik yaptım hata verdiği için.
Örnek olarak Private Sub CommandButton17_Click() bu koda alttaki kodları ekledim resimdeki yerlere.
Diğerlerinede uygularsınız.Belki diğer kodlarda hata verebilir bu birleştirmeden dolayı deneyin hata olursa düzeltiriz.
Rich (BB code):
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Hunkar50
Yeni Üye
Konuyu Başlatan
Tam Contadan yanık kokuları gelmeye başlamıştı, siz geldiniz hocam
syfKapali.Cells(son, "D").Value = Me.TextBox149.Value
syfKapali.Range("h:J" & son).MergeCells = True
syfKapali.Cells(son, "H").Value = Me.ComboBox12.Value
Şeklinde ve denemedik şekil kalmayacak şekilde komple denedim bina sayfasının h17:j300 e kadar dahi birleştirmeyi başardım..
Hevesimi kursagımda koydunuz
Teşekkürler hocam deniyorum hemen
Hunkar50
Yeni Üye
Konuyu Başlatan
Hocam eklediğiniz dosyayı indirdim. Listbox1_clik te hata verdi ve bu kodu orada yazacak yer yok sanırım..
Listbox6 ya yansıma hatasımıdır bu ?
Listbox6 ya yansıma hatasımıdır bu ?
Refaz
Destek Ekibi
Commandbutton17click koduna ekledim dosyadada var abey.
Listbox1click olayında hata vermemei gerekti normalde.Ve nasıl hata verdi bir resim atın.
Hunkar50
Yeni Üye
Konuyu Başlatan
Hunkar50
Yeni Üye
Konuyu Başlatan
Hunkar50
Yeni Üye
Konuyu Başlatan
Tamamdır hocam.. Bugun bakım için userform tasarlamıştım. sizden gelen dosyayı görünce, hemen benim dosyanın üzerine yapıştırıyorum
Elinize saglık, şimdilik ben diğer dosyalara uyarlamayım..
asıl işin sıkıntılısı bir dahaki konuda gelecek hocam
Affınıza sıgınarak ; Tabiri caisse " eşeğin büyüğü ahırda kaldı "
Hunkar50
Yeni Üye
Konuyu Başlatan
Listbox6 dan secili veriyi sil me işleminde hata var hocam
Set bul = sayfaAc.Range("A" & satirBasartiBir - 1 & ":A" & Rows.Count).Find(.List(.ListIndex, 0), , , 1)
Set bul = sayfaAc.Range("A" & satirBasartiBir - 1 & ":A" & Rows.Count).Find(.List(.ListIndex, 0), , , 1)
Refaz
Destek Ekibi
Set bul = sayfaAc.Range("A" & satirBasartiBir - 1 & ":A" & Rows.Count).Find(.List(.ListIndex, 0), , , 1) yerine alttaki gibi yapın.
sayfaAc yerine syfKapali olacak o kodlarda satır silme kodlarında biraz daha var sayfaAc onlarıda değiştirin abey.
Rich (BB code):
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Çözüm
Hunkar50
Yeni Üye
Konuyu Başlatan
Tamamdır hocam
With syfAc.Range("A" & satirBasartiBir & ":A" & sonKapali) kırmızı işaretli yeride kapalı olarak değişince çalıştı ..
With syfAc.Range("A" & satirBasartiBir & ":A" & sonKapali) kırmızı işaretli yeride kapalı olarak değişince çalıştı ..
- Durum