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

Derecelendirme: 0/5 - 0 oy
nightashes

nightashes

Aktif Üye
78791
Se.... Be.... AY....
 33
 38
 144
 30/12/2015
11
 Sakarya
 İnşaat Yük. Müh.
 Ofis 2013 32 Bit
 13/06/2019,17:31
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.

halily

halily

Uzman
65596
Ha....
 26
 1.157
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:32
(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....
 33
 38
 144
 30/12/2015
11
 Sakarya
 İnşaat Yük. Müh.
 Ofis 2013 32 Bit
 13/06/2019,17:31
(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.

halily

halily

Uzman
65596
Ha....
 26
 1.157
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:32
(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



...........
halily

halily

Uzman
65596
Ha....
 26
 1.157
 30/07/2014
209
 -
 
 Ofis 2019 64 Bit
 Bugün,22:32
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....
 33
 38
 144
 30/12/2015
11
 Sakarya
 İnşaat Yük. Müh.
 Ofis 2013 32 Bit
 13/06/2019,17:31
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
  Seçili Hücrelerin Diğer Sayfaya Aktarması arif1971 0 276 29/12/2017, 17:10
Son Yorum: arif1971
  Belirli Koşulları Sağlayan Değerleri Başka Bir Sayfaya Aktarma nudiref 1 380 17/11/2017, 16:46
Son Yorum: nudiref
  iki tarih arasındaki tarihleri ilgili hücrede gösterme ercansahiner 1 1.016 27/12/2015, 11:15
Son Yorum: ercansahiner
  kayda git(kayıt bul) işlemini listbox taki verilerden seçerek yapabilirmiyim fkilic76 0 1.279 05/02/2015, 17:54
Son Yorum: fkilic76
  Excel 2 çalışma sayfasındaki farkları boş bir sayfaya dökme plazma 1 1.197 31/01/2015, 14:31
Son Yorum: yok_06

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