ID numarası vermek..

[policeman]

Merhaba..
K ve L sütunlardaki verilerden A3 satırından excel sonuna kadar ID oluşturmak istiyorum..
Formül ile oluşturabiliyorum ama araya satır eklediğimde düzenlemeye ihtiyaç duyuluyor..
Bu işlemi makro ile yapabilirmiyiz;
K ve L sütunlarına veri girdiğimde otomatik olarak A sütununa karşılığına yazdırsın..
Veya K ve L sütunlarına veri girdiğimde bir düğmeye tıkladığımda A sütununa karşılığına yazdırılsın..
Yardımlarınızı bekliyorum..
Saygılarımla..

 

[dEdE]

Merhaba,
Sayfanın kod bölümüne yapıştırıp dener misiniz?

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [L:L]) Is Nothing Then Exit Sub
    If Cells(Target.Row, Target.Column - 1) <> "" Then _
    Cells(Target.Row, Target.Column - 11).Value = Cells(Target.Row, Target.Column - 1) & "-" & Target.Value
End Sub

 

[Ömer BARAN]

Merhaba.

Sayın dEdE cevap yazmış ama benimkisi de alternatif olsun artık.

-- Alt taraftan sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
açılan VBA ekranının sağ tarafındaki boş alana aşağıdaki kod blokunu yapıştırın.

-- K ve L sütunundan, önce hangisinin yazılacağı belli değil ve herhangi birini yazdıktan sonra
tekrar değiştirilebileceğini de dikkate almak lazım bence.
.

[FONT="Arial Narrow"]Private Sub Worksheet_Change(ByVal Target As Range)
alan = "K3:L" & WorksheetFunction.Max([K65536].End(3).Row, [L65536].End(3).Row)
If Intersect(Target, Range(alan)) Is Nothing Then Exit Sub
If Target.Column = 11 And Cells(Target.Row, "L") = "" Then Exit Sub
If Target.Column = 12 And Cells(Target.Row, "K") = "" Then Exit Sub
    Cells(Target.Row, 1) = Cells(Target.Row, 11) & "-" & Cells(Target.Row, 12)
End Sub[/FONT]

 

[policeman]

Sn. dEdE ve Sn. Ömer BARAN her ikinizeden de Allah razı olsun..
Hemen yardımıma koştunuz..
Konu çözülmüştür..

 

[policeman]

Sn. dEdE ve Sn. Ömer BARAN
Uygulama sayfamda Option Explicit yazan bir kod mevcut..
Onun altına yapıştırdım ama çakıştı herhalde..
Tekrar bakabilirmisiniz,ayrıca K ve L sütunu ikiside dolu ise yazsın..
Saygılarımla..

 

[dEdE]

Merhaba,
Sayın Baranın tarif ettiği şekilde sayfanın kod bölümüne yapıştırmanız halinde sorun çıkarmaması lazım.
Sayfanızın kod bölümünde Private Sub Worksheet_Change(ByVal Target As Range) ile başlayan başka bir kod var ise çakışma söz konusudur ve bu durumda iki kodun birleştirilmesi gerekir.
Option Explicit kodların içinde tanımlanmamış değişken yazılmasını engeller. Bu kodlarda değişken olmadığı için sorun çıkarmamalı.
Benim yazdığım kod K sütunundaki değişiklikten etkilenmez. L sütununda herhangi bir hücre değiştirilirse K sütununu kontrol eder ve boş değilse istediğiniz işlemi yapar.
Hoşçakalın.

 

[policeman]

Teşekkürler Sn. dEdE..

 

[Ömer BARAN]

Bilgisayar başında değilim.
Sayın dEdE gerekli cevabı yazmış.
Kolay gelsin.
.