Cancel olayı hatası için yanılmıyorsam
If Gveri= "" then exit sub
Gibi olabilir yanlış yazmadıysam kodu.
Yada
If Gveri = "" then
Msgbox "iptal edildi"
Exit sub
End if
Dediğim gibi kodu kafadan yazdım mantıken böyle olacak
="" yerine = false
De olabilir unuttum kodu chancel için.
Seçilen Verilerin Word'e Aktarılması
GVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
Satırının altına aşağıdaki kodu ekleyip dener misiniz if isnull(GVeri) or instr(GVeri,"-")=0 then
Msgbox " duxgun formatta veri girilmedi yada iptal edildi"
Exit sub
End if
(17/02/2020, 22:21)berduş yazdı:Dalgınlıkla iki tane - eklenirseSatırının altına aşağıdaki kodu ekleyip dener misinizGVeri = InputBox("İlk ve Son KAyıt", "Kayit Gir", "")
if isnull(GVeri) or instr(GVeri,"-")=0 then
Msgbox " duxgun formatta veri girilmedi yada iptal edildi"
Exit sub
End if
O zamanda or 0 yerine büyüktür 1 eklenmeli galiba değil mi.
Kesin çözüm heralde 2 input mesajı çıkarmak yada her karakteri tek tek kontrol edip içeriğinde sadece rakam ve işaret olanları ayıklayıp 2 ye bölmek
Bende onu düşünüyordum.rakam olayı keypress ile halledilir.Diğeride biçimlendirme ile olur bence.Siz yaparsınuz abey.Benim pc yanımda olsaydı tümünü hallederdim kanaatiniz olsun.
Konuyu Okuyanlar: 1 Ziyaretçi