[Yardım]  Combobox hakkında yardım

Açılır liste kutusu.

Combobox hakkında yardım

İleti#1)  dreamymost48 » 04 Tem 2018 10:44

arkadaşlar merhaba.
Bir sınıf listesi hazırlıyorum userform içinde combobox ekledim. yapmak istediğim şey excelde sayfalar oluşturdum (sayfa1 - sayfa2 - sayfa3 ) şeklinde. bunlara isim verdim
10A - 10B - 10C şeklinde. yapmaya çalışıpta beceremediğim şey butona tıkladığımda combobox dan sınıfı seçicem bilgileri girip kayıt dediğimde o sayfaya kaydedecek yardımcı olabilirmisiniz. combobox olmayan kodlarım.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

Cevap: Combobox hakkında yardım

İleti#2)  tasad » 04 Tem 2018 12:08

Kod: Tümünü seç
Option Compare Text
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Sheets.Count
If ComboBox1.Value = Sheets(i).Name Then
Sheets(i).Select
End If
Next i
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cevap: Combobox hakkında yardım

İleti#3)  dreamymost48 » 04 Tem 2018 12:18

tasad yazdı:
Kod: Tümünü seç
Option Compare Text
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Sheets.Count
If ComboBox1.Value = Sheets(i).Name Then
Sheets(i).Select
End If
Next i
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub



hocam verdiğin kodu ekledim combobox un içi boş sayfaları seçemiyorum ?
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

Cevap: Combobox hakkında yardım

İleti#4)  tasad » 04 Tem 2018 12:29

Combobox a manuel olarak sayfa adını yazarsan gider.sayfa isimlerini combobox a almak istiyorsan,biraz işim var öğleden sonra yapmaya çalışırım.
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Combobox hakkında yardım

İleti#5)  dreamymost48 » 04 Tem 2018 12:33

tasad yazdı:Combobox a manuel olarak sayfa adını yazarsan gider.sayfa isimlerini combobox a almak istiyorsan,biraz işim var öğleden sonra yapmaya çalışırım.

tamam hocam beklerim sağol.
Kullanıcı avatarı
dreamymost48
Yeni Başlamış
 
Kayıt: 04 Tem 2018 10:40
Meslek: Tasarımcı
Yaş: 36
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: MUĞLA

Cevap: Combobox hakkında yardım

İleti#6)  tasad » 04 Tem 2018 14:45

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 1 To Sheets.Count
If ComboBox1.Value = Sheets(i).Name Then
Sheets(i).Select
End If
Next i
Range("A2").Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A2").Value = "" Then
Range("A2").Value = 1
Range("A2").Select
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0) + 1
End If
ActiveCell.Offset(0, 1).Value = TextBox1.Text
ActiveCell.Offset(0, 2).Value = TextBox2.Text
ActiveCell.Offset(0, 3).Value = TextBox3.Text
MsgBox ("Kayıt Tamamlandı")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
ComboBox1.AddItem Sheets(i).Name
Next
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 133
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe