A1 İle B1 Eşit Değilse C1'i 1 Artır Makrosu

[baydeniro]

Merhaba arkadaşlar. A1 veya B1 hücrelerine verildiğinde A1=B1 eşitliğini kontrol ederek C1 hücresindeki rakamın +1 işlemi ile 1 artması mümkün mü ?

 

[Mx@Raid]

basit bir örnek koydum isterseniz siz daha da geliştirebilirsiniz.

Sub Dene()
If Range("a1") = Range("b1") Then
Range("C1") = Range("C1") + 1
End If
End Sub

 

[baydeniro]

Sayın Mx@Raid. Yardımınız için çok teşekkür ederim. Sizin verdiğniiz kodu aşağıdaki gibi yaptım. Artırımları 1 değil hep 222 olarak yapıyor. Neden olabilir acaba ?

Private Sub Worksheet_Change(ByVal Target As Range)
a = Range("a1")
b = Range("b1")
If a <> b Then
Range("C1") = Range("C1") + 1
End If
End Sub

 

[Mx@Raid]

<> eşitsizliği ifade ediyor yanlış hatırlamıyorsam. Deneme yaptığımda sayı eşitsizlikle karşılaştığında her seferinde bir artırdı.

 

[baydeniro]

Çok ilginç bir şekilde hep 222 olarak artırıyor. Çok şaşırdım. Formülde hata yok gibi gözüküyor. Ne etki ediyor çözemiyorum.

 

[baydeniro]

Merhaba arkadaşlar. Bu konuda yardıma gereksinmem var. Aşağıdaki kod cursorun her hareket etmesinde C1 hücresini 1 artırıyor. Bu güzel. Ancak gerekli olan sadece A1 ve B1 hücresinde değişiklik olursa C1 hücresinin 1 artması.


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("a1") <> Range("b1") Then
Range("C1") = Range("c1") + 1
End If
End Sub

 

[Ömer]

Bu şekilde deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$B$1" <> Empty Then
[C1] = [C1] + 1
End If
End Sub

.

 

[Mx@Raid]

Sn. Ömer her iki koşulda da sayıyı bir artırıyor. Oysa sadece eşitsizlik durumunda değerin artmasını sağlamak gerekiyor.

 

[Ömer]

Sn. Ömer her iki koşulda da sayıyı bir artırıyor. Oysa sadece eşitsizlik durumunda değerin artmasını sağlamak gerekiyor.

Merhaba Sayın Mx@Raid,

#6. mesajda A1 B1 hücrelerinde değişiklik olursa C1 artsın istendiği için o şekilde yazmıştım..

.

 

[Mx@Raid]

Sn. Ömer bu bilgi işimize kesinlikle yarayacak Teşekkürler. Sedece eşitsizlik durmunu göz önünde bulundurarak artırmasını nasıl sağlayabiliriz.

 

[baydeniro]

Sayın Ömer Allah sizden razı olsun. Yardımlarınız için çok teşekkür ederim.

 

[Ömer]

Sayın Ömer Allah sizden razı olsun. Yardımlarınız için çok teşekkür ederim.

Rica ederim, iyi çalışmalar..

Sn. Ömer bu bilgi işimize kesinlikle yarayacak Teşekkürler. Sedece eşitsizlik durmunu göz önünde bulundurarak artırmasını nasıl sağlayabiliriz.

Bu şekilde deneyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Or Target.Address = "$B$1" <> Empty Then
If [A1] <> [b1] Then
[C1] = [C1] + 1
End If
End If
End Sub

.

 

[Mx@Raid]

teşekkürler.