Çözüldü Kapalı sayfa kayıt işleminde, Hücre birleştir ve metni kaydır özelliği

[Hunkar50]

Gerekli açıklamayı Resim e yazdım arkadaşlar..
Excelcozum ün degerli hocalarına Teşekkürler.

 

[Refaz]

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:

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

 

[Hunkar50]

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:

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

Ekli dosyayı görüntüle 6789

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]

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 ?

 

[Refaz]

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 ?

Commandbutton17click koduna ekledim dosyadada var abey.
Listbox1click olayında hata vermemei gerekti normalde.Ve nasıl hata verdi bir resim atın.

 

[Hunkar50]

Hata bu hocam

 

[Hunkar50]

Dosyayı kapatıp yeniden açtım bu kez hata bu resimlerdeki gibi hocam
sizin son gönderdiğiniz dosyanın hata msj

 

[Refaz]

Hata bu hocam

Deneyin abey.

 

[Hunkar50]

Deneyin abey.

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]

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)

 

[Refaz]

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)

Bugün bakarım nasipse.

 

[Refaz]

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) 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:

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

 

[Hunkar50]

Tamamdır hocam
With syfAc.Range("A" & satirBasartiBir & ":A" & sonKapali) kırmızı işaretli yeride kapalı olarak değişince çalıştı ..