VERİ DOĞRULAMA + RESİM EKLEME PROFORMA

[ThaLees]

Deneyiniz.

Çok teşekkürler
Ayrı bir modul açarak çözmüşsünüz. Öğrenecek çok şey var

Ellerinize sağlık. Vakit ayırdığınız için çok sağolun

 

[Korhan Ayhan]

#20 nolu mesajımda paylaştığım dosyada küçük bir eksiklik vardı. Düzeltme yaptım. Son halini kullanırsınız.

Yapılan düzeltme;

Anımsatıcı form açıldığında listede seçili olan kayıt üzerinde ENTER yaptığınızda resim yüklenmiyordu. Bu revize edildi.

 

[ThaLees]

#20 nolu mesajımda paylaştığım dosyada küçük bir eksiklik vardı. Düzeltme yaptım. Son halini kullanırsınız.

Yapılan düzeltme;

Anımsatıcı form açıldığında listede seçili olan kayıt üzerinde ENTER yaptığınızda resim yüklenmiyordu. Bu revize edildi.

Merhabalar,
Konu olan exceli her kullanışımda yardımcı olanlara teşekkür ediyorum. Lakin en başından beri şöyle bir sorunum var. Excelde herhangi bir yere tıkladığımda fare imleci başka bir noktaya kayıyor. Bazen 1 cm sağa bazen sola. Belirli bir oran veya yön yok ve sadece bu excelde yapıyor. Başka herhangi bir excel veya programda bunu yapmıyor. Sebebi ne olabilir ? Nasıl çözebilirim ?

 

[Korhan Ayhan]

Bahsettiğiniz özellik "Anımsatıcı" formunun ekranda düzgün görünmesi için eklediğim bir özelliktir. Yani fare bilerek o kaymayı yapıyor.

Bu durumu kaldırmak için PROFORMA isimii sayfanızın adı üzerinde sağ tıklayın ve KOD GÖRÜNTÜLE komutunu çalıştırın.

Ekrana gelen pencerede aşağıdaki satırları bulup silin. Sonra kullanmayı deneyin. Eğer sizin açınızdan sıkıntı çıkarmıyorsa bu şekilde kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    If Val(Application.Version) < 12 Then
        ShowAtCell_1
    Else
        ShowAtCell_2
    End If
End Sub

 

[ThaLees]

Bahsettiğiniz özellik "Anımsatıcı" formunun ekranda düzgün görünmesi için eklediğim bir özelliktir. Yani fare bilerek o kaymayı yapıyor.

Bu durumu kaldırmak için PROFORMA isimii sayfanızın adı üzerinde sağ tıklayın ve KOD GÖRÜNTÜLE komutunu çalıştırın.

Ekrana gelen pencerede aşağıdaki satırları bulup silin. Sonra kullanmayı deneyin. Eğer sizin açınızdan sıkıntı çıkarmıyorsa bu şekilde kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
    If Val(Application.Version) < 12 Then
        ShowAtCell_1
    Else
        ShowAtCell_2
    End If
End Sub

Çok teşekkürler. Aslında avantajları evet vardı lakin özellikle biçimlendirme yaparken farklı hücrelere kayması bazen sıkıntı olabiliyordu. Tekrar çok sağolun.