Makro da Sıra No

[KuTuKa]

Merhaba arkadaşlar
Elimdeki excel makrosuyla ilgili bir istekte bulunacaktım
B1 hücresine personel ismini verip tutar ı girdiğim de H sütünunda sıra no otomotik olarak 1 rakamı yazılıyor
B2 hücresine değer girip tutarı yazdığımda 2 yazıyor ama bunu biraz değiştirmek istiyorum

Örnek
B1 hücresinde
Ali Veli yazıp tutar ı girdiğimde 1 yazsın ama
B2 hücresine Ali Veli yazdığımda tutar girdiğimde sıra no 1 yazsın ya da hiç yazmasın.


Yani alt alta aynı personele değer girdiğim de sıra no değişmesin.Ama alt alta değilse arada başka bir satır varsa sıra no değişebilir.

2. istekte
Tutar yanlış yazılır ve değişiklik yapıldığında aynı sıra numarası verileceğine sıradaki değer veriliyor.
Yani
Siz ali veli için 1000 tl tutar girdiniz ve sıra no 1 aldınız.

Sıra 30 a geldiğinizide ali veli için değerin 1000 tl değil de 100 tl olduğunu farkedip tutaro 100 tl yaptığınızda sıra no 1 olması gerekirken 31 oluyor bununla ilgili bir düzeltme yapılabilir mi ?


Teşekkürler
Kutuka

 

[asi_kral]

Merhaba arkadaşlar
Elimdeki excel makrosuyla ilgili bir istekte bulunacaktım
B1 hücresine personel ismini verip tutar ı girdiğim de H sütünunda sıra no otomotik olarak 1 rakamı yazılıyor
B2 hücresine değer girip tutarı yazdığımda 2 yazıyor ama bunu biraz değiştirmek istiyorum

Örnek
B1 hücresinde
Ali Veli yazıp tutar ı girdiğimde 1 yazsın ama
B2 hücresine Ali Veli yazdığımda tutar girdiğimde sıra no 1 yazsın ya da hiç yazmasın.


Yani alt alta aynı personele değer girdiğim de sıra no değişmesin.Ama alt alta değilse arada başka bir satır varsa sıra no değişebilir.

2. istekte
Tutar yanlış yazılır ve değişiklik yapıldığında aynı sıra numarası verileceğine sıradaki değer veriliyor.
Yani
Siz ali veli için 1000 tl tutar girdiniz ve sıra no 1 aldınız.

Sıra 30 a geldiğinizide ali veli için değerin 1000 tl değil de 100 tl olduğunu farkedip tutaro 100 tl yaptığınızda sıra no 1 olması gerekirken 31 oluyor bununla ilgili bir düzeltme yapılabilir mi ?


Teşekkürler
Kutuka

Merhaba
Sayfanın kod bölümündeki kodu bununla değiştirip dener misiniz

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'Konu       :   Yazılan Personele göre Sıra No
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Skype      :   m.batu.1967
'Coder By   :   asi_kral_1967
If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
If Cells(Target.Row - 1, "B") = Cells(Target.Row, "B") Then Exit Sub
Cells(Target.Row, "H") = ""
Cells(Target.Row, "H") = WorksheetFunction.Max(Range("H1:H" & Target.Row)) + 1
End Sub

Dosyanız Ekte.

 

[KuTuKa]

merhaba
denedim ama sıra no numara vermiyor
teşekkürler

 

[asi_kral]

merhaba
denedim ama sıra no numara vermiyor
teşekkürler

Dosyanızı ekler misiniz. Ben denedim bende sıra no veriyordu.

 

[KuTuKa]

ben dosyayı ekliyorum.

 

[asi_kral]

ben dosyayı ekliyorum.

Bende gayet güzel çalışıyor.

 

[KuTuKa]

merhaba
sizin yapmış olduğunuz makro da
a sütunun ada değer vermekteydi
ben şu şekilde düzenleyince sadece H sütununa değer vermeye başladı.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
If Cells(Target.Row - 1, "B") = Cells(Target.Row, "B") Then Exit Sub
Cells(Target.Row, "A") = ""

If Target <> "" Then
Cells(Target.Row, "H") = WorksheetFunction.Max(Range("H:H")) + 1
Else
Cells(Target.Row, "H") = ""
End If
Son:
End Sub


2. sorum diyelim ki tutar yanlış girildi ve düzeltmek için E sütunundaki rakamı değiştirdiğimde sıra no su değişiyor bunu nasıl engelleyebiliriz.

 

[asi_kral]

merhaba
sizin yapmış olduğunuz makro da
a sütunun ada değer vermekteydi
ben şu şekilde düzenleyince sadece H sütununa değer vermeye başladı.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("E:E")) Is Nothing Then Exit Sub
If Cells(Target.Row - 1, "B") = Cells(Target.Row, "B") Then Exit Sub
Cells(Target.Row, "A") = ""

If Target <> "" Then
Cells(Target.Row, "H") = WorksheetFunction.Max(Range("H:H")) + 1
Else
Cells(Target.Row, "H") = ""
End If
Son:
End Sub


2. sorum diyelim ki tutar yanlış girildi ve düzeltmek için E sütunundaki rakamı değiştirdiğimde sıra no su değişiyor bunu nasıl engelleyebiliriz.

Siz benim verdiğim kodu değil sizin yanlış olan kodu kullanıyorsunuz.
Üstteki mesajdaki kodu güncelledim. Onu deneyiniz.

 

[KuTuKa]

6 nolu mesaj da gönderilen dosya da A sütunu değer alıyor H süunu değer almıyordu o yüzden 7 nolu mesajda ki makrıyu gönderdim.

E sütununda değeri değiştirdiğimde H sütununda 50 yazıyorsa güncelleme yaptığımda 51 oluyor bunun 50 de kalması gerekiyor bu işlemi nasıl düzeltebiliriz?

ilgi için teşekkürler

 

[asi_kral]

6 nolu mesaj da gönderilen dosya da A sütunu değer alıyor H süunu değer almıyordu o yüzden 7 nolu mesajda ki makrıyu gönderdim.

E sütununda değeri değiştirdiğimde H sütununda 50 yazıyorsa güncelleme yaptığımda 51 oluyor bunun 50 de kalması gerekiyor bu işlemi nasıl düzeltebiliriz?

ilgi için teşekkürler

Ben deniyorum böyle yapmıyor acaba yanlış mı yapıyoruz bir şeyi denerken.

 

[KuTuKa]

bende anlamadım sizim makro da H sütunu değer almıyor
A sütunu değer alıyor.

 

[asi_kral]

Merhaba
Dosyayı dener misiniz_?
Bende H sütununda işlem yapıyor

 

[KuTuKa]

teşekkürler
tutar değişince sıra no değişmiyor
teşekkürler
sayenizde bir komutdaha öğrendik.

 

[asi_kral]

teşekkürler
tutar değişince sıra no değişmiyor
teşekkürler
sayenizde bir komutdaha öğrendik.

Kolay Gelsin.