• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Procedure too large hatası!!!

Hocam işin içine girdikçe, iş uzuyor sorunda artıyor ama iskeleti tamam ben buna göre geliştirebilirim. ama yapabilirsek şunlar var.

1. Tarih sütununa göre liste otomatik tekrar sıralansın(en yakın tarih en üstte olacak şekilde) çünkü eski verileride karışık bir şekilde gireceğim için bu durum önemli.


2. Birde bu userformu tam ekran, küçük ekran ve fare ile sağından solundan ekranı küçültme ve taşıma yapmak için ne yapmalıyım(nesnelerde otomatik büyüyecek şekilde) (halit beyin örneğinde var ama ne yaptıysam olmadı)

3. Listviewin tamamında veyahut ilk 11 textbox ve ilk 3 comboboxdaki değerlere göre bulma textboxu koyulabilirmi? yada sizin önerebileceğiniz bir bulma yöntemi?

birde matematiksel işlemler var hocam asıl işe yeni başlıyorum,

(textbox19*10)/textbox18=textbox20 ye atanacak(Textbox18 virgülden sonra 2 hane textbox19 virgülden sonra 3 hane olacak şekilde ben ikiside virgülden sonra aynı hane olduğu zaman yapabiliyorum ama bu şekilde yapamadım sonuç yanlış çıkıyor. textbox virgülden sonra 2 hane olacak(textbox19 virgülden sonra 3 hane bu önemli)

Textbox 20*Textbox505=Textbox21 olacak textbox20 virgülden sonra 2 hane textbox 21 virgülden sonra 2 hane olacak.

hocam dediğim gibi bende sorun çok
 
Hocam kullanırken farkettimde lisviewdeki verileri değiştirmek istediğimde değiştirme işlemi yanlış gerçekleşiyor değişmesi gereken satır değişmiyor en üstteki satırdaki kayıt yerine yeni kayıt oluşuyor değişmesi gereken satır kalıyor en üst satırda gidiyor. Daha sonra aynı satırı tekrar değiştimek istediğimde normal değişiyor. yani kısacası bu değiştirme işleminde bir sıkıntı var, vaktiniz olursa bir bakarmısınız hocam, saygılar.

Bilgisi olan arkadaşlarda bu durumla ilgilenirse sevinirim. dosya 14. mesajda
 
Durum soru başlığı dışına çıktı.
Lütfen yeni bir başlık açarak sorunuzu oradan sorunuz.
İlgilenen arkadaşlar çıkacaktır.
Kolay gelsin.
 
Tamam hocam, yeni başlık açıyorum. hocam kodlamayı siz yaptığınız için değiştirmedeki hataya bir bakabilirmisiniz. Saygılar.
 
AyYıldızım' Alıntı:
Tamam hocam, yeni başlık açıyorum. hocam kodlamayı siz yaptığınız için değiştirmedeki hataya bir bakabilirmisiniz. Saygılar.
Genişletmek için tıkla ...
Değiştirme kodunu ben yaptığımı hatırlamıyorum.!Ama yinde bir bakayım.:cool:
 
Userformda Genel frame içinde olan kutuları başka bir yere alın.oraya yeni boxlar koyun.ve dosyayı bana yollayın,bakayım.
 
hocam 14. mesajınızdaki dosyada bunlar var, şimdi yeniden kutu koymak uğraştıracak 504 tane textbox var, yada yanlış mı anladım acaba. değiştir butonunun kodunu paylaşsam olurmu hocam
 
Kod: 
Dim Satir As Long, sh As Worksheet
' SAYFADA VERİYİ BULUP, KAYDI DEĞİŞTİRİR(Trafo % pf testleri)
If ListView1.SelectedItem Is Nothing Then
    MsgBox "Lütfen listeden bir seçim yapınız!", vbCritical, "UYARI"
    Exit Sub
End If
If MsgBox("Seçili satırı değiştirmek istiyormusunuz?", vbYesNo, "DEĞİŞTİR") = vbNo Then
    ListView1.SelectedItem = Nothing
    Exit Sub
End If
Set sh = Sheets("GüçTrafolarıTestleri")
Satir = ListView1.SelectedItem.Index
Satir = ListView1.SelectedItem.Index + 8 ' 13 RAKAMINI SÜTUN SAYINIZA GÖRE AYARLAYIN
sh.Cells(Satir, 2) = TextBox2.Text
sh.Cells(Satir, 3) = ComboBox1.Text
sh.Cells(Satir, 4) = ComboBox2.Text
sh.Cells(Satir, 5) = TextBox3.Text
sh.Cells(Satir, 6) = ComboBox3.Text

For i = 7 To 16
    sh.Cells(Satir, i) = Controls("TextBox" & i - 3)
Next i
sh.Cells(Satir, 17) = ComboBox4.Text
For i = 18 To 70
    sh.Cells(Satir, i).Value = Controls("TextBox" & i - 4)
Next i
sh.Cells(Satir, 71) = ComboBox5.Text
sh.Cells(Satir, 72) = TextBox67.Text

For i = 73 To 132
    sh.Cells(Satir, i) = Controls("TextBox" & i - 5)
Next i

sh.Cells(Satir, 133) = ComboBox6.Text
sh.Cells(Satir, 134) = TextBox128.Text

For i = 135 To 224
    sh.Cells(Satir, i) = Controls("TextBox" & i - 6)
Next i

sh.Cells(Satir, 225) = ComboBox7.Text
sh.Cells(Satir, 226) = TextBox219.Text

For i = 227 To 241
    sh.Cells(Satir, i) = Controls("TextBox" & i - 7)
Next i
sh.Cells(Satir, 242) = ComboBox8.Text
sh.Cells(Satir, 243) = TextBox235.Text

For i = 244 To 377
    sh.Cells(Satir, i) = Controls("TextBox" & i - 8)
Next i
sh.Cells(Satir, 378) = ComboBox9.Text
sh.Cells(Satir, 379) = TextBox370.Text

For i = 380 To 512
    sh.Cells(Satir, i) = Controls("TextBox" & i - 9)
Next i
sh.Cells(Satir, 513) = ComboBox10.Text
sh.Cells(Satir, 514) = TextBox504.Text

Call liste
hocam değiştir, butonunun kodları bunlar Satir = ListView1.SelectedItem.Index + 8 buradaki 8 i anlamadım hocam
 
AyYıldızım' Alıntı:
Kod: 
Dim Satir As Long, sh As Worksheet
' SAYFADA VERİYİ BULUP, KAYDI DEĞİŞTİRİR(Trafo % pf testleri)
If ListView1.SelectedItem Is Nothing Then
    MsgBox "Lütfen listeden bir seçim yapınız!", vbCritical, "UYARI"
    Exit Sub
End If
If MsgBox("Seçili satırı değiştirmek istiyormusunuz?", vbYesNo, "DEĞİŞTİR") = vbNo Then
    ListView1.SelectedItem = Nothing
    Exit Sub
End If
Set sh = Sheets("GüçTrafolarıTestleri")
Satir = ListView1.SelectedItem.Index
Satir = ListView1.SelectedItem.Index + 8 ' 13 RAKAMINI SÜTUN SAYINIZA GÖRE AYARLAYIN
sh.Cells(Satir, 2) = TextBox2.Text
sh.Cells(Satir, 3) = ComboBox1.Text
sh.Cells(Satir, 4) = ComboBox2.Text
sh.Cells(Satir, 5) = TextBox3.Text
sh.Cells(Satir, 6) = ComboBox3.Text

For i = 7 To 16
    sh.Cells(Satir, i) = Controls("TextBox" & i - 3)
Next i
sh.Cells(Satir, 17) = ComboBox4.Text
For i = 18 To 70
    sh.Cells(Satir, i).Value = Controls("TextBox" & i - 4)
Next i
sh.Cells(Satir, 71) = ComboBox5.Text
sh.Cells(Satir, 72) = TextBox67.Text

For i = 73 To 132
    sh.Cells(Satir, i) = Controls("TextBox" & i - 5)
Next i

sh.Cells(Satir, 133) = ComboBox6.Text
sh.Cells(Satir, 134) = TextBox128.Text

For i = 135 To 224
    sh.Cells(Satir, i) = Controls("TextBox" & i - 6)
Next i

sh.Cells(Satir, 225) = ComboBox7.Text
sh.Cells(Satir, 226) = TextBox219.Text

For i = 227 To 241
    sh.Cells(Satir, i) = Controls("TextBox" & i - 7)
Next i
sh.Cells(Satir, 242) = ComboBox8.Text
sh.Cells(Satir, 243) = TextBox235.Text

For i = 244 To 377
    sh.Cells(Satir, i) = Controls("TextBox" & i - 8)
Next i
sh.Cells(Satir, 378) = ComboBox9.Text
sh.Cells(Satir, 379) = TextBox370.Text

For i = 380 To 512
    sh.Cells(Satir, i) = Controls("TextBox" & i - 9)
Next i
sh.Cells(Satir, 513) = ComboBox10.Text
sh.Cells(Satir, 514) = TextBox504.Text

Call liste
hocam değiştir, butonunun kodları bunlar Satir = ListView1.SelectedItem.Index + 8 buradaki 8 i anlamadım hocam
Genişletmek için tıkla ...

o 3 combobox başka işlem yapıyor.Listviewden veri seçince liste adlı prosedür çalışıyor.
Onlar sadece listviewe ve kendileri için çalışacaklar.siz oraya sadece listviewden seçim anında verilerin oaraya gelmesi için box koymalısınız.
105 tane textbox için değil ,sadece 3 tanesi için.listviewden çift tıklama yapıldığında onların tetiklenmemesi lazım.Yeni box koyarsanız onların içinde veri olmadığı için sadece listviewden gelecek olan veriler olduğu için tetiklenmeyecekler.
 
Hocam yanlışmı anlıyorum bilmiyorum ama, combobox1,2,3 içinmi listviewden gelen verileri görecek box koymam gerekiyor. ya hocam şunu bi halledelim sizden başka bişey istemeyeceğim. yorduğum yeter sizi.
 
AyYıldızım' Alıntı:
Hocam yanlışmı anlıyorum bilmiyorum ama, combobox1,2,3 içinmi listviewden gelen verileri görecek box koymam gerekiyor. ya hocam şunu bi halledelim sizden başka bişey istemeyeceğim. yorduğum yeter sizi.
Genişletmek için tıkla ...
combobox 1,2,3 için listviewden veri gelmeyecek.Oralara başka box lar koyacaksınız,o koyduklarınıza listviewden veri gelecek.1,2,3 ile sadece süzme yapılacak.
Böyle yapmazsanız olmaz.
 
o zaman hocam combobox 1,2,3 kalsın yeni ekleyeceğim comboboxlar süzme işlemi yapsın.

yeni combobox ekleyip içerisinede bu üç combobox daki kodları girsem çalışırmı, başka bişey yapmaya gerek varmı.
 
AyYıldızım' Alıntı:
o zaman hocam combobox 1,2,3 kalsın yeni ekleyeceğim comboboxlar süzme işlemi yapsın.

yeni combobox ekleyip içerisinede bu üç combobox daki kodları girsem çalışırmı, başka bişey yapmaya gerek varmı.
Genişletmek için tıkla ...
Bunlara listviewden veri gelmezse olur.
diğer yeni eklediğiniz comboboxlara bunların kodlarını yaparsanız Bazı değişiklikler yapmanız lazım.
 
combobox 1,2,3 yerine combobox 11,12, 13 koydum kodlarını değiştirdim, 1,2,3 de hiç bişey kalmadı ama çalışmadı hocam
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst