• 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ü FormListe ye değişkene göre sayfadan veri çekme ve veri gönderme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
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 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 seçili veri (Sayfa Adı) hangisi ise kaydet dediğimizde ilgili sayfanın ilgili yerlerine kayıt yapsın
TextBox2 ile görünen veri ile Listwiew' de görünüyorken. Yazdır dediğimizde. ilgili sayfayı aynı zamanda Yazdır sayfasına geçici olarak ekletip yazdırılsın.

Yani;
FormListeden GenelListe sayfasındaki işlemleri yapıyoruz ve TextBox2 ile örneğin A01A sayfasına yada A05A sayfasına ilgili verileri kaydediyoruz. umarım anlatabildim.

NOT: sayfalarda formüllü işlemler var bilginize.
 

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
Refaz
Sayın hocam.
Alttaki gibi yapın ve kw bunları silin koddai k dan önceki boşlukta silinecek zaten sayfada format yapmışsınız kw olayından dolayı formül hata veriyor."000.000" böyle olacak yani.
Ayrıca A01A sayfasında Tablo kullanmışsınız diğerlerinde normal.
Bundan dolayı a = syf.Range("A:A").Find("*", , xlValues, 1, , xlPrevious).Row + 1 ile son satır no buldurdum.
İşin özeti her sayfayı A01A gibi yapın yada dediğim sayfayı diğerleri gibi yapıp kod ayarlayın.
Sayfa koruması varsada koddaki şifre olan yerleri aktif yapıp 123 yerlerine şifrenizi yazın.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Tarihe göre sırala Oylara göre sırala
Sizede.Resimdeki gibi yaptım getirme olayını.

Sayfa araması 5 den başlattım bundan dolayı sayfa adlarını dosyanızdaki gibi devam edin.

1729198317810.png
 

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.
Olumlu oy 0 Negatif oyla
Sayın hocam örnek eklerken 1.olarak exceli gizleme kodlarını pasif edin ikinci olarak sayfa koruma varsa ya kaldırın yada yazın.
Neyse resimdeki gibi olacak şifre yazan yere şifrenizi gireceksiniz ben deneyemedim.

Aynı mantıkla sayfa önizleme olayını yapabilirsiniz

1729199375068.png
 

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.
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam getirme olayı tamam ama kayıt yapmıyor.
Kaydet deyince kayıt yapıldı diyor fakat sayfaya kaydetmiyor.
Gizleme kontrollerini de açtım bu arada galiba gizleme olunca veri aktarmalarda sıkıntı oluyor galiba.
 

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.
Olumlu oy 0 Negatif oyla
okinava14' Alıntı:
Hocam getirme olayı tamam ama kayıt yapmıyor.
Kaydet deyince kayıt yapıldı diyor fakat sayfaya kaydetmiyor.
Gizleme kontrollerini de açtım bu arada galiba gizleme olunca veri aktarmalarda sıkıntı oluyor galiba.
Genişletmek için tıkla...
SSayfa korumalarınıda kaldırın yada safya şifresini yazın koda ekleyelim.Akşam yqda haftasonu bakabilirim.
 
Olumlu oy 0 Negatif oyla
Kaydetme yapıyor.
A kodunuzdaki son satır no bulma A sütunundan yapışsınız ve 6o ıncı satıra kadar rakamlar eklemişsiniz bundan dolayı en alt satıra bakın kaydedince ve kodu ayarlayıp eklerim.
 
Olumlu oy 0 Negatif oyla
3.Mesajdaki kaydet kodunu alttaki gibi yapın.
Son satır No b sütunundan aldırdım ve textboxları temizletmek için Textbox2 yi temizletme kodu eklemeyin çünkü temizlenince listview boş geliyor aramadan dolayı.

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam kayıt işlemi tamam fakat bir fazlalık kod var bir yerde.
G ve H sütunlarının yani kırmızı alanın değerleri (Kodlar) siliniyor. Bu kısmın Form alanındaki karşılığını yanlışlıkla ekledim galiba ve yerini bulamadım. Deneme yanılma yöntemini denedim bulamadım. Bir bakabilirmisiniz.
 

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.
Olumlu oy 0 Negatif oyla
Resime baktım Hafta olan sütundaki rakamları silmişsiniz heralde ekledikçe o sütunada eklenecek.
Dosyayı yarın incelerim belki hata dediğim sütunda sayı olmamasındandır yani 4 yazın bir ne olacak.
 
Olumlu oy 0 Negatif oyla
Ayrıca resimdeki gibi Hafta sütununa sayılar kod ile eklenecekse en mantıklısı koddaki son satır no bulma hafta yazan sütundan yapılmalı.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam dün gece baya uğraştım kodlara hasar vermesini galiba kurtardım derken bu defada kaydet devre dışı kaldı.
Son hali ekte bir bakabilirmisiniz?
 

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.
Olumlu oy 0 Negatif oyla
Sayın hocam.
1.Alttaki kodda Call UserForm_Initialize buna gerek yok ben tek tırnakla pasif yapmıştım siz tekrar aktif yapmışsınız tek tırnağı kaldırıp.
2.syf.Unprotect "Þifre" ve syf.Protect "sifre" gibi yazmışsınız ben size şifre yerine gerçek şifrenizi yazın demiştim ve syf.Protect 123 gibi yazınca hata veriyor çünkü şifre 123 değil galiba mesela A01A sayfasının.

Şifreyi yazın dediğim sayfanın.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Sayın hocam.
Alttaki gibi yapın ve kw bunları silin koddai k dan önceki boşlukta silinecek zaten sayfada format yapmışsınız kw olayından dolayı formül hata veriyor."000.000" böyle olacak yani.
Ayrıca A01A sayfasında Tablo kullanmışsınız diğerlerinde normal.
Bundan dolayı a = syf.Range("A:A").Find("*", , xlValues, 1, , xlPrevious).Row + 1 ile son satır no buldurdum.
İşin özeti her sayfayı A01A gibi yapın yada dediğim sayfayı diğerleri gibi yapıp kod ayarlayın.
Sayfa koruması varsada koddaki şifre olan yerleri aktif yapıp 123 yerlerine şifrenizi yazın.

HTML:
C#:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Hocam sıfırdan yeni bir excel e yazıcam formüllerde karışıklıklar olmuş, bir kısmıda tablo yaptım sanırım ondan kaynaklı. Umarım bu gece bitirebilirsem sabah olası çıkabilecek hata yada eksiklik olursa yazarım.
 
Olumlu oy 0 Negatif oyla
okinava14' Alıntı:
Hocam sıfırdan yeni bir excel e yazıcam formüllerde karışıklıklar olmuş, bir kısmıda tablo yaptım sanırım ondan kaynaklı. Umarım bu gece bitirebilirsem sabah olası çıkabilecek hata yada eksiklik olursa yazarım.
Genişletmek için tıkla...
Tamam.Konuyu kilityorum son verdiğim çalışıyor.
Kolay gelsin hocam.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst