Çözüldü combobox 'la çekilen isimleri sıralasın

[c.sadak]

hayırlı akşamlar Refaz bey
özür diliyerek başlıyorum sayfa isimlerinin güncelenmesi bozulmuştu daha önce kaydet tuşu ile yapılıyordu
ben sayfa nomaralarını kaldırdım çünkü kayıt yaparken denetleme yapmıyordu sildiğim bir sayfanın numarasının özerine yazıyordu onun için gereksizdi.
size zahmet boş vaktiniz olursa biraz ilgilenirseniz size minnetar olurum

1.listboxtan sayfaya gitmesini sağlamak
2.silme işlemini yapması
3.sayfa isimlerinden değişiklik yapılması yani günceleme yaması

size çok teşekür ediyorum yaprsanızda yapmasanızda tekrar hayırlı akşamlar

 

[c.sadak]

1.listboxtan sayfaya gitmesini sağlamak
bunu halletim diğer ikisini inşallah yaparsınız

 

[Refaz]

Hayırlı akşamlar.
ilk önce mesaj yazarken kullanınıcı adı önüne @ işareti koymazsanız haber gelmiyor.
2.Olarak önceden listbox ve combobox sütunlarını 2 sütunluk yapmıştık ama bu dosyada tek sütunluk yapmışsınız bundan dolayı kodlar tümden değişecek.
Önceden alternatifler vermiştim tek sütun olacaksa diye ama sonraki konularınızda yine 2 sütunda devam etmiştiniz bunda ise tek.

2 sütunluk basitti ve sadece ikinci sütun genişliğini0(Sıfır) yapacaksınız diye galibe iki kere yazmıştım.
Her neyse bu dosyaya akşama doğru uğraşıp hallederim ama ricam buna göre devam emeniz abey.
Kodları değiştirmek zor değil ama karar vermeniz gerekiyor 2 sütunluk yapıp ikinciyi gizlemekmi yoksa tek sütun için kodmu yazayım.

 

[Refaz]

Mesela önceki konunuzun 21.Mesajında genişliği 0 yapın yazmışım,22.Mesajda tek sütunluk yapmıştım alternatif olarak.

Çözüldü - Combobox araması müşteri ismiyle olsun

selam arkadaşlar herkese hayırlı akşamlar sizlerden biraz yardım istiyorum. frm_Yeni usrerform'un cbmno combobox bülümünde sayfa nomaralarıyla sayfaya gidiliyor sizden istediğim sayafa no değilde sayfadaki C3 hücrseindaki müşrilerin ismiyla gidilsin.yani cbmno combobox'a sayfada bulunan C3...

excelcozum.com

 

[Refaz]

Birde silme butona tıklayınca silme butonu üzerinde açılsın ayarlamıştım çünkü userform üzerine maus gelince açılan listbox kapansın yapmıştım.
Yai sil butona tıklayınca userform üzerinde maus dolaşmasın yada o kod silinip userforma tıklayıncada listbox kapanıyor kod ordada var.Yani ayarlayamazsanız userformmousemove kodlarını silin ve formdaki herhangi bir boş yere tıklayın yada başka çözümde olabilir.

 

[c.sadak]

o mesajların hepisini unut
sizden istediğim daha ünce yapmıştınız ben sayfa numaralarını iptal edince bozuldu sayfaya gidilmsei ve sayfaların silinmesi
1.isimleri tıklayınca sayfaya gidilsin (bunu yaptım tekrar bi yerde 1i 0 yapınca çalıştı size zahmet diğer ikisini yaparsanız sevinirim

2.listeyi çift tıkayınca sayfa silinsin
3.sayfa ismini veye felefon nosunu değiştire bileyim yani güncelame yapılması

 

[Refaz]

Zaten unuttumda karar verin diye yazdım nasıl devam edilecekse ona göre kod yazmak için.

İnşaAllah akşama doğru ve tek sutunluk yapacağım.
Aslında bayağı çabalamışsınız kodda gördüm ama tek sütunluk olmadığı için yapamamışsınız.Dikkat ettiyseniz silme kodunda listboxsil.text ve listboxsil.value gibi vardı burdaki text sayfa adı,value ise listboxun ilk sutunundaki isimlerdi.
Birde orda columntext=2 vardı yek situn olunca bu satıra gerek yok ve silinecek vs...

 

[Refaz]

Dosyanız ekte.

3.sayfa isimlerinden değişiklik yapılması yani günceleme yaması

Yukardaki kısımda kod yok.Kod eklersiniz.
Artık alttaki gibi kullanırsınız aramada yada silme yada güncellemelerde numara olayını kaldırmışsınız.

HTML:

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

 

[c.sadak]

elerine sağlık sayfalara gitmeyi ve silme işleminı yapmışsınız
bir sayfa ismini yada telefonu düzeltmek istersek nası olacak yani günceleme nasıl olacak

 

[c.sadak]

sayfayı silmek istediğimde bu hatayı veriyur
Sheets("Anasayfa").Range("A" & kac & "" & ss).Value = Sheets("Anasayfa").Range("A" & kac + 1 & "" & ss + 1).Value

 

[Refaz]

Rica ederim.
Birkaç yoldan olabilir.Mesela bir güncelleme form eklenir oraya ilgili sayfanın verileri çekilir.Orda işlem yapılır.Yada silmede yapılan gibi listbox eklenir çift tıklama ile o forma seçilen sayfa veriler alınır ve orda güncellenir.
Böyle yapma sebebi comboxan seçim yapılınca form kapanıyor.yada güncelleme buton silinip onun yerine bir listbox eklenir form içine ama devsmlı görünür.Ordaki sayfa adına sağ tıklayınca sil ve güncelleme butonlar çıkartılır ordan işlem yapılır vs...
Ben kendim için yaptışım şu.
Bir listbox ekliyom forma ve sağ tık menü yapıyom sil ve güncelle butonları çıkıyor ona göre fofmlar açtırıp orda silme yada güncelleme yapıyorum

 

[Refaz]

sayfayı silmek istediğimde bu hatayı veriyur
Sheets("Anasayfa").Range("A" & kac & "" & ss).Value = Sheets("Anasayfa").Range("A" & kac + 1 & "" & ss + 1).Value

Bir gif ekleyin.Koddaki gülmelerin karşılığı ne harfmi mi mesela.Ben silmede hata almamıştım.Hata sebebi anasayfa da arama yaşılıyordu orda aranan bulunmadıysa hata vermiştir.O koduda zaten başkası yazmış

 

[c.sadak]

birinci silmede siliyor ikinci seferde o hatayı veriyor

D harfı

 

[c.sadak]

büyle hata veriyor

 

[Refaz]

Dediğim gibi o kodları başlası yazmış.

Kod hata verince mausu ss ve kac yazan yerin üzerine getirin değerler çıkar yazın buraya.

 

[c.sadak]

Dediğim gibi o kodları başlası yazmış.

Kod hata verince mausu ss ve kac yazan yerin üzerine getirin değerler çıkar yazın buraya.

ss=9

 

[Refaz]

Kac?Birde hata mesaj nedir.Belki birleştirilmiş hücre vardır son dolu satır yada altında.

 

[c.sadak]

Kac?Birde hata mesaj nedir.Belki birleştirilmiş hücre vardır son dolu satır yada altında.

ss=9
kac=7

 

[Refaz]

Tam bilmiyorum ama anasayfanın a8:d10 aralığında birleştirilmiş hücre olabilir.
Hata mesajını yazın ve neyi nasıl yapıyorsanız adım adım yazın ve dosya ekleyin bizde deneyelim tabii ben yarın akşama doğru bakarım ama bir ihtimal mesajı görüp ilgilenende çıkabilir o vakte kadar

 

[c.sadak]

silme işide tamam sayfa korumalı olduğu için hata veriyormuş
size zahmet sayfadaki isimlerinin değşikliği için günceleme yede bi bak bilirmisiniz