Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
13/06/2019 13:33
Konu Sahibi
nightashes
Yorumlar
13
Okunma
718
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 1
  • 2
  • 3
  • 4
  • 5
nightashes

nightashes

Aktif Üye
78791
Se.... Be.... AY....
 34
 38
 147
 30/12/2015
11
 Sakarya
 İnşaat Yük. Müh.
 Ofis 2013 32 Bit
 02/07/2019,14:27
Çözüldü 
Tekrar merhaba,

Sürekli sorular sorup sizleri yoruyorum ama yapmaya çalıştığım excelde sona geldim. Son bir iki sorum olacak. Yardımlarınızdan ötürü şimdiden teşekkür ederim.

Bir form oluşturdum. Bu formda 2 adet listbox bulunmakta. Birincisinde bütün sayfaları sıralandırdım. Ve çift tıklama ile ilgili sayfaya yönlendirmeyi başardım. İkinci formda ise başka bir sayfa bulunan listemi gösterebildim.

Karşılaştığım ve aşmak istediğim sorunlar şunlar:

1- İkinci forma listeden aldığım bilgiler verdiğim aralığı alıyor fakat istediğim son satırda bitmesi. Çünkü listede boş satırlarda görünmekte ve bu listeyi çok uzun tutmakta.

2- Örnek dosyaya bakarsanız sayfa adlarını ikinci listemde bulunan birinci sutundaki kodlara göre açtım. Bu şekilde yapmak istediğim, eğer o koddaki ürünün sayfası varsa birinci listede bulsun ve hatta o sayfaya gitsin. Eğer sayfa yoksa sayfa bulunamadı gibi bir uyarı verebilir.

3- Listboxların üstüne textbox koydum ki istediğim zaman aratma yapabileyim ama bunuda aktif bir hale getiremedim. Acaba text.box a göre arama yı nasıl sağlayabilirim.

4- Son olarak bu listelerde mouse scroll kullanılmıyor. Yani aşağı indirmek için listeyi yan çubuğu kullanmak zorunda kalıyorum. Acaba scroll ile aşağı yukarı listeyi nasıl hareket ettirebilirim.

Şimdiden teşekkürler.



Alıntı:Her şey bir fikirle başlar.

berduş

berduş

Uzman
65596
ha....
 29
 1.399
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
(13/06/2019 13:33)nightashes Adlı Kullanıcıdan Alıntı: 2- Örnek dosyaya bakarsanız...
örnek çalışmanız eklenmemiş görünüyor.
excelde son satır kodu;

Visual Basic Code
Dim SonSatir As Long
    SonSatir = Cells(Rows.Count, 1).End(xlUp).Row



...........
nightashes

nightashes

Aktif Üye
78791
Se.... Be.... AY....
 34
 38
 147
 30/12/2015
11
 Sakarya
 İnşaat Yük. Müh.
 Ofis 2013 32 Bit
 02/07/2019,14:27
(13/06/2019 13:38)haliliyas Adlı Kullanıcıdan Alıntı:
(13/06/2019 13:33)nightashes Adlı Kullanıcıdan Alıntı: 2- Örnek dosyaya bakarsanız...
örnek çalışmanız eklenmemiş görünüyor.
excelde son satır kodu;

Visual Basic Code
Dim SonSatir As Long
    SonSatir = Cells(Rows.Count, 1).End(xlUp).Row


Ekledim sanırım.


Alıntı:Her şey bir fikirle başlar.

berduş

berduş

Uzman
65596
ha....
 29
 1.399
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
(13/06/2019 13:33)nightashes Adlı Kullanıcıdan Alıntı: 1- İkinci forma listeden aldığım bilgiler verdiğim aralığı alıyor fakat istediğim son satırda bitmesi. Çünkü listede boş satırlarda görünmekte ve bu listeyi çok uzun tutmakta.
1. sorunuza cevap aşağıdaki kodu dener misiniz?

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub UserForm_Initialize()
Dim sayfa As Worksheet
Dim SonSatir As Long
    SonSatir = Worksheets("Liste-Maliyet").Cells(4, 3).End(xlDown).Row
ListBox1.Clear
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = "50"
For Each sayfa In Worksheets
ListBox1.AddItem sayfa.Name
Next
With ListBox2
    Do While .ListCount > 0
      .RemoveItem 0
    Loop
  End With

ListBox2.List = Worksheets("Liste-Maliyet").Range("B4:C" & SonSatir).Value
End Sub




...........
berduş

berduş

Uzman
65596
ha....
 29
 1.399
 30/07/2014
218
 -
 
 Ofis 2019 64 Bit
2. sorunuzu biraz daha açıklar mısınız? hangi form, hangi liste kutusu hangi sayfa isimleriyle yazar mısınız?



nightashes

nightashes

Aktif Üye
78791
Se.... Be.... AY....
 34
 38
 147
 30/12/2015
11
 Sakarya
 İnşaat Yük. Müh.
 Ofis 2013 32 Bit
 02/07/2019,14:27
Halil bey ilk soruma vermiş olduğunuz cevap harika bir şekilde işe yaramakta. Teşekkür ederim.

(13/06/2019 14:30)haliliyas Adlı Kullanıcıdan Alıntı: 2. sorunuzu biraz daha açıklar mısınız? hangi form, hangi liste kutusu hangi sayfa isimleriyle yazar mısınız?

Bu soruyu açacak olursam :
Aşağıda sayfa isimlerine dikkat ederseniz hepsi listemdeki ürün kodlamasına göre açıldı.
Yani bir ürün kodu 010211 ise aşağıda ona göre sayfa kodu ile açılmakta.
Liste 2 de demin bana vermiş olduğunuz kodun listesinde yani çift tıkladığım zaman o sayfa gitsin istiyorum.
Tabi sayfa varsa yoksa Sayfa yok bulunamadı felan yazabilir.
Ben böyle mümkün olur olmaz bilemediğim için birinci listeye gitsin diye yazmıştım. Ama eğer liste2 den direk gidebilirsem ne ala.


Alıntı:Her şey bir fikirle başlar.

...........

Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Koşula Göre Başka Sayfaya Ekleme - Silme derzulya 6 379 02/04/2019, 20:21
Son Yorum: derzulya
Çözüldü Düşey Ara İle İlgili notrino 4 612 28/12/2018, 13:37
Son Yorum: untouchable
Çözüldü Userformdaki Listbox denetimini düzenleme devely 3 1.512 06/09/2016, 13:59
Son Yorum: atoz112
Çözüldü Listbox a gelen veriyi kopyalama veya ilgili satıra gitme hsendogan 4 1.750 15/06/2016, 16:57
Son Yorum: atoz112
Çözüldü Sayfadan sayfaya veri aktarımı sitem27 5 1.336 06/03/2016, 20:55
Son Yorum: atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.