• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Yazılan verileri form olarak görünüm ve yazdırma

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
okinava14

okinava14

Bronz Üye
Kullanıcı Bilgileri
Katılım
19 Haz 2022
Mesajlar
438
Aldığı beğeni
71
Excel Versiyonu
Office 2021 TR
Konuyu Başlatan
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

  • 01.png
    01.png
    81 KB · Gösterim: 22
  • 02.png
    02.png
    83.2 KB · Gösterim: 18
  • SON.xlsm
    102.8 KB · Gösterim: 9
Çö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
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

  • SON.xlsm
    133.5 KB · Gösterim: 1
Olumlu oy 0 Negatif oyla
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.
 

Ekli dosyalar

  • Ekran görüntüsü 2023-12-16 015845.png
    Ekran görüntüsü 2023-12-16 015845.png
    92.2 KB · Gösterim: 1
Olumlu oy 0 Negatif oyla
Programı bugün kapattık. yarın yeniden açtığımızda yani.
 
Olumlu oy 0 Negatif oyla
textboxlar boş gelir her yeni açılışta, siz ne olmasını istiyorsunuz
 
Olumlu oy 0 Negatif oyla
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
Private Sub BtnGuncelle_Click()
kısmında
' SATIR indeksini artır
satirIndex = satirIndex + 0
olacak şekilde ayarla
 
Olumlu oy 0 Negatif oyla
ComboBoxlar her açılışta seçim yapıyor menüden
ben mi anlayamadım
 
Olumlu oy 0 Negatif oyla
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

  • SON.xlsm
    141.9 KB · Gösterim: 3
Olumlu oy 0 Negatif oyla
İsteğinizi ayrı bir textbox yapalım orda görünsün her açılışta
 
Olumlu oy 0 Negatif oyla
Hangi kolonda isimler Z2 hücresi sanırım
 
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
Birtane daha ekleyin

Me.TextBox8.Value = ThisWorkbook.Sheets("Veriler").Range("AA2").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
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

  • oldu.png
    oldu.png
    94.9 KB · Gösterim: 2
  • SON.xlsm
    138.3 KB · Gösterim: 4
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
Sorunlarınız bu kısımda düzeldi ise konuyu kapatalım. farklı bir sorunuz olursa yeni konu açın, iyi çalışmalar
 
Olumlu oy 0 Negatif oyla
Tamamdır teşekkürler tekrardan emeğine sağlık, Konu kilit
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst