Lİstbox Kodunda Hata???

[belinay42]

İyi akşamlar arkadaşlar

Tablomda bulunan stok kartları ve cari kartlar sayfaları var

Bunları form üzerinde listbox'a aldırmaya çalıştım fakat beceremedim!
Private Sub ListBox2_Click()
Sheets("STOK KARTLARI").Cells(ListBox2.ListIndex + 3, 3).Select
End Sub

Private Sub UserForm_Initialize()
Sheets("AKTARMA").Select
ComboBox1.RowSource = "AA1:AA" & Cells(65536, "AA").End(xlUp).Row
ComboBox1.ListIndex = 0
ListBox1.ColumnCount = 5
ListBox2.ColumnCount = 8
ListBox2.ColumnWidths = "25;70;165;150;100;50;70;80"
ListBox2.RowSource = "STOK KARTLARI!A1:F" & Sheets("STOK KARTLARI").Range("a65536").End(3).RowEnd Sub
Yardım ederseniz memnun olurum

Saygılar

 

[Orion1]

Dosyanız hazır.
Row source metodu ile verileri aladığınızda sayfa isimleri arasında boşluk olmamalıdır.

 

[belinay42]

Sn Evren Gizlen yanlız listboxtaki herhangi bir satıra tıkladığımda;
Sheets("STOK KARTLARI").Cells(ListBox2.ListIndex + 3, 3).Select
satırında hata veriyor?

Birde ricam cari kartlar sayfasın nasıl uygulayabileceğim hakkında yardımcı olursanız sevinirim

Sizler sayesinde güzel bir çalışma yapmak istiyorum

Allah aklınıza akıl versin

Saygılarımla

 

[Orion1]

Dosyanız Hazır.
2 nolu mesajdan dosyayı indirebilirsiniz.

 

[belinay42]

Sn Evren Gizlen

Çok teşekkürler diğer sayfa içinde sadece sayfa isimlerini değiştirip uygulayabilirmiyim?

Emeğinize sağlık

Saygılarımla

 

[belinay42]

Sn Evren Gizlen

Çok teşekkürler sayfa isimleri ve bazı değişikliklerle diğer sayfayada uyguladım

Emeğinize sağlık

Saygılarımla

 

[belinay42]

Ayrıca texbextan aktarılan sayıları excel sayfasına neden [metin olarak saklanan sayı ] olarak aktarıyor??

Çünkü bu benim için büyük sorun

Saygılar

 

[Orion1]

Ayrıca texbextan aktarılan sayıları excel sayfasına neden [metin olarak saklanan sayı ] olarak aktarıyor??

Çünkü bu benim için büyük sorun

Saygılar

Sayısal olarak aktarılacak textboxlara aşaığdaki kodları kendi kodlarınıza uyrlayarak değiştiriniz.

Range("A1").value=cdbl(Textbox1.value)

oluşacak hataları önlemek için kodların en başına on error resume next satırını koyun