okinava14
Bronz Üye
Konuyu Başlatan
-
Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.
-
Foruma hoş geldin 👋 Ziyaretçi
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt ol
Çözüldü Listboxları kaydet hatası
- Konuyu Başlatan okinava14
- Başlangıç tarihi
- Cevaplar : 4
- Gösterim : 350
-
- Etiketler
- listboxları kaydet hatası
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
- Durum
okinava14
Bronz Üye
Konuyu Başlatan
Aslında kayıt işleminde hata yok herşey normal işliyor ama hata varmış gibi hata uyarı veriyor.
Kaydet işlemini gerçekleştiriyor. yani sadece resimdeki hataya sebeb oluyor.
Kaydet işlemini gerçekleştiriyor. yani sadece resimdeki hataya sebeb oluyor.
Aşağıdaki gibi deneyin.
With Sheets("Tahsis")
Tahsis.Cells(a, 1) = UCase(Replace(Replace(TextBox1.Value, "ı", "I"), "i", "İ"))
Tahsis.Cells(a, 2) = Format(TextBox2.Value, "000")
Tahsis.Cells(a, 3) = Format(TextBox3.Value, "0.0000")
Tahsis.Cells(a, 4) = Format(TextBox4.Value, "0.0000")
Tahsis.Cells(a, 5) = Format(TextBox5.Value, "000")
Tahsis.Cells(a, 6) = Format(TextBox6.Value, "000")
Tahsis.Cells(a, 7) = Format(TextBox7.Value, "000")
Tahsis.Cells(a, 8) = Format(TextBox8.Value, "000")
End With
With Sheets("Veriler")
Veriler.Cells(a, 9) = UCase(Replace(Replace(TextBox9.Value, "ı", "I"), "i", "İ"))
Veriler.Cells(a, 10) = UCase(Replace(Replace(TextBox10.Value, "ı", "I"), "i", "İ"))
Veriler.Cells(a, 11) = Format(TextBox11.Value, "000")
Veriler.Cells(a, 12) = Format(TextBox12.Value, "000")
Veriler.Cells(a, 13) = Format(TextBox13.Value, "000")
Veriler.Cells(a, 14) = UCase(Replace(Replace(TextBox14.Value, "ı", "I"), "i", "İ"))
Veriler.Cells(a, 15) = UCase(Replace(Replace(TextBox15.Value, "ı", "I"), "i", "İ"))
Veriler.Cells(a, 16) = UCase(Replace(Replace(TextBox16.Value, "ı", "I"), "i", "İ"))
End With
With Sheets("Tahsis")
Tahsis.Cells(a, 1) = UCase(Replace(Replace(TextBox1.Value, "ı", "I"), "i", "İ"))
Tahsis.Cells(a, 2) = Format(TextBox2.Value, "000")
Tahsis.Cells(a, 3) = Format(TextBox3.Value, "0.0000")
Tahsis.Cells(a, 4) = Format(TextBox4.Value, "0.0000")
Tahsis.Cells(a, 5) = Format(TextBox5.Value, "000")
Tahsis.Cells(a, 6) = Format(TextBox6.Value, "000")
Tahsis.Cells(a, 7) = Format(TextBox7.Value, "000")
Tahsis.Cells(a, 8) = Format(TextBox8.Value, "000")
End With
With Sheets("Veriler")
Veriler.Cells(a, 9) = UCase(Replace(Replace(TextBox9.Value, "ı", "I"), "i", "İ"))
Veriler.Cells(a, 10) = UCase(Replace(Replace(TextBox10.Value, "ı", "I"), "i", "İ"))
Veriler.Cells(a, 11) = Format(TextBox11.Value, "000")
Veriler.Cells(a, 12) = Format(TextBox12.Value, "000")
Veriler.Cells(a, 13) = Format(TextBox13.Value, "000")
Veriler.Cells(a, 14) = UCase(Replace(Replace(TextBox14.Value, "ı", "I"), "i", "İ"))
Veriler.Cells(a, 15) = UCase(Replace(Replace(TextBox15.Value, "ı", "I"), "i", "İ"))
Veriler.Cells(a, 16) = UCase(Replace(Replace(TextBox16.Value, "ı", "I"), "i", "İ"))
End With
Çözüm
okinava14
Bronz Üye
Konuyu Başlatan
Teşekkürler hocam emeğine sağlık. Konu kilit
Sayın okinava14
dosyanıza vakıf olmadığım için kodalara müdahele etmedim.
With
End with
kalıbında sayfa isimlerini tekrar tekrar yazmanıza gerek yok.
With kalıbını bunun için kullanıyoruz zaten. Kısaltma için.
Aşağıdaki gibi yapın.
1) With Sheets("Sayfa1")
.Cells(a,1) = "okinava14"
....
kodlarınız.
End With
2) With Sheets("Sayfa2")
.Cells(a,1) = "okinava14"
....
kodlarınız.
End With
dosyanıza vakıf olmadığım için kodalara müdahele etmedim.
With
End with
kalıbında sayfa isimlerini tekrar tekrar yazmanıza gerek yok.
With kalıbını bunun için kullanıyoruz zaten. Kısaltma için.
Aşağıdaki gibi yapın.
1) With Sheets("Sayfa1")
.Cells(a,1) = "okinava14"
....
kodlarınız.
End With
2) With Sheets("Sayfa2")
.Cells(a,1) = "okinava14"
....
kodlarınız.
End With
- Durum