• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
okinava14

okinava14

Yeni Üye
Katılım
19 Haz 2022
Mesajlar
673
Çözümler
3
Aldığı beğeni
128
Excel V
Office 2021 TR
Konu Sahibi
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?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Ö
Gold Bitiş
14 Ekim 2025
okinava14' Alıntı:
Hocam sanki oldu sorun yok verdiğiniz kodlarda.
hiç bozmadan :) sıfır değeri olan sütunları boş yani gizleyebiliyor muyuz.
Genişletmek için tıkla...
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...
Tarihe göre sırala Oylara göre sırala
okinava14' Alıntı:
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?
Genişletmek için tıkla...
liste.SubItems(3) = Format(syf.Cells(i, 4).Value, "#,##0.000") & " TL"

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

Bu şekilde deneyiniz.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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
 
Olumlu oy 0 Negatif oyla
Ö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ı.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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.
Genişletmek için tıkla...
 
Olumlu oy 0 Negatif oyla
okinava14' Alıntı:
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.
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam sanki oldu sorun yok verdiğiniz kodlarda.
hiç bozmadan :) sıfır değeri olan sütunları boş yani gizleyebiliyor muyuz.
 
Olumlu oy 0 Negatif oyla
okinava14' Alıntı:
Hocam sanki oldu sorun yok verdiğiniz kodlarda.
hiç bozmadan :) sıfır değeri olan sütunları boş yani gizleyebiliyor muyuz.
Genişletmek için tıkla...
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")
 
Olumlu oy 0 Negatif oyla
Çözüm
okinava14' Alıntı:
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.
Genişletmek için tıkla...
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.
 
Olumlu oy 0 Negatif oyla
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.

excelcozum.com

Çö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 excelcozum.com
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Bir incelim hocam.
Refaz' Alıntı:
Ö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.
Genişletmek için tıkla...

Refaz' Alıntı:
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.

excelcozum.com

Çö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 excelcozum.com
Genişletmek için tıkla...
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
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.
Genişletmek için tıkla...
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
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ı.


1.png


2.png
 
Olumlu oy 0 Negatif oyla
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst