textbox ve comboboxların üzerine girilen verilerin sabit kalması

[zfr10]

userform üzerindeki text ve comboboxlar

slm arkadaşlar userform üzerindeki text ve comboboxların üzerine girdiğim verilerin sabit kalmasını istiyorum yardımcı olursanız çok sevinirim.

 

[İhsan Tank]

sabit kalmasından kastınız nedir
ne gibi bir işlem yapmak istiyorsanız örnek dosya üzerinde açıklama ekleyiniz

 

[zfr10]

slm arkadaşlar userform üzerindeki textbox ve comboboxlara girdiğim verilerin sabit kalmasını istiyorum yardımcı olursanız sevinirim.

 

[Skorpiyon]

Sayın zfr10,

İhsan Bey'in de belirttiği gibi, sorunuz net ve anlaşılır değil.

Tüm bilgiler sabit kalacak diyorsanız, Userform'un ve yazılan kodların anlamı ne ? Yok bir kısmı değişsin, benim istediklerim sabit kalsın diyorsanız, hangileri ? gibi.

Saygılarımla,

 

[zfr10]

sayın şaban bey dediğiniz gibi benim istediğim verilerin sabit kalması yani userformu açtığımda ilk girdiğim verilerin kalmasını userformu kapatınca veriler textboxlar veya comboboxlardan silinse de olur.Alakanız için teşekkür ediyorum.
Saygılarımla

 

[NBATMAN]

Merhaba,

Dosyanız ektedir...


istediğinizi GİRİŞ sayfasında yaptım. Kontrol eder misniz?

 

[ynmcan]

sayın şaban bey dediğiniz gibi benim istediğim verilerin sabit kalması yani userformu açtığımda ilk girdiğim verilerin kalmasını userformu kapatınca veriler textboxlar veya comboboxlardan silinse de olur.Alakanız için teşekkür ediyorum.
Saygılarımla

Syn. zfr10;
Ekteki dosyayı inceleyin. İstediğiniz bumu?

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 6
ListBox1.RowSource = "A2:L65350"
ListBox1.BoundColumn = 2
Dim i As Byte

With Sheets("GİRİŞ")
For i = 1 To 6
UserForm1.Controls("ComboBox" & i) = .Cells(1, i + 15)
 UserForm1.Controls("TextBox" & i) = .Cells(1, i + 21)
Next i
End With

End Sub

-------------------------------------------------------------------------

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

With Sheets("GİRİŞ")
For i = 1 To 6
.Cells(1, i + 15) = UserForm1.Controls("ComboBox" & i)
.Cells(1, i + 21) = UserForm1.Controls("TextBox" & i)
Next i
End With

End Sub

 

[zfr10]

Sayın Batman Hocam alakanızda dlayı çok teşekkür ederim fakat demek istediğim olay textbox ve comboboxlar üzerindeki verilerin kayıt ettikten sonra yine textbox comboboxlar üzerinde aynı kalmasını istiyorum.Çalışmanızdan dolayı inanın çok müteşekkirim. Yüce Rabbim zihninize zihin aklınızı daim en yüksekte tutsun.Saygılarımla

 

[ynmcan]

Sayın Batman Hocam alakanızda dlayı çok teşekkür ederim fakat demek istediğim olay textbox ve comboboxlar üzerindeki verilerin kayıt ettikten sonra yine textbox comboboxlar üzerinde aynı kalmasını istiyorum.Çalışmanızdan dolayı inanın çok müteşekkirim. Yüce Rabbim zihninize zihin aklınızı daim en yüksekte tutsun.Saygılarımla

Syn. zfr10;

Önceki mesajlarınızda; " Userformu açtığımda ilk girdiğim verilerin kalmasını " istediğinizi belirtiğinizden dolayı yardımlar o biçimde geldi.

Eğer siz aynı zamanda; " kayıt ettikten sonra yine textbox comboboxlar üzerinde aynı kalmasını " istiyorsanız ekteki dosyayı inceleyin.

Ancak istediğiniz bu değilse yapmak istediğinizi daha belirgin bir biçimde açıklayın.

 

[zfr10]

sayın hocam
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 14
ListBox1.RowSource = "A2:O65350"
ListBox1.BoundColumn = 2
Dim i As Byte

With Sheets("GİRİŞ")
For i = 1 To 6
UserForm1.Controls("ComboBox" & i) = .Cells(1, i + 15)
UserForm1.Controls("TextBox" & i) = .Cells(1, i + 21)
Next i
End With

End Sub
Kodu bu şekilde yazıyorum ama hata veriyor

 

[ynmcan]

sayın hocam
Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 14
ListBox1.RowSource = "A2:O65350"
ListBox1.BoundColumn = 2
Dim i As Byte

With Sheets("GİRİŞ")
For i = 1 To 6
UserForm1.Controls("ComboBox" & i) = .Cells(1, i + 15)
UserForm1.Controls("TextBox" & i) = .Cells(1, i + 21)
Next i
End With

End Sub
Kodu bu şekilde yazıyorum ama hata veriyor

Syn. zfr10;

Kodları yolladığınız dosyaya göre yazdım ve hata vermiyor ( 9. mesajdaki örnek dosyı inceleyin ).
Sizin asıl dosyanızla yoladığınız dosya arasında bir fark olabilir.