• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sütunda, toplam hücres alanıyla veri girişini engellemek

  • Konbuyu başlatan Konbuyu başlatan danke
  • Başlangıç tarihi Başlangıç tarihi
Katılım
15 Ekim 2007
Mesajlar
58
Excel Vers. ve Dili
2003 ve 2007
Arkadaşlar kolay gelsin sıkıntımla ilgili yardımcı olacak herkese teşekkürler.
Aslında excellden aşağı yukarı anlıyorum. Ama 1 veya 1 den fazla sütunların istediğim satırında ilgili sütunun toplamını almak istiyorum. Ve bir de toplam olarak belirlediğim rakam hücrede tamamlanınca artık o sütün veya sütünlarda artık rakam yazılmasın istiyorum, mümkün mü? Mümkünse yardımcı olacak herkese teşekkür ediyorum.
 

Ekli dosyalar

Arkadaşlar kolay gelsin sıkıntımla ilgili yardımcı olacak herkese teşekkürler.
Aslında excellden aşağı yukarı anlıyorum. Ama 1 veya 1 den fazla sütunların istediğim satırında ilgili sütunun toplamını almak istiyorum. Ve bir de toplam olarak belirlediğim rakam hücrede tamamlanınca artık o sütün veya sütünlarda artık rakam yazılmasın istiyorum, mümkün mü? Mümkünse yardımcı olacak herkese teşekkür ediyorum.
Merhaba
Eki İnceleyin Fikir vermesi açısından faydalı olabilir
Veri / Doğrulama inceleyin
 

Ekli dosyalar

İlginiz ve cevabınız için teşekkürler, doğrulamadan haberim vardı, söz konusu formülü akıl edemedim. Kolay gelsin..
 
İlginiz ve cevabınız için teşekkürler, doğrulamadan haberim vardı, söz konusu formülü akıl edemedim. Kolay gelsin..
İncelediyseniz toplam aldırılan tüm alanda veri / doğrulama ile formül girilmiş durumda.
İyi çalışmalar :hey:
 
Merhaba;

Alternatif olsun
Kod:
Option Explicit
Public Eski_Değer, BUL As Range

Private Sub Worksheet_Change(ByVal Target As Range)
Set BUL = Cells.Find(What:="Toplam", LookAt:=xlWhole)
    If Not Intersect(Target, Range(Cells(1, Target.Column), _
        Cells(BUL.Row, Target.Column))) Is Nothing Then
            If Cells(BUL.Row, Target.Column) > 100 Then
            MsgBox "Girdiğiniz değeri kontrol ediniz.", vbCritical, "DİKKAT!"
            Target = Eski_Değer
        End If
        Exit Sub
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Eski_Değer = Target
End Sub
 
Son düzenleme:
Arkadaşlar kusura bakmayın kendi excell sayfama iki uygulamayı da aktaramadım.
Sebepleri; sütunda rakamların dışında harfte var. Ve ilk hücre den değil atıyorum K sütünunda 35'inci satırdan başlayıp 140' kadar gidiyor.

Sorun: Uygulamaların uyarlanamaması.
Yardımcı olacak herkese teşekkürler
 
Arkadaşlar kusura bakmayın kendi excell sayfama iki uygulamayı da aktaramadım.
Sebepleri; sütunda rakamların dışında harfte var. Ve ilk hücre den değil atıyorum K sütünunda 35'inci satırdan başlayıp 140' kadar gidiyor.

Sorun: Uygulamaların uyarlanamaması.
Yardımcı olacak herkese teşekkürler
Merhaba
Kendi dosyanıza benzer örnek (satır,sütunlar aynı) ekleyebilirmisiniz.
 
Arkadaşlar doğrulama mantığını uygulamama uyarladım.
İlginiz emeğiniz için teşekkürler.
Sorum cevaplandı.
 
Geri
Üst