Çözüldü VERİ GİRİŞİYLE DEĞER ARTIŞI

[mc_exrem]

Merhabalar arkadaşlar,

Eklemiş olduğum dosyada "Cam Listesi" sayfasında B sütununa veri girince aynı satırda F sütununa tarih atmaktadır. Aynı şekilde M1 hücresinde Değer Değiştirme Butonu ile yaptığım değer artış ve azaltma işlemini B sütununa veri girince değeri otomatik olarak artırması mümkün mü acaba? Saygılar selamlar

 

[Korhan Ayhan]

Sayfadaki kodu aşağıdaki gibi değiştirip deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy")
        Range("H1") = Range("H1") + 1
    End If
End Sub

 

[mc_exrem]

Sayfadaki kodu aşağıdaki gibi değiştirip deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy")
        Range("H1") = Range("H1") + 1
    End If
End Sub

teşekkür ederim yardımınız için yanlış bir şey yapmamak adına soruyorum
kullanmakta olduğum sayfa içersinde birden fazla kod bulunmakta
o yüzden hangi başlıklı formülü değiştirmem gerek?

 

[Korhan Ayhan]

Aşağıdaki olayı kullanmalısınız.

Private Sub Worksheet_Change(ByVal Target As Range)

 

[mc_exrem]

Aşağıdaki olayı kullanmalısınız.

Private Sub Worksheet_Change(ByVal Target As Range)

@Korhan Ayhan Bey,
ne kadar teşekkür etsem azdır Allah razı olsun. Dert görmeyesiniz.
Bulamamın sebebi ben kod başlıklarında arıyordum ama sayfada kodu göster deyince ortaya çıktı

 

[mc_exrem]

@Korhan Ayhan Bey, biliyorum excel kendi içinde bir dünya bu yüzden istekler de sınırsız
Yine aynı şekilde B sütununa veri girince E sütununa 4+16+4mm ÇiftCam yazması mümkün müdür acaba?

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Target.Offset(0, 3) = "4+16+4mm ÇiftCam"
        Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy")
        Range("H1") = Range("H1") + 1
    End If
End Sub

 

[mc_exrem]

Deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B:B")) Is Nothing Then
        Target.Offset(0, 3) = "4+16+4mm ÇiftCam"
        Target.Offset(0, 4) = Format(Now, "dd.mm.yyyy")
        Range("H1") = Range("H1") + 1
    End If
End Sub

Çok teşekkür ederim. Bu da tamamdır

 

[mc_exrem]

Çözüldü olarak işaretlenebilir mi acaba