Sütuna Otomatik Değer ve Kaydet İşlevi...

[TheRainmaker]

Merhabalar;
Ekteki dosyayı nihayete erdirmek üzereyim...
Dosyaya sadece şunları eklemek istiyorum mümkünse:
Aynen SıraNo da olduğu gibi Protokol No ya veri girildiğinde otomatik olarak o satırın Muayene sutünuna önceden belirlenmiş bir değer (10,00 gibi) ve değişiklik olduğunda düzeltebileceğim birşey eklemek ve sayfadaki "Kaydet" butonuna bastığımda sağ üst köşedeki tarih (BUGÜN()) dışında tüm formüllerin(otomatik toplam,devreden ve genel toplam gibi yani çizilmiş objeler gösterilmeyecek ve makrolar inaktif olacak) aktif olmasını istiyorum...(Yarım bırakıp kaydettiğimde arşivden ilgili dosyayı açıp kaldığım yerden devam edebilmek için)

Mümkünse ve yardımcı olursanız inanın çok sevinirim...



İlgi ve yardımlarınız için şimdiden teşekkürler...


Saygılarımla...

 

[Korhan Ayhan]

Selamlar,

Birinci sorunuzun cevabı olarak sayfanın kod bölümündeki kodu aşağıdaki ile değiştirip denermisiniz.

İkinci sorunuzu tam olarak anlamadım. Nedeni ise dosyayı arşivlerken sayfayı kopyalayıp değer olarak yapıştırıp kaydediyorsunuz. Tekrar dosyayı açtığınızda doğal olarak formüller olmadığı için yeni veri girişinde hesaplamalar eksik olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B3:B65536]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target = "" Then
    Target.Offset(0, -1) = ""
    Target.Offset(0, 2) = ""
    Exit Sub: End If
    Target.Offset(0, -1) = WorksheetFunction.Max([A:A]) + 1
    Target.Offset(0, 2) = 10
End Sub

 

[TheRainmaker]

Selamlar,

Birinci sorunuzun cevabı olarak sayfanın kod bölümündeki kodu aşağıdaki ile değiştirip denermisiniz.

İkinci sorunuzu tam olarak anlamadım. Nedeni ise dosyayı arşivlerken sayfayı kopyalayıp değer olarak yapıştırıp kaydediyorsunuz. Tekrar dosyayı açtığınızda doğal olarak formüller olmadığı için yeni veri girişinde hesaplamalar eksik olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B3:B65536]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target = "" Then
    Target.Offset(0, -1) = ""
    Target.Offset(0, 2) = ""
    Exit Sub: End If
    Target.Offset(0, -1) = WorksheetFunction.Max([A:A]) + 1
    Target.Offset(0, 2) = 10
End Sub

Cevabınız için teşekkürler...
Yanlız ben o kodun ait olduğu yeri bulamadım...
Şu an buldum...
Şimdi deneyeceğim...

 

[TheRainmaker]

Gayet iyi çalışıyor...
Diğer sorum tam olarak şu şekildeydi:
Kaydet e bastığımda kaydedilen arşiv için yeterli tabiki ama yarım bırakılmış ve kaydedilen bir tabloya devam etmek için başka bir çözüm yolu olabilir mi acaba?

Çok teşekkürler...