Combobox ile sayfa seçimi

[cem yılmaz]

Merhabalar..


Vermiş olduğum örnekte combobox ile sayfalar arası geçişi sağlamak istiyorum.Ben işlemi yaptırdım ama diğer işleme devam edilince hata veriyor.

 

[Korhan Ayhan]

Selamlar,

Kodunuzdaki aşağıdaki bölümden kırmızı renkli bölümü silip denermisiniz.

Private Sub CommandButton1_Click()
    Dim hcr As Range, hcr2 As Range, son As Long
    If TextBox1 = "" Then
    MsgBox "Lütfen tesisat no giriniz !"
    TextBox1.SetFocus
    Exit Sub
    End If
    If ComboBox1 = "" Then
    MsgBox "Lütfen renk seçimi yapınız !"
    ComboBox1.SetFocus
    Exit Sub
    End If
    son = [a65536].End(3).Row
    Set hcr = Sheets("isimler").Range("B1:B8").Find(ComboBox1.Value, lookat:=xlWhole).Offset(0, -1)
    Set hcr2 = Sheets(ComboBox2.Text).Range("A1:A" & son).Find(TextBox1.Value, lookat:=xlWhole)
    If Not hcr2 Is Nothing Then
    hcr2.Cells.Interior.Color = hcr
    hcr2.Offset(0, 1).Value = "YAPILDI"
    Else
    MsgBox "Aradığınız tesisat no bulunamamıştır !"
    End If
End Sub

 

[Ayhan Ercan]

Sayın cem yılmaz


Ek dosyanızı inceledim. Sayfalar arası geçişte hata vermedi. Gayet güzel çalışıyor...

 

[hurkanpisirici]

tesisat no yu yazıp işaretle butonuna basınca hata vriyor hocam

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki kodu güncelledim. Hata kontrolleri ekledim. Denermisiniz.

 

[hurkanpisirici]

korhan hocam süper olmuş ellerinize sağlık.

 

[cem yılmaz]

Korhan hocam Teşekkür ederim
Ayhan hocam sizede teşekkür ederim

yalnız sayfa eklediğim zaman eklediğim sayfalar combobox içinde gözükmüyor.Daha önceden Ayhan hocamın yaptığında sayfayı eklediğimde otomatik olarak isim ekleniyordu

 

[Ayhan Ercan]

.....sayfa eklediğim zaman eklediğim sayfalar combobox içinde gözükmüyor.

Sn cem yılmaz

Userformun initialize olayındaki kodları aşağıdakiler ile değiştirerek deneyiniz...

Private Sub UserForm_Initialize()
Dim sayfa As Worksheet
For Each sayfa In Worksheets
ComboBox2.AddItem sayfa.Name
Next
ComboBox2.Value = Sheets(1).Name
End Sub

 

[cem yılmaz]

Sağolun ayhan hocam problemim çözüldü