Otomatik Numara Verme

[izcik]

Selamlar arkadaşlar. Hep isteyen taraf oluyoruz ama ..

Sorum şu :

Örnek bi excel dosyasında A sütununda herhangi bir hücreye veri yazdım;

onun yanındaki B hücresine 1 rakamı yazılsın.. A sütununda başka bir hücreye veri girdiğimde yine yanındaki B sütununa 2 rakamı yazılsın.

Örnek

A372 sütununa KIRMIZI yazdım. B372 ye 1 rakamı gelsin.
daha sonra A52 sütununa ARABA yazdım B52 ye 2 gelsin

Böylece 1 - 2 - 3 - 4 ... diye sürsün.

Ben de A sütununda sırayla hangi hücreye veri girdiğimi öğrenmiş olurum.

....
....


Bir de aynı işlemi B sütununa veri girerek A sütununda almak istiyorum.

Yani B384 e RENKLİ yazdım ; A 384 e 1 yazsın.

B15 e BMW yazdım. A15 e 2 yazsın.

Şimdiden teşekkür ederim.

Bu dosya da günlük işlerimde bir çok zaman kazandıracaktır.
................................................

Eklenmiş dosyalar:

A SÜTUNUNA OTOMATİK SIRALAMA

http://www.excel.web.tr/attachment.php?attachmentid=71795&d=1250512282


B SÜTUNUNA OTOMATİK SIRALAMA

http://www.excel.web.tr/attachment.php?attachmentid=71796&d=1250512282

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayınız.


A sütunu için;

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target <> "" Then
    Target.Offset(0, 1) = WorksheetFunction.Max(Columns(2)) + 1
    End If
Son:
End Sub

B sütunu için;

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target <> "" Then
    Target.Offset(0, -1) = WorksheetFunction.Max(Columns(1)) + 1
    End If
Son:
End Sub

C sütunu için;

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    If Target <> "" Then
    Target.Offset(0, 1) = WorksheetFunction.Max(Columns(3)) + 1
    End If
Son:
End Sub

 

[izcik]

Tek kelimeyle harika değerli Korhan Ayhan teşekkür ederim

A:A da hiç sorun yok tam istediğim gibi

 

[izcik]

Yalnız B:B için yapınca numarayı C sütununa otomatik veriyor. numarayı A ya vermesi için nasıl değiştirmemiz lazım ?

Ve tekrar denedim sıra numaralarını C ye bile verse hep 1 veriyor.

 

[izcik]

Değerli Korhan Ayhan tekrar tekrar denedim ; nedense kodu B:B olarak değiştirdiğimizde hem sıra numaralarını istediğim gibi A sütununa vermiyor, hem de hep "1" rakamını veriyor. Oysa A:A olarak yazınca kod görevini yapıyor. Tam mükemmel bir excel dosyası oluyor. A ya veri giriyorum B ye (karşısına) hemen sıra numarasını yazıveriyor. Galiba B:B yazınca başka bir yeri de değiştirmek lazım.

 

[Korhan Ayhan]

Selamlar,

Haklısınız. Üstteki mesajımdaki kodu güncelledim. İncelermisiniz.

 

[muhammed_ismet_kurum]

Iyi akşamlar ben yeni bir kullanıcı olarak şunu sormak istiyorum acaba kodları nereye ve nasıl girecez şimdiden tşk ederim ilginize

 

[Korhan Ayhan]

Selamlar,

Aramıza hoşgeldiniz. Yeni bir kullanıcı olarak forumda arama yaparak istediğiniz konulara rahatlıkla ulaşabilirsiniz. Özellikle Excel Dersanesi bölümünü incelemenizi öneriyorum.

Bu başlıkta işlenen konu için aşağıdaki linki inceleyebilirsiniz.

http://www.excel.web.tr/showthread.php?t=57064

 

[izcik]

Harika olmuş Teşekkürler değerli Korhan Ayhan

 

[muhammed_ismet_kurum]

Korhan bey gerçekten tşk ederim ilginize çok yararlı bişey benim için tşk ederim emeğinize sağlık...

 

[izcik]

Değerli Korhan Ayhan rica etsem C sütunu içinde kodu yazarmısınız. Yani B sütununa veri girdiğimde C sütununa sıralama numaralarını verecek.

B de herhangi bir sütuna veri girdiğimde tıpkı yukarıdaki örnekler gibi yanındaki C hücresine "1" yazacak

B de başka bir sütuna veri girdiğimde yanındaki C hücresine "2" yazacak

...

İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

#2 nolu mesajımdaki kodu güncelledim. İncelermisiniz.

 

[izcik]

Harika

Ne kadar teşekkür etsek azdır.