Procedure too large hatası!!!

[Orion1]

Hocam Trafo1 Trafo 2 şeklinde olacak b sütunu, 1,2,3,4 ifadesini yazdım sonra değiştiririm diye. Yani veriler sayfasındaki b sütunu ve güç trafoları sayfasıda buna bağlı olarak yine değer olacak trafo 1 trafo 2 , trafo a, trafo b diye vs

hocam kusura bakmayın bu kadar etkileyeceğini düşünemedim.

Bakın yaptığınız bu değişiklik ne kadar süremi aldı.
Sorunu tespit edip gidermekle geçti günümüz.
Dosyayı 14 nolu mesajdan indirebilirsiniz.
Dosyayı güncelledim.combolar çalışıyor.Tarihe sonra bakıcaz.bunu bir deneyiniz.

 

[AyYıldızım]

Tamam hocam deniyorum hemen,

 

[AyYıldızım]

Hocam denedim yalnız aynı hata devam ediyor Runtime error 13

Type mismatch hatası

hakkınızı helal edin hocam eksik bilgi verdiğim için. ve değerli vaktinizi harcadığım için.

 

[Orion1]

Hocam denedim yalnız aynı hata devam ediyor Runtime error 13

Type mismatch hatası

hakkınızı helal edin hocam eksik bilgi verdiğim için. ve değerli vaktinizi harcadığım için.

o dosyayıda yolayın.Bende hata vermemişti.

 

[AyYıldızım]

Buyurun hocam

 

[Orion1]

14 nolu mesajdan dosyayı indirip deneyiniz.

 

[AyYıldızım]

Hemen deniyorum hocam

 

[AyYıldızım]

Hocam hata yok ama trafo merkezi seçtiğim zaman sadece bir adet trafo seçebiliyorum. bu seferde

Combobox1 den combobox3 e

 

[Orion1]

Hocam hata yok ama trafo merkezi seçtiğim zaman sadece bir adet trafo seçebiliyorum. bu seferde

Combobox1 den combobox3 e

combobox1 den seçtiğin veriye ait 1 tane varmış demekki o yüzden.

 

[AyYıldızım]

Combobox1 seçtikten sonra combobox3 den 10 adet trafodan birini seçebilmeliyim, benim eklediğim dosyada o şekildeydi ama süzme işlemi yapılmıyordu.

 

[AyYıldızım]

Hocam geç oldu, bu iş uğraştıracak sanırım sizide gece gece yoruyorum

 

[Orion1]

Combobox1 seçtikten sonra combobox3 den 10 adet trafodan birini seçebilmeliyim, benim eklediğim dosyada o şekildeydi ama süzme işlemi yapılmıyordu.

anladım.Kafam allak bullak oldu.
Geçte oldu.Yarın devam edeceğiz.

 

[AyYıldızım]

tamam hocam yarını iple çekeceğim, Saygılarımla, hayırlı geceler.

 

[Orion1]

Dosyayı 14 nolu mesaja güncelledim.
Oradan indirip deneyiniz.(Tarih hariç)

 

[AyYıldızım]

Tamam hocam hemen deniyorum, Hoşgeldiniz bu arada.

 

[AyYıldızım]

Hocam Denedim yalnız Combobox 3 süzme yapmıyor, bende

Dim i As Long, testyil As Long
    Dim ws As Worksheet
    Exit Sub
If IsNumeric(ComboBox3.Value) Then testyil = ComboBox3.Value
Set ws = Worksheets("Veriler")
    ComboBox2.Clear
    For i = 2 To ws.Cells(Rows.Count, "B").End(xlUp).Row
        If CLng(ws.Cells(i, "B")) = testyil Then
            ComboBox2.AddItem ws.Cells(i, "D").Value
        End If
    Next i
Call liste

ComboBox3 deki kodunu kaldırarak sadece Call liste dedim sorun kalmadı 3 comboboxda bu şekilde süzme yapıyor. Böyle çalışması sorun yaratırmı hocam?

 

[Orion1]

Hocam Denedim yalnız Combobox 3 süzme yapmıyor, bende

Dim i As Long, testyil As Long
    Dim ws As Worksheet
    Exit Sub
If IsNumeric(ComboBox3.Value) Then testyil = ComboBox3.Value
Set ws = Worksheets("Veriler")
    ComboBox2.Clear
    For i = 2 To ws.Cells(Rows.Count, "B").End(xlUp).Row
        If CLng(ws.Cells(i, "B")) = testyil Then
            ComboBox2.AddItem ws.Cells(i, "D").Value
        End If
    Next i
Call liste

ComboBox3 deki kodunu kaldırarak sadece Call liste dedim sorun kalmadı 3 comboboxda bu şekilde süzme yapıyor. Böyle çalışması sorun yaratırmı hocam?

dosyadaki hatayı düzelttim.
combobox2deki propertiesten rowsource kutusunu siliniz.
Dosya 14 nolu mesajdadır.

 

[AyYıldızım]

Hocam hata falan vermedi, dediğiniz gibi combobox2 deki rovsource de sildim yalnız bu seferde sorun combobox2 den sonra yıl seçimi combobox3 de 10 yıl 10 yıl artış gösteriyor.

 

[Orion1]

Hocam hata falan vermedi, dediğiniz gibi combobox2 deki rovsource de sildim yalnız bu seferde sorun combobox2 den sonra yıl seçimi combobox3 de 10 yıl 10 yıl artış gösteriyor.

şu şekilde seçim yapın.
combobox1==>combobox3==>combobox2

 

[Orion1]

Hocam hata falan vermedi, dediğiniz gibi combobox2 deki rovsource de sildim yalnız bu seferde sorun combobox2 den sonra yıl seçimi combobox3 de 10 yıl 10 yıl artış gösteriyor.

dosyayı 14 nolu mesaja yükledim.
combobox3 teki kodları aşağıdakilerle değiştiriniz.

Private Sub ComboBox3_Change()
Dim i As Long, testtrafo As String
Dim ws As Worksheet
testtrafo = UCase(Replace(Replace(ComboBox1.Value, "i", "İ"), "ı", "I"))
Set ws = Worksheets("Veriler")
    ComboBox2.Clear
    For i = 2 To ws.Cells(Rows.Count, "B").End(xlUp).Row
        If UCase(Replace(Replace(ws.Cells(i, "A"), "i", "İ"), "ı", "I")) = testtrafo Then
            ComboBox2.AddItem ws.Cells(i, "D").Value
        End If
    Next i
Call liste
End Sub