Takip sayacı..!

[sensizsoldum]

F sütundaki hücrelere sıradan bir rakam girdiğimizi var sayalım,
F sütundaki girilen o satırdaki I sütunda da bu girilen rakamı takip edecek sayaç olsun istiyorum.
Örneğin F3 hücresine 4000 girdim bir süre sonra bu rakam 6500 oldu I3 te 2,500 üretim olmuştur. Yazması gerekiyor. Eksilme olduğunda ise yine aynı şekilde… 2,500 sevk olmuştur. Yani f sütuna girilen rakamlarda ne gibi değişik olduğunu öğrenmek istiyorum. Bu değişikliği sayfaya girildiğinde makronun tetiklemesi gerekmekte
F3 boş ise I3 TE Boş olmalı.
Herkese teşekkür ederim iyi çalışmalar dilerim.

 

[sensizsoldum]

Yardımcı olabilir misiniz .teşekkür ederim herkese iyi çalışmalar dilerim.

 

[uzmanamele]

Merhaba

Public eski As Integer

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo 10
If Intersect(Target, [f3]) Is Nothing Then Exit Sub

miktar = Target.Value
If miktar < eski Then
[ı3] = eski - miktar & " eksildi"
Else
[ı3] = miktar - eski & " arttı"
End If
10:
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
eski = [f3].Value
End Sub

 

[sensizsoldum]

Merhaba Sayın uzman hocam bu yazdığınız kodu deneyemedim hata aldım, ekleyeceğim sayfada bundan başkada makro olduğundan dolayı, aşağıdaki kodlarla uyarlayabilmemiz mümkünmüdür. ayrıca sadece f3 hücresi için değil ben bunu tüm sütun için istıyorum ornek olsun diye o şekilde yazdım. atıyorum F10-I10
Herşey için teşekkür ederim mutlu akşamlar dilerim.



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
If Target.Column = 4 And Target.Value = "" Then
Target.Offset(0, 4).Value = ""
Else
Target.Offset(0, 4).Value = Target + Target.Offset(0, 2).Value
End If
End If

On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Dim Hücre As Range
If Selection.Columns.Count > 1 Then Exit Sub
If Selection.Count > 1 Then
For Each Hücre In Selection
If Hücre = "" Then
Hücre.Offset(0, -1) = ""
Else
Hücre.Offset(0, -1) = Date
End If
Next Hücre
Exit Sub
End If
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Date
End If
Son:

End Sub

 

[uzmanamele]

Merhaba Sayın uzman hocam bu yazdığınız kodu deneyemedim hata aldım, ekleyeceğim sayfada bundan başkada makro olduğundan dolayı, aşağıdaki kodlarla uyarlayabilmemiz mümkünmüdür. ayrıca sadece f3 hücresi için değil ben bunu tüm sütun için istıyorum ornek olsun diye o şekilde yazdım. atıyorum F10-I10
Herşey için teşekkür ederim mutlu akşamlar dilerim.



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 4 Then
If Target.Column = 4 And Target.Value = "" Then
Target.Offset(0, 4).Value = ""
Else
Target.Offset(0, 4).Value = Target + Target.Offset(0, 2).Value
End If
End If

On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
Dim Hücre As Range
If Selection.Columns.Count > 1 Then Exit Sub
If Selection.Count > 1 Then
For Each Hücre In Selection
If Hücre = "" Then
Hücre.Offset(0, -1) = ""
Else
Hücre.Offset(0, -1) = Date
End If
Next Hücre
Exit Sub
End If
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Date
End If
Son:

End Sub

Merhaba

Sorunuzu, ne istediğinizi bilerek sorunuz.
İlk sorunuz ile bunun arasında dağlar kadar fark var.
Siteden araştırınız.
Bulaşmayayım, bu konu 30-35 mesaj kaldırır.

 

[Murat OSMA]

Bulaşmayayım, bu konu 30-35 mesaj kaldırır.

:hiho::hiho::hiho::hiho:

 

[Husgvarna]

Aşağıdaki şekilde işinize yararsa inceleyiniz.

 

[sensizsoldum]

Merhabalar, Herkese iyi akşamlar dilerim,
Sayın Husgvarna çok teşekkür ederim, Uzman bey ve Murat bey eminim bize gülecektir. Ama son gülen iyi olacak gibi. 35 mesaj sanırsam olmayacak gibi.
I Sütunu, f sütuna girilen ilk rakamı, etkisiz görecek, o rakam üzerine ne değişiklik olursa, Örneğin ben f3 1000 rakamı girdim var sayalım I3 bunu etkisiz görecek bir süre sonra f3 5500 oldu aradaki bu farkı yani 4500 olarak bize göstermesi lazım.
F3 girilen rakam artıyorsa, ilk girildiğinden yüksek ise I3 te
Mesela ilk girilen 1.000 bir süre sonra 5.500 oldu 4,500 Metre Üretim olmuştur.
Azalma olduğunda…
Mesela ilk girilen 1.000 bir süre sonra… 500 azaldı 500 Metre Sevk Edilmiştir.
Bu makroyu butonlu değil de, Butonuz olması gerekmekte sayfaya her girişte bu özelliğin güncellenmesini de sağlayabilir miyiz?
Ben soruyu ne kadar açıklayıcı net yazarsam eminim tek seferde olacağı inancındayım. Elimden geldiğince, buna itina gösteriyorum. Bilmeyerek atladığım bir yer olursa anlayışla karşılamanızı rica ediyorum.
Saygılarımla.

 

[Husgvarna]

Merhaba.
Yukarıdaki değişen dosyayı deneyin.

 

[sensizsoldum]

Merhabalar, Sayın husgvarna, çok teşekkür ederim eline bilgine sağlık, allahım razı olsun.
Küçük bi aksama dışında istediğim gibi. çok teşekkür ederim
Mutlu akşamlar dilerim.

 

[Husgvarna]

Merhabalar, Sayın husgvarna, çok teşekkür ederim eline bilgine sağlık, allahım razı olsun.
Küçük bi aksama dışında istediğim gibi. çok teşekkür ederim
Mutlu akşamlar dilerim.

Merhaba
Sanırım kırmızı bölüm Sn.uzmanamele nin haklı çıkacağının belirtisi.