• 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.

Çözüldü Userformda Seçilen verilerin değerleri formda ve excelde getirilmesi

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

Yeni Üye
Katılım
19 Haz 2022
Mesajlar
673
Çözümler
3
Aldığı beğeni
128
Excel V
Office 2021 TR
Konu Sahibi
Sorunum bu defa biraz karışık ama eminim ustalarım için kolaydır.
Userformda "B6_GrvAntet" içindeki ListBox "ListPersonel" bulunan isimlere tıklayınca ve yanındaki görevlerden bazılarını seçiyoruz. Seçilenler Listviewe gelsin ve aynı zamanda excel "GrvAntet" sayfasında dökülsün. Yazdır butonuna tıklayınca yazdırsın.

Tümünü seç butonu kodlarım yok onuda eklerseniz sevinirim.
 
Sorunum bu defa biraz karışık ama eminim ustalarım için kolaydır.
Userformda "B6_GrvAntet" içindeki ListBox "ListPersonel" bulunan isimlere tıklayınca ve yanındaki görevlerden bazılarını seçiyoruz. Seçilenler Listviewe gelsin ve aynı zamanda excel "GrvAntet" sayfasında dökülsün. Yazdır butonuna tıklayınca yazdırsın.

Tümünü seç butonu kodlarım yok onuda eklerseniz sevinirim.
Tümünü seç için commadn button yerine toggle button a kod ekledim. Bir tıkla hepsini seç, bir tıkla seçimler iptal

HTML:
CoffeeScript:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
Teşekkürler emeğine sağlık. Tümünü seç olayı halloldu. şimdi asıl sorun kaldı sadece.

Userformda "B6_GrvAntet" içindeki ListBox "ListPersonel" bulunan isimlere tıklayınca ve yanındaki görevlerden bazılarını seçiyoruz. Seçilenler Listviewe gelsin ve aynı zamanda excel "GrvAntet" sayfasında dökülsün. Yazdır butonuna tıklayınca yazdırsın.
 
Tümünü seç için commadn button yerine toggle button a kod ekledim. Bir tıkla hepsini seç, bir tıkla seçimler iptal

Private Sub ToggleButton1_Click()
Dim ctrl As Control
If ToggleButton1.Value = True Then

For Each ctrl In B6_GrvAntet.Controls
If TypeName(ctrl) = "CheckBox" Then
ctrl.Value = True
End If
Next ctrl
ToggleButton1.Caption = "SEÇİMLERİ İPTAL ET"

Else
For Each ctrl In B6_GrvAntet.Controls
If TypeName(ctrl) = "CheckBox" Then
ctrl.Value = False
End If
Next ctrl
ToggleButton1.Caption = "TÜMÜNÜ CEÇ"
End If
End Sub
Modüle 3teki auto_close makrosunu sil. Modüle1 de var. kapatırken uyarı veriyor.
Ekteki dosyada yazdır sayfasında son 10 veri dediğin için sıralamada en büyük değere göre işlem yaptım.
Userformdaki B6_GrvAntet deli listeye verileri GrvVer den aldırdım. Listbox SayVer sayfasından sek sek veri alır mı bilmiyorum.
Buraya kadar ekli dosyada. İnceleyin. Şu an köyde cep internetinden yazıyorum. Kolay gelsin.
 
Konu Sahibi
isimler geldi fakat seçilen kişinin görevlistesi "ListView1" ve Excel de "GrvAntet" sayfasına ekleme olayı henüz yok ama olsun kademe kademe ilerlemek daha iyi oldu bu sayede bende anlayarak öğrenmiş oluyorum emeğine sağlık.
 
Konu Sahibi
Seçilen kişinin görevlistesi "ListView1" ve Excel de "GrvAntet" sayfasına ekleme olayı yok. bu noktada yardım edebilecek hocalarımın yardımlarını rica ediyorum.
 
Deneyiniz.
 
Çözüm
Konu Sahibi
"ListView1" olay tamam emeklerine ve yüreğine sağlık.
sadece Excel de "GrvAntet" sayfasına ekleme olayı kaldı. yazdır butonuna tıklayınca "GrvAntet" sayfasına aktarmalı ve yazdırılsın mı diye soruya EVET denirse antet sayfasını yazdırması kaldı yardımlarınızı bekliyorum.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst