Sifre UF'u ikidefa aciliyor

Katılım
3 Nisan 2006
Mesajlar
118
Excel Vers. ve Dili
Vers. 2013 Almanca
Arkadaslar su Linkteki (http://www.excel.web.tr/showthread.php?t=21584) sorumu yenilemek istiyorum. Galiba yeterince anlasilir sekilde anlatamadim. Ben kendim tekrar okuyunca eksik anlattigimin farkina vardim.

Tekrar anlatayim:

Sayfa1’ de Isim1 veya Isim2 …… Isim23’ ün altina iki tarih arasi icin 01.01.06 – 05.01.06 (i1, i2, i3….i23) verilerinden birisini kaydetmek icin sayfa1’ e tikladigimda sifre UserForm' u aciliyor ve asagidaki yazmis oldugum sifrelerden birisini UF’ daki TextBox’ a yaziyorum ve „OK“ Buttonuna basiyorum ve kayiti yapmak icin bana müsaade ediyor. Sifreyi yanlis yazarsam beni MsgBox ile „Sifre yanlis“ olarak uyariyor. Buraya kadar güzel.

Ama ayni isi otamatik olarak UserForm' üzerinden kaydetmek istedigimde
ComboBox1 deki Isime giriyorum,
ComboBox2 deki I3’ giriyorum,
TextBox1 deki Tarih baslangic,
TextBox2 deki Tarih bitise giriyorum ve
(Yesil, sari, ……Gri) renklerden birisine tikladigimda, sifre UF’ u aciliyor, sifremi yaziyorum, „OK“ Buttonuna basiyorum, kaydi sayfaya otomatik olarak kaydediyorum ve kayittan hemen sonra tekrar sifre UF’u aciliyor ve sifre istiyor. Yani sifre UF’una ikidefa sifre yazmak zorunda kaliyorum.
Benim istedigim, sifre UF’u Sayfa1’ de oldugu gibi birdefa ekrana gelsin. Sifreyi dogru yazarsam kayda müsaade etsin, yanlissa MsgBox ile beni „Sifre yanlis“ olarak uyarsin ve kaydi yapmasin.

Sayfa1 deki Sifreler:
E3:H34 = Sifre "test1"
I3:L34 = Sifre "test2"
M3:p34 = Sifre "test3"
Q3:T34 = Sifre "test4"
U3:W34 = Sifre "test5"
X3:AA34 = Sifre "test6"

UserForm' daki sifreler: Array olarak
E3:H34 = "test1", "test1", "test1", "test1",
I3:L34 = "test2", "test2", "test2", "test2",
M3:p34 = "test3", "test3", "test3", "test3",
Q3:T34 ="test4", "test4", "test4", "test4",
U3:W34 = "test5", "test5", "test5",
X3:AA34 = "test6", "test6", "test6", "test6"

Saygilarimla
kaleci
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Dosyanızda bazı düzenlemeler yaptım. Özelliklede class module kullanımı kodlarda epeyce azalmaya neden oldu.
 
Üst