Combox yada başka bir yol

[ReBiwAr]

Merhaba arkadaşlar,

Data girişleri ve bu girişler için bi userform hazırladım. Bu userformda bazı değerleri kullanıcı elle giriyor ama bazılarını comboxtan seçmeli. Yani sadece benim belirlediğim değerleri. Daha sonra kaydet diyince nasıl textboxlarda yazanlar istediğim hücrelere gidiyorsa manuel seçtiği değerlerde gitmeli.

Ancak bunu nasıl yapcam? Yardımlarınız için teşekkürler....

 

[ReBiwAr]

Ayrıca combox dışında başka birşey kullanabilirmiyim. Combox kullanmayı hatta exceli bu siteden öğrenen biri olarak yardım bekliyorum

 

[Fuat Şirin]

örnek dosya ekleyin
halledelim hemen

 

[Fuat Şirin]

dosya ekte

küçük bir giriş yaptım
istediğinizi bunu üzerinde değiştirerek yaparız
ne istediğinizi yazarsınız...
saygılar....

 

[Skorpiyon]

Sayın parlemenn,

Galiba örnek bir dosyadan bahsediyorsunuz. Ama eklemeyi unutmuşsunuz sanırım.

 

[ReBiwAr]

Örnek Dosya.

Uygulanacak dosya değildir. Bu dosyadan anlamam yardımcı olursanız makbule geçer

 

[Fuat Şirin]

kusura bakmayın

dalgınım bu ara kusura bakmayın
sayfa1 de a sutununa
girdiğiniz veriler
combobox a alınır

"sayfa1!a2:a500"

Private Sub CommandButton1_Click()
On Error Resume Next
Dim i As Integer
For i = 2 To 32000
    If (Sayfa2.Cells(i, 1) = "") Then
        Sayfa2.Cells(i, 1) = TextBox1.Text
        Sayfa2.Cells(i, 2) = TextBox2.Text
        Sayfa2.Cells(i, 3) = ComboBox1.Text
        UserForm_Initialize
        TextBox1.SetFocus
        Exit Sub
    End If
    Next i
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!a2:a500"
End Sub

bu dosya üzerinden sorunuz olursa yardımcı olalım

 

[Skorpiyon]

Sayın ReBiwAr,

Göndermiş olduğunuz dosya üzerinden örnek ektedir.

 

[ReBiwAr]

Private Sub CommandButton2_Click()
       Son_Dolu_Satir = Sheets("sayfa1").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("sayfa1").Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("sayfa1").Range("A:A")) + 1
    
    Sheets("sayfa1").Range("B" & Bos_Satir).Value = TextBox1.Text
    
    Sheets("sayfa1").Range("C" & Bos_Satir).Value = TextBox2.Text
    
    Sheets("sayfa1").Range("D" & Bos_Satir).Value = TextBox3.Text
    
    Sheets("sayfa1").Range("E" & Bos_Satir).Value = TextBox4.Text

    
 
End Sub

bu kodda tex 3 yazan kısmı combobox ile kontrol etmek istiyorum.


Bu kodun altında combobox u oluşturabiliyorum ancak tekbox3 kısmı yerine combobox olarak bişe yazamıyorum. Yardım İstiyorum....


Kısaca texbox3 yerine comboboxu nasıl yaparım...

Teşekkürler...

 

[ReBiwAr]

Private Sub CommandButton2_Click()
       Son_Dolu_Satir = Sheets("sayfa1").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("sayfa1").Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("sayfa1").Range("A:A")) + 1
    
    Sheets("sayfa1").Range("B" & Bos_Satir).Value = TextBox1.Text
    
    Sheets("sayfa1").Range("C" & Bos_Satir).Value = TextBox2.Text
    
    Sheets("sayfa1").Range("D" & Bos_Satir).Value = TextBox3.Text
    
    Sheets("sayfa1").Range("E" & Bos_Satir).Value = TextBox4.Text

    
 
End Sub

bu kodda tex 3 yazan kısmı combobox ile kontrol etmek istiyorum.


Bu kodun altında combobox u oluşturabiliyorum ancak tekbox3 kısmı yerine combobox olarak bişe yazamıyorum. Yardım İstiyorum....


Kısaca texbox3 yerine comboboxu nasıl yaparım...

Teşekkürler...

Kendi sorunumu kendim çözdüm. Sagolasın Excel web tr....



Çözüm hali(bari başkalarıda yararlansın

Private Sub CommandButton2_Click()
       Son_Dolu_Satir = Sheets("sayfa1").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("sayfa1").Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("sayfa1").Range("A:A")) + 1
    
    Sheets("sayfa1").Range("B" & Bos_Satir).Value = TextBox1.Text
    
    Sheets("sayfa1").Range("C" & Bos_Satir).Value = TextBox2.Text
    
    Sheets("sayfa1").Range("D" & Bos_Satir).Value = ComboBox1.Text
    
    Sheets("sayfa1").Range("E" & Bos_Satir).Value = TextBox4.Text

    
 
End Sub

Private Sub UserForm_Activate()
ComboBox1.AddItem "AKJ01"
ComboBox1.AddItem "AMBALAJ"
ComboBox1.AddItem "MNTEGZ"
ComboBox1.AddItem "MNTKABİN"
ComboBox1.AddItem "MNTMTES"
ComboBox1.AddItem "MNTPANO"
ComboBox1.AddItem "MNTŞAS01"
ComboBox1.AddItem "JENTEST"
End Sub