• 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ü Yazılan verileri form olarak görünüm ve yazdırma

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
Herkese hayırlı geceler. İki aşamalı bir veri güncelleme ve yazdırma işlemi var aşamanın birinci bölümü sadece veri güncelleme, diğer alanda güncelle tıklayınca Tahsis sayfası görünümü olan pencere veriler sayfasına dökülüyor.
İkinci Aşaması ise; form sayfasına aktarılacak verilerde sağ köşedeki bilgiler Mühür veya kaşe mantığında farklı satır ve stunlara gelmesi gerekiyor.
Kısaca bir hata ve bir eksiğim var. Umarım desteklerinizi eksik etmezsiniz.
 

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
asax
TektBox eklemeden sadece başlıkta görünmesi için

Initialize() olayının end sub dan öncesine ekleyin

Dim z2Value As Variant
Dim aa2Value As Variant

z2Value = ThisWorkbook.Sheets("Veriler").Range("AA2").Value
aa2Value = ThisWorkbook.Sheets("Veriler").Range("Z2").Value


Me.Caption = " " & z2Value & " - " & aa2Value

'bu kısmı ister yazın ister çıkartın
Me.TextBox7.Value = ThisWorkbook.Sheets("Veriler").Range("Z2").Value
Me.TextBox8.Value = ThisWorkbook.Sheets("Veriler").Range("AA2").Value
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
Teşekkürler ama uyumsuzluk hatası verdi.
Run-time 380 hatası "Listindex özelliği ayarlanamadı. Geçersiz özellik değeri."
Sizin verdiğiniz kodlar çalıştırmadı malesef.

Hatalı hali yolluyorum.
 

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
Senide baya yordum hakkını helal et. ama maalesef olmadı yeniden başlatınca Şehir rütbe kısımı gözükmüyor.
Birde yüzdelik sayılar bozulmuş onları ben halletmeye çalışacağım.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Desenize 2 gündür boşa emek harcadık. Ordaki amaç Her şehir de ve ilçelerde Amirler, memurlar zaman zaman değişiyor. İstiyoruzki Mesela benim şehir bende sabit ama amirlerim her ilde ve ilçede değişken sürekli yazmasınlar aynısını diye son kullanıcıya kolaylık olsun diye.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Comboboxların seçiminde sorun yok.
Örneğin: Amir olarak Murat seçtik ve kaydettik. işlerimiz bitti. Ertesi gün programı yeniden açtığımızda Murat gözüksün tekrardan seçilmesin. Ekranda Murat gözüksün.
Ne zaman değiştirelim. Mesela Murat 9 ay sonra giderse yerine yeni amir ismini o zaman ekleme yapalım. Yani 9 ay boyunca Murat' ı sürekli seçmemek için. Combobox hazır olmuş olsun demek istiyorum.

Birde şimdi dikkatimi çekti Tahsis Sayfasında tahsis grubundan kimi seçersek o satırın C ve D sütunlarındaki sabitler değişiyor.
Örnek: Tahsis grubundan "Teknik Hizmetler" seçersek C8 ve D8 sütunlarındaki var olan excel formülleri yok oluyor. Bu hata 22 nolu mesaja ait kodları ekleyince başladı.
 

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
forma TextBox ekleyin muhtemelen ismi TextBox7 olacak

Initialize() olayının end sub dan öncesine ekleyin

' "Veriler" sayfasındaki Z2 hücresindeki değeri TextBox7'ye aktar
Me.TextBox7.Value = ThisWorkbook.Sheets("Veriler").Range("Z2").Value
 
Olumlu oy 0 Negatif oyla
TektBox eklemeden sadece başlıkta görünmesi için

Initialize() olayının end sub dan öncesine ekleyin

Dim z2Value As Variant
Dim aa2Value As Variant

z2Value = ThisWorkbook.Sheets("Veriler").Range("AA2").Value
aa2Value = ThisWorkbook.Sheets("Veriler").Range("Z2").Value


Me.Caption = " " & z2Value & " - " & aa2Value

'bu kısmı ister yazın ister çıkartın
Me.TextBox7.Value = ThisWorkbook.Sheets("Veriler").Range("Z2").Value
Me.TextBox8.Value = ThisWorkbook.Sheets("Veriler").Range("AA2").Value
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Hocam emeğine sağlık hakkını helal et. Allah senden bin kere razı olsun.
Tamam oldu bence sadece ben bunu uyarlarım sıkıntı yok istediğim olmuş. Yalnız kafama biryer takıldı. Örnek resimde yuvarlak alana aldığım alan nedir ne işe yarar? Size zahmet öğrenmek için soruyorum.
Birde daha öncede belirtmiştim karambole geldi. 30 Nolu mesajdaki sorunumu halledemedim.
"Tahsis Sayfasında tahsis grubundan kimi seçersek o satırın C ve D sütunlarındaki sabitler değişiyor.
Örnek: Tahsis grubundan "Teknik Hizmetler" seçersek C8 ve D8 sütunlarındaki var olan excel formülleri yok oluyor. Bu hata 22 nolu mesaja ait kodları ekleyince başladı."

Programın son hali ekte Tekrar teşekkürler.
 

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
Formun başlığında ve textbox ta görünsün diye yazdığım kodlar için tanımlama
önce kapı yapılır , kilit yapılır, anahtar yapılır.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst