• 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.

    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

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

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
Gerekli açıklamayı Resim e yazdım arkadaşlar..
Excelcozum ün degerli hocalarına Teşekkürler.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Refaz
Hunkar50' Alıntı:
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)
Genişletmek için tıkla...
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.

HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
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.

HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.


Screenshot 2022-03-21 215838.png
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
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.

HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.




Ekli dosyayı görüntüle 6789
Genişletmek için tıkla...

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
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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 ?
 
Olumlu oy 0 Negatif oyla
Hunkar50' Alıntı:
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 ?
Genişletmek için tıkla...
Commandbutton17click koduna ekledim dosyadada var abey.
Listbox1click olayında hata vermemei gerekti normalde.Ve nasıl hata verdi bir resim atın.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Dosyayı kapatıp yeniden açtım bu kez hata bu resimlerdeki gibi hocam
sizin son gönderdiğiniz dosyanın hata msj
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Deneyin abey.
Genişletmek için tıkla...
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ı " :)
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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)
 
Olumlu oy 0 Negatif oyla
Hunkar50' Alıntı:
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)
Genişletmek için tıkla...
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.

HTML:
Rich (BB code):
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Tamamdır hocam
With syfAc.Range("A" & satirBasartiBir & ":A" & sonKapali) kırmızı işaretli yeride kapalı olarak değişince çalıştı ..
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst