ComboBoxa verigirişi

[numan şamil]

ComboBoxa veri girişi

Merhaba arkadaşlar
ekte göndermiş olduğum dosyada veri sayfasındaki formu aç tıklandığında açılan formda Textbox kutusuna sayfa ismini yazıp ara butonuna bastığımızda ilgili sayfanın B-D-E-E-F-G-H ve J-K Sutunlardaki veriler ComboBoxta listelensin ve veri gir butonuna bastığımda açılan 2. forumdaki üç kutucuğa bilgiler girilip ekle butonuna bastığımda
1) UserForm2 deki gidiş tarihine girilen veri ilgili excel sayfasının B sutununun enson veri bulunan hücrenin bir altındaki hücreye
2) UserForm2 deki gün sayısı girilen veri ilgili excel sayfasının D sutununun enson veri bulunan hücrenin bir altındaki hücreye
3) UserForm2 deki dönüş tarihi girilen veri ilgili excel sayfasının E sutununun enson veri bulunan hücrenin bir altındaki hücreye aktarılıp kaydetilsin ve UserForm2 penceresi kapansın
UserForm1 deki veriyi kaydet tuşuna bastığımızda veni girilen veri listenin en altına eklensin Ayrıca ComboBoxta listelenmiş olan veriler ComboBoxta silinmesin veya değiştirilemesin sadece ilgili excel sayfalarından siline veya değiştirilebilinsin (not: excel sayfaları korumalı ve şifreli olacaktır korumalı haldeyken yukarıdaki işlemler gerçekleşmelidir.
iyi çalışmalar

 

[numan şamil]

bir fikri olan yokmu?

 

[ynmcan]

Syn.Numan Şamil;
Ekteki dosyayı inceleyin.

 

[numan şamil]

çok teşekkür ederim sayın ynmcany dosyalarıma hemen uygulayacağım sorun çıkarsa akşam foruma dönerim iyi çalışmalar

 

[numan şamil]

Sayın yncany mesaj 3 de göndermiş olduğunuz dosyayı inceledim Ancak excel sayfaları korumalıyken Userfom2 ye girilen verileri ekle butonuna basınca hata veriyor (excel sayfaları korumasızken normal çalışıyor) excel sayfaları korumalı iken çalışacak gibi ayarlanabilirmi? birde ListBox1 deki listeyi yukarı aşağı kaydıracak bir şey konabilirmi? i
yi akşamlar

 

[ynmcan]

Syn. Numan Şamil;

Ekle butonu koduna, işleme başlarken korumayı kaldıran ve işlem bitikten sonra yeniden korumayı aktif hale getiren, üste ve alta iki satır ekledim.

Bu satırlardaki kırmızı ile belirtiğim şifreyi siz kendi şifrenizle değiştirin.

Listbox1 de satırlar aşağıya doğru dolunca kaydırma çubuğu kendiliğinden gelir.

Private Sub CommandButton1_Click()

ActiveSheet.Unprotect Password:="[COLOR="Red"]12345[/COLOR]"

sat = ActiveSheet.Cells(200, "E").End(xlUp).Row + 1
ActiveSheet.Cells(sat, 2) = UserForm2.TextBox1.Value
ActiveSheet.Cells(sat, 4) = UserForm2.TextBox2.Value
ActiveSheet.Cells(sat, 5) = UserForm2.TextBox3.Value

ActiveSheet.Protect Password:="[COLOR="Red"]12345[/COLOR]" 
Unload Me
End Sub

 

[numan şamil]

Sayın ynmcany
çok teşekkür ederim mükemmel olmuş iyiki varsınız
iyi çalışmalar