birleştirilmiş hücreler

[yavuzadak]

4 adet birleştirilmiş hücrem var b22,c22,d22,e22 ...Sorun şu ;
listboxt ta tanımlama güçlüğü çekiyorum b22 olarak kabul etmiyor?ne yapabilirim acaba?

 

[zafer]

Merhaba

B22 'den başlayarak 4 adet hücreyi birleştirdim

B22 ye xxxxxxx yazdım

Userform'da Listbox1 Rowsource kısmına sayfa1!b22
yazdım

Userformu çalıştırdığımda

listbox1'de xxxxxxx yazdı.

Saygılarımla

 

[yavuzadak]

Tşk ederim zafer hocam ama rica etsem örnekleyebilirmisin?

 

[zafer]

Merhaba

 

[Levent Menteşoğlu]

Birleştirilmiş hücre kullanımı kod yazmayı çok güçleştirdiği için bundan kaçınmanızı özellikle tavsiye ederim.

 

[yavuzadak]

ama hocam bu seferde arada boşp hücreler var onları nasıl iptal edicem
orayı düzeltsem bu sefer üst tarafta bozluyor...bi fikir verirseniz sevinirim... hatta ek dosyayıda göndereyim

 

[zafer]

Merhaba


Sayın Leventm'in dediği doğrudur.

Ben B22 den E22 kadar tek bir birleştirilmiş hücre olduğunu farzederek öneride bulundum.

Dosyayı eklermisiniz.


Saygılarımla

 

[yavuzadak]

dosya ektedir

 

[zafer]

Merhaba

Listbox1'in
ColumnWidths Ã?zelliğine

49.95 nk;0 nk;0 nk;0 nk;49.95 nk;49.95 nk;49.95 nk;49.95 nk;49.95 nk

Satırı yapıştırın ,büyüklükleri siz ayarlayın 0 değerlerine dokunmayın.

Private Sub UserForm_Initialize() kısmında
Kodu
ListBox1.ColumnCount = 9 olarak değiştirin.


Yukarıda bahsedildiği gibi kod yazarken ve hesaplama yaparken zorluk çıkarabilir.


Saygılarımla

 

[Levent Menteşoğlu]

Sn Zafer beyin önerisi en ideal çözüm gibi görünüyor. Bundan hareketle userform_initializedeki listbox1 ile ilgili kodları aşağıdaki ile değiştirin.

[vb:1:c6bf2c9026]ListBox1.ColumnHeads = True
ListBox1.ColumnCount = 9
ListBox1.ColumnWidths = "300;0;0;0;50;50;50;50;50"
ListBox1.TextAlign = 2
ListBox1.RowSource = "hicon!b22:j30"[/vb:1:c6bf2c9026]

 

[yavuzadak]

tşk ediyorum hocam elinize sağlık k::

 

[yavuzadak]

otvsi = Val(miktar * fiyat) * 67 / 1000

bu kod ile userformda doğru hesap ediyor ama kaydederken miktar ve fiyat çarpımını 67 ile çarpıyor ve 10 a bölüyor.yardım pls...

 

[zafer]

Merhaba
Sayın Levetm'in yanlışlıklara sebeb olmaktan anlatmak istediği işte buydu.

Sizin 9 kolonunuz var

Kolonları yanlış yazmışsınız
ilk 4 kolon ürün için geçerli
siz miktarı 1 kolon olarak göstermişsiniz doğrusu 5. kolondur

Aşağıdaki kodları düzenledim

Private Sub ListBox1_Click()
ComboBox2 = ListBox1.Column(0)
miktar = ListBox1.Column(5)
fiyat = ListBox1.Column(6)
otvsi = ListBox1.Column(7)
nakliye = ListBox1.Column(8)
tutar = ListBox1.Column(9)
End Sub

Diğerlerini bunlara göre düzenleyin

Saygılarımla

 

[yavuzadak]

tşk ederim zafer hocam ilgine ...
bir sorum daha olacak ama fiyat ve miktar ın çarpımının %6,7 sini nasıl hesaplatırım acaba?

 

[zafer]

Merhaba

Hesaplama doğru fakat tek tek kodları inceleyip kolon numaralarını ve textbox ları inceleyip işlemleri ona göre yapacaksınız.


Kolon numaraları

Private Sub ListBox1_Click()
ComboBox2 = ListBox1.Column(0)
miktar = ListBox1.Column(4)
fiyat = ListBox1.Column(5)
otvsi = ListBox1.Column(6)
nakliye = ListBox1.Column(7)
tutar = ListBox1.Column(8)
End Sub

Saygılarımla

 

[yavuzadak]

kontrol ediyorum ama bi yerde hata var zafer hocam dediğinide yazıyorum ama hala hata devam ediyor...dosya ektedir.bi bakarmısın pls...

 

[zafer]

Merhaba

 

[yavuzadak]

zafer hocam listbox da ki hesaplaması gözünden kaçtı galiba orda yanlış hesap ediyor

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.


otvsi = miktar * fiyat * 0.067

 

[zafer]

Merhaba

Evet formüle bakmamışım.Ben sadece Textboxların üzerindeki label'ler yanlış olmuş onları düzelttim