• 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ü Listboxdan Secili Kapalı sayfadan verileri Listbox a aktarmak .

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
56
Excel V
Office 2010 TR
Konu Sahibi
Cümleten Selamün Aleykum

Hocamlarım yine takıldım...
Ana sayfa Çalışma kitabımızda AnaSayfa(vba) mızdaki Listbox1 e tıkladıgımızda , Multi page de bulunan Bina listesinde yer alan Listbox7 ye kapalı sayfadaki L6 ; U46 daki yer alan veriler gelmesi gerekiyor..
Aynı keza listbox üzerinde yer alan textboxlardan gerekli bilgileri butonlar ile ekleme, güncelleme ve silme işlemini de yapabilmem gerekiyor.

eklerken ilk boş satıra eklemeli, silme işleminde silinen verinin yerini alttaki veriler ile doldurması gerekiyor,
örnek : 15 verimiz var ve 14 numaralı veriyi sildim, 15 nolu veriyi 14 nolu veri nin yerine almalı, yalnız veri silerken satır silme işlemi yapamayız çünki sol tarafında kayıtlı veriler olacak...


İlginize teşekkür ederim.. Hayırlı Günler .
 

Ekli dosyalar

Tarihe göre sırala Oylara göre sırala
Konu Sahibi
Bu tür bir işleme neden ihtiyaç duydum ;
Multi page de Asansör listesi1 ve asansör listesi2 diye bir yer ekledim.. ve içerisine textboxlar yerlerştirdim..
Bu textboxlardan veri ekleyebilecektim, tabi jeton köşeli oldugu için sonradan aklıma geldi, hem sınırlı yer ekleyebilecektim hemde tek tek veri eklemek için vba da çok kod yazacaktım ki yazdım :)
sonra jetonun düşme sesini duydum bir listbox la istediğin kadar veri ekleyebilir, silebilir ve düzenleyebilirdim..

Excel vba da sınırlı düşünce yapısına sahip oldugum ve bakış açımın dar olmasından dolayı, siz hocalarımada tabiri caisse eziyet oluyorum ve farklı işlemler sundugum için affınıza sıgınıyorum.. Excel çözüm ailesinden Allah razı olsun...

Ve Bir <Ricam daha olcak şu bagış sekmesindeki iban numarasının sakıncası yoksa aktif hale getirirseniz sevineceğim...

Teşekkür ediyorum Allah emanet.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
HTML:
HTML:
İçeriği görebilmek için Giriş yap ya da üye ol.


Bu kodlarla, seçili sayfadan verileri alabiliyorum ama 2-3 saatir satır sayısını artırmak için ugraşıyorum başaramadım

seçili sayfadan : L7 : U satırını sıralayabiliyorum ama L7 den aşağıya dogru olan verileri L19 a kadar listbox da görüntüleniyor.. başka kapalı sayfa seciyorum bu kezde L7 den L18 e kadar listbox a sıralıyor ,,

ne yaptımsa L7 den başlayıp aşagıya dogru yer alan dolu verileri listbox a sıralayamadım

teşekkürler
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Olumlu oy 0 Negatif oyla
Konu Sahibi
Yukarıdaki Kodları Tesisekle diye bir (userform) açtım içerisinde textbox1 +listbox1 ve listbox2 var
orada işlem yaptırmaya çalışıyorum..

Anlam veremediğim nokta aaabina da 12 veri sıralarken kapadokya yonetim yazan da 13 veri sıralıyor kapalı sayfadamı hata yapıyorum...

hücre dolulugunu hangi sutundan alıyor ?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
40 tane bina her 2 kapalı cari sayfasında da mevcut ama görünen birinde 12 diğerinde 13
 

Ekli dosyalar

  • hatalı.jpg
    hatalı.jpg
    424.5 KB · Gösterim: 8
  • hatali1.jpg
    hatali1.jpg
    369.4 KB · Gösterim: 8
Olumlu oy 0 Negatif oyla
Kodu f8 ile adımlayıp ss kaç çıkacak inceleyin.Sadece kodunuzu düzenlemiştim.Artık forumdaki kınuları algılamakta zorlandığım için forumda gezmekte içimden gelmiyor :)
Birde kodunuzda kapalı dosya açılıyor ama örnek cells yazan yerlerin önüne eklemeli bazı kodlar.Sanıyorum bir sürü kod yazmıştık size bu şekilde mesela dim ac as workbbok gibi yanılmıyorsam.
Benim zamanım yok bu aralar sadece düzeltme yapmıştım.Kolay gelsin.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Refaz' Alıntı:
Kodu f8 ile adımlayıp ss kaç çıkacak inceleyin.Sadece kodunuzu düzenlemiştim.Artık forumdaki kınuları algılamakta zorlandığım için forumda gezmekte içimden gelmiyor :)
Birde kodunuzda kapalı dosya açılıyor ama örnek cells yazan yerlerin önüne eklemeli bazı kodlar.Sanıyorum bir sürü kod yazmıştık size bu şekilde mesela dim ac as workbbok gibi yanılmıyorsam.
Benim zamanım yok bu aralar sadece düzeltme yapmıştım.Kolay gelsin.
Genişletmek için tıkla...
19 çıkıyor hocam ss
neden 19 çıktıgına bakıyorum ama anlamadım.
evet çok tasarımımda yardımcı oldunuz , siizn kodlarınızı farklı işlemlere uyarlayıp yol almaya çalışıyorum..
 
Olumlu oy 0 Negatif oyla
Şimdi kodları teferruatlıca inceledeim.
ss = Cells(Rows.Count, 1).End(xlUp).Row
Yukardaki kod A sütununun son dolu satır numarasını verir 12 ve 13 çıkması bundan yani mesela aabina da A son satır no 18 ve L18 de 12 var.

Alttaki ve End if koda gerek yok onada dikkat etmemiştim.
If k = 12 Or k = 13 Or k = 14 Or k = 15 Or k = 16 Or k = 17 Or k = 18 Or k = 19 Or k = 20 Or k = 21 Then
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam Peki Biz A değil de L son satır bulmamız gerek.
L sutununa nasıl çevirecegiz..
_______________________________________________________________

ss = Cells(Rows.Count, 1).End(xlUp).Row = bu kodda yazan 1 ibaresi sutun sayısımı ?
1 yazanı 12 yapınca hepsini sıraladı !

12. Sutun L sutunu
 
Olumlu oy 0 Negatif oyla
Hunkar50' Alıntı:
Hocam Peki Biz A değil de L son satır bulmamız gerek.
L sutununa nasıl çevirecegiz..
_______________________________________________________________

ss = Cells(Rows.Count, 1).End(xlUp).Row = bu kodda yazan 1 ibaresi sutun sayısımı ?
1 yazanı 12 yapınca hepsini sıraladı !

12. Sutun L sutunu
Genişletmek için tıkla...
L sütununda nekadar varsa o kadar sıralar.Bynun için kendiniz dosyayı ayarlamanuz gerek.
 
Olumlu oy 0 Negatif oyla
Deneyiniz.
 

Ekli dosyalar

Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Hocam Elinize Emeğinize saglık..
Listbox7 den seçili veriyi sil dediğimde görsel olarak siliyor ama kapalı sayfadan silmiyor.
güncellede aynı keza işlem yapıyor..

şu an kendimce biraz düzenleme yaptım ama takıldıgım 1-2 husus olacak onuda farklı konu altında sizinle paylaşacağım...

Teşekkürler.
 
Olumlu oy 0 Negatif oyla
İşlem sonrası kaydete basın.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst