userform combobox ilgili

[dreamymost]

arkadaşlar userform da comboboxda misal 3 adet seçenek var ben 2. seçip formu doldurduğumda adı soyadı gibi kaydet dediğimde sayfa2 3. seçtiğimde sayfa3 e kaydetme olayını nasıl yapıcaz varmı böle bişey yardımcı olurmusunuz

 

[htsumer]

UserForm1'in Initialize olayına;

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next i
End Sub

Yazdıktan sonra Userde Comboya sayfalar gelecek.

Private Sub ComboBox1_Change()
On Error Resume Next
Sheets("" & ComboBox1.Text).Select
ComboBox1 = Empty
End Sub

Kaydetmek istenilen veriler, seçim sonrası o sayfaya

Private Sub CommandButton1_Click() 
Range("a1").Select 
ActiveCell.Formula = TextBox1 
End Sub

kodları ile kaydedilecek..

 

[dreamymost]

hocam kayıt yaptığım sayfa 1 kapatıp açtım tekrar kayıt yaptımda gene 1. hücreye yazdı onu nasıl ayarlicaz 1 2 3 diye gitsin hep aynı yere yazmasın ?

 

[htsumer]

Kaydet butonundaki kodlar sadece A1 için.Sizin kaydetmek istediğiniz mantık nasılsa onu söyleyin ona göre kaydetme şeklinde kod verelim..

Sitede kaydetmeye ait çok kod var.Araştırıp size uygun olanı alın..

 

[dreamymost]

A B C D E F G 1 ile 50 arası sayfa 1 2 3 için geçerli ve her kayıtta 1 atlicak

1 dgdgdgg
2 dghfghf
3 gfhfghfhgf

seklinde aynı yere yapmicak kaydı

 

[htsumer]

Burdaki dosya içindeki kodlar işine yarar.

http://www.excel.web.tr/showpost.php?p=472689&postcount=3

 

[dreamymost]

teşekkürler hocam