• DİKKAT !

    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 Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Listboxları kaydet hatası

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
okinava14

okinava14

Yeni Üye
Katılım
19 Haz 2022
Mesajlar
673
Çözümler
3
Aldığı beğeni
128
Excel V
Office 2021 TR
Konu Sahibi
Herkese hayırlı pazarlar.
sorum basit ama cevap nasıl bilemedim aklımca olur sandım. Eksiklik çıktı "Argüman isteğe bağlı değil" Hatası aldım. Ne demekse?

Ekteki resimde işaretli yerde hata verdi. Bir kaydet butonunda aynı anda iki farklı sayfaya kayıt olmuyormu?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
E
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) =...
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
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.
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 1 Negatif oyla
Çözüm
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
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst