Çözüldü Listwiev Sayı yanına simge işareti

[okinava14]

Hayırlı geceler herkese. Son 2 sorunum kaldı kıymetli üstat hocalarımın yardımı ile inşaAllah bitecek. Bu konu.
Bu sayfada ilkini rica edicem yeni konuda diğerini sonra açarım.
Şimdiki sorunum aslında yapmıştım fakat kaydetme kısmında excelin sayfasındaki değerlerin formülüne zarar verdi.
Sizlerden ricam TextBoxlar ve Listwievde girilen sayısal değerlerin yanına Kw, Tl ve Yüzde % sembollerini eklemek istiyorum. Yardımcı olurmusunuz acaba?

 

[Özcan ÖZBEK]

Hayırlı geceler herkese. Son 2 sorunum kaldı kıymetli üstat hocalarımın yardımı ile inşaAllah bitecek. Bu konu.
Bu sayfada ilkini rica edicem yeni konuda diğerini sonra açarım.
Şimdiki sorunum aslında yapmıştım fakat kaydetme kısmında excelin sayfasındaki değerlerin formülüne zarar verdi.
Sizlerden ricam TextBoxlar ve Listwievde girilen sayısal değerlerin yanına Kw, Tl ve Yüzde % sembollerini eklemek istiyorum. Yardımcı olurmusunuz acaba?

liste.SubItems(3) = Format(syf.Cells(i, 4).Value, "#,##0.000") & " TL"

TextBox11.Text = Me.ListView1.SelectedItem.ListSubItems(10).Text & " TL"

Bu şekilde deneyiniz.

 

[okinava14]

Hocam listwiewe geliyor ekliyor fakat sayfada sıkıntı oldu. Bende bunu anlatmaya çalışmıştım buna benzer bende denemiştim.
hemen hemen aynı sorun resimde dikkatli bakarsanız göreceksiniz.

 

[okinava14]

Acaba excel den sayı biçimlerini iptal etsek ve sadece form üzerinden kod ile işlesek gene çakışma yada benzeri sorun yaratırmı yada excel formüllere zarar verirmi hocam

 

[Refaz]

Önceden bu dosyayı denemiştim.Listviewde kw gibi formatlı olup sayfaya böyle kaydedince formüller bozuluyordu.
Öneri olarak sayfaya kaydederken replace vs.. gibi kodlarla kw gibi olanları temizletip sayısal olarak sayfaya kaydetmek.
Kaydedincede kaydedilen sütun yada satır formatını kod ile değiştirmek.
Böylece formülde bozulmaz bence.

Yarın bir deneyebilirim yazdıklarımı.

 

[okinava14]

Hocam sizde hep bana abone oldunuz maşaAllah. Allah razı olsun.
Bu arada1. mesajdaki resimde sıfır değerlerini gizleme kodları basitse 1 örnek yazarmısınız bana. Bende onları yapmaya çalışayım bari.

Alttaki dediğiniz mantıklı geliyor bence sadece kod fazlalığı olcak ama olsun hızda yavaşlama olmaz sanırım.

Öneri olarak sayfaya kaydederken replace vs.. gibi kodlarla kw gibi olanları temizletip sayısal olarak sayfaya kaydetmek.
Kaydedincede kaydedilen sütun yada satır formatını kod ile değiştirmek.

 

[Özcan ÖZBEK]

Hocam listwiewe geliyor ekliyor fakat sayfada sıkıntı oldu. Bende bunu anlatmaya çalışmıştım buna benzer bende denemiştim.
hemen hemen aynı sorun resimde dikkatli bakarsanız göreceksiniz.

syf.Cells(a, 4) = CDbl(Trim(Replace(TextBox6.Value, " Kw", "")))

Kaydet düğmesindeki ifadeyi bu şekilde değiştirip deneyin. Kw yerine ilgili satırda " TL" yazın.

 

[okinava14]

Hocam sanki oldu sorun yok verdiğiniz kodlarda.
hiç bozmadan sıfır değeri olan sütunları boş yani gizleyebiliyor muyuz.

 

[Özcan ÖZBEK]

Hocam sanki oldu sorun yok verdiğiniz kodlarda.
hiç bozmadan sıfır değeri olan sütunları boş yani gizleyebiliyor muyuz.

getirbina modülünde liste.SubItems(7) ve liste.SubItems(10) u aşağıdaki gibi değiştirin.

liste.SubItems(6) = Format(syf.Cells(i, 7).Value, "0#.#0")
If syf.Cells(i, 8).Value = 0 Then
liste.SubItems(7) = ""
Else
liste.SubItems(7) = Format(syf.Cells(i, 8).Value, "")
End If

liste.SubItems(8) = Format(syf.Cells(i, 9).Value, "0#.#0")

If syf.Cells(i, 10).Value = 0 Then
liste.SubItems(9) = ""
Else
liste.SubItems(9) = Format(syf.Cells(i, 10).Value, "0#.#0")
End If

liste.SubItems(10) = Format(syf.Cells(i, 11).Value, "#,##0.#0")

 

[Refaz]

Hocam sizde hep bana abone oldunuz maşaAllah. Allah razı olsun.
Bu arada1. mesajdaki resimde sıfır değerlerini gizleme kodları basitse 1 örnek yazarmısınız bana. Bende onları yapmaya çalışayım bari.

Alttaki dediğiniz mantıklı geliyor bence sadece kod fazlalığı olcak ama olsun hızda yavaşlama olmaz sanırım.

Sizdende amin.
Bende özcan abeyin yaptığı gibi düşünüyordum gerek kalmadı.
Son resimdeki fazlalıklar için eğer başka konunuzda kod eklemiştim son satır no bulmak için find metodu kullanmıştım.
O kodu dosyada kullandıysanız bence resimdeki gibi çıkmazdı.
Klasik olanı kullandıysanız a sütunundaki formüllerden dolqyı en alttaki formülü son satır no olarak buluyordu boş gibi görüksede A sütun.

 

[Refaz]

Yani alttaki linkteki 14.Mesajdaki gibi a değişkenini find ile yaptıysanız boş satırlar listviewde görükmez diye tahmin ediyorum dosya içeriğini bilmeden bu konudaki.

Çözüldü - FormListe ye değişkene göre sayfadan veri çekme ve veri gönderme

Hayırlı geceler herkese bir ricam olacak kıymetli üstat hocalarımdan. Ben epey yol aldım gibi ama bir yerden sonra tıkandım. Sorunum şöyle: FormListe' de TextBox2 de seçilen veri (Aynı zamanda Sayfa Adı) ilgili sayfanın istenen verilerini Listwiew 'e GETİR butonu ile çeksin. TextBox2 ' deki...

excelcozum.com

 

[okinava14]

Hocam malesef sonuç bu:

 

[okinava14]

Bir incelim hocam.

Öneri olarak sayfaya kaydederken replace vs.. gibi kodlarla kw gibi olanları temizletip sayısal olarak sayfaya kaydetmek.
Kaydedincede kaydedilen sütun yada satır formatını kod ile değiştirmek.

Yani alttaki linkteki 14.Mesajdaki gibi a değişkenini find ile yaptıysanız boş satırlar listviewde görükmez diye tahmin ediyorum dosya içeriğini bilmeden bu konudaki.

Çözüldü - FormListe ye değişkene göre sayfadan veri çekme ve veri gönderme

Hayırlı geceler herkese bir ricam olacak kıymetli üstat hocalarımdan. Ben epey yol aldım gibi ama bir yerden sonra tıkandım. Sorunum şöyle: FormListe' de TextBox2 de seçilen veri (Aynı zamanda Sayfa Adı) ilgili sayfanın istenen verilerini Listwiew 'e GETİR butonu ile çeksin. TextBox2 ' deki...

excelcozum.com

 

[Refaz]

Hocam malesef sonuç bu:

Evet sayın hocam tahmin ettiğim gibi find kullanılmamış.For i ordaki to dan sonra benin yazdığım a= den sonraki kodu uygulayın belki sayfa adı değişebilir orda.

 

[okinava14]

Hata veriyor hocam yanlış yapdıysam eğer.

Evet sayın hocam tahmin ettiğim gibi find kullanılmamış.For i ordaki to dan sonra benin yazdığım a= den sonraki kodu uygulayın belki sayfa adı değişebilir orda.

 

[Refaz]

Sayın hocam ben daha birşey yazmayayım en iyisi
Ben ne yazıyorum siz ne yapıyorsunuz

Neyse gün içinde dediğim yeri düzeltirim eğer yapan olmazsa.

 

[Refaz]

Yinede mobilden anlatmaya çalışayım.
12.Mesajdaki
for i= 10 to
Yukardaki to dan sonra boşluk bırakıp a= den sonraki kısmı oraya ekleyin sondaki +1 i silip.

 

[Refaz]

Sayın hocam bu konu olarak son defa yazıyorum.
Önceden düzelttiklerimizi tekrar neden bozuyorsunuz anlamıyorum.
2.Resimdeki gibi genel sayfası kodda yanlış yazıldığı açılışta veriler gelmiyor.O gördüdüğünüz yerlere ya Sayfa39 yazacaksınız yada defalarca yazıldığı gibi sheets gibi sayfa isimlerinin yazıldığı kalıplar var onu kullanacaksınız ve gördüğüm başka yerlerdede var
dediklerim.
ikinci olarak ilk resimdeki gibi yapacaksınız dün dediğim olayı ve çok yerdede aynı durum var.
Normalde ilk resimdeki işaretli yeri bir değişkene atayım yapsanız ve son satır no mesela 10 dan küçükse exit sub gibi yapmanız gerek normalde ama şimdilik dediğimi yapsanızda yeter tabii istiyorsanız.
Ayrıca yine açılışta excel gizlenmiş neyse artık demekki hocam sorum bizlerde var anlatamama olayı.