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.

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ı:

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 

Dalgınlıkla iki tane - eklenirse
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.

(17/02/2020, 22:31)feraz yazdı: Benim pc yanımda olsaydı

aynı dertten muzdaripiz galiba ama ben çözebileceğimden pek emin degilim