ComboBoxta nereye tıklarsam ayrı yerde işlem

[mami68]

Sayın üstadlarım ComboBoxta nereye tıklarsam ayrı yerde işlem olacak dosyada vba-da açıklaması vardır.

ComboBox1.AddItem "KOMBİ DOLABI 100 CM." tıkladığım zaman Sayfa2!- de (c-f)arası kayıt olacak
ComboBox1."AddItemKOMBİ DOLABI 120 CM." tıkladığım zaman Sayfa2!-de (I-L)arası kayıt olacak
ComboBox1."AddItemKOMBİ DOLABI 80 CM" tıkladığım zaman Sayfa2!-de (o-r)arası Kayıt olacak

İlginize Teşekürler.

 

[mami68]

Olabilecek mi....

 

[Levent Menteşoğlu]

Sorunuz anlaşılmıyor, daha ayrıntılı açıklama yapın.

 

[mami68]

Sayın leventm selamlar,kombi dolabı 100 cm-yi listeden boşluğa aldığım zaman onun işlemini Sayfa2'de C ve F kolon arası işlemi girecem.İkinci işlemde kombi dolabı 120 cm seçtiğimde aynı sayfada sadece I ve L arası kolonlarda işlemini yapacam.Ve böyle 60 tane ürünün işlemin listeden seçerek aynı sayfada farklı kolonlarda (sütunlarda) işlem görecek.Bilmem aydınlatabildim mi.Ama siz eğer iki ürünün işlemini yaparsanız obür kalan 58 işlemi ben devam edecek şekilde bırakmanızı ricada bulunurum.İlginize teşekürler.



ComboBox1.AddItem "KOMBİ DOLABI 100 CM." tıkladığım zaman Sayfa2!- de (c-f)arası kayıt olacak
ComboBox1."AddItemKOMBİ DOLABI 120 CM." tıkladığım zaman Sayfa2!-de (I-L)arası kayıt olacak
ComboBox1."AddItemKOMBİ DOLABI 80 CM" tıkladığım zaman Sayfa2!-de (o-r)arası Kayıt olacak

 

[mami68]

yeni bir açıklama dosyayı gönderdim.

 

[Orion1]

Ekli dosyayı inceleyiniz.
Kodlar sayfasındaki diğer başlıklarıda sırasına göre Sayfa1'e ekleyebilirsiniz.
Program kayıt yapacaktır.

Private Sub CommandButton1_Click()
Dim i As Byte, sat As Long
If ComboBox2.ListCount < 1 Then Exit Sub
If ComboBox2.ListIndex < 0 Then Exit Sub
sat = Cells(65536, (ComboBox2.ListIndex * 6) + 3).End(xlUp).Row + 1
If sat >= 65536 Then
    MsgBox "Sat&#305;r Doldu .Bu Veriden ba&#351;ka kay&#305;t yapamazs&#305;n&#305;z..!!", vbCritical, "D&#304;KKAT"
    Exit Sub
End If
If TextBox1.Value = "" Then
    MsgBox "Devir stok bo&#351; olamaz.!" & vbLf & "Kay&#305;t Yap&#305;lmad&#305;..!!", vbCritical, "D&#304;KKAT"
    TextBox1.SetFocus
    Exit Sub
End If
Cells(sat, (ComboBox2.ListIndex * 6) + 3).Select
ActiveCell.Value = TextBox1.Value
ActiveCell.Offset(0, 1).Value = TextBox2.Value
ActiveCell.Offset(0, 2).Value = TextBox3.Value
ActiveCell.Offset(0, 3).Value = TextBox4.Value
MsgBox "Kay&#305;t Yap&#305;ld&#305;..!!", vbOKOnly + vbInformation, "KAYIT"
For i = 1 To 4
    Controls("TextBox" & i).Value = Empty
Next
TextBox1.SetFocus
End Sub


Private Sub UserForm_Initialize()
Sheets("Sayfa1").Select
ComboBox2.RowSource = "KODLAR!A1:A" & Sheets("KODLAR").Cells(65536, "A").End(xlUp).Row
ComboBox2.ListIndex = 0
End Sub

 

[mami68]

Sayın orion2 Hızır gibi yetişiyorsunuz vede yetiştiniz.Elleriniz dert görmesin.Teşekkürler ORİON2

 

[Orion1]

Sayın orion2 Hızır gibi yetişiyorsunuz vede yetiştiniz.Elleriniz dert görmesin.Teşekkürler ORİON2

Rica ederim.
İyi çalışmalar.