Makroyu düğmeye atamak için..

[policeman]

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

Yukarıdaki kodu düğmeye atamak için gerekli değişikliği yapmak için yardımcı olurmusunuz?!..
Saygılarımla...

 

[yanginci34]

Private Sub CommandButton1_Click()
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

veya

Sub Düğme1_Tıklat()
Dim alan
Dim target
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

olarak denermisiniz.

 

[policeman]

Sn. yanginci34 ilginize teşekkürler..
Ama ekteki şekilde hata verdi..

 

[askm]

Aşağıdaki şekilde deneyin.

Sub deneme()
alan = "K3:L" & WorksheetFunction.Max([K65536].End(3).Row, [L65536].End(3).Row)
If Intersect(ActiveCell, Range(alan)) Is Nothing Then Exit Sub
If ActiveCell.Column = 11 And Cells(ActiveCell.Row, "L") = "" Then Exit Sub
If ActiveCell.Column = 12 And Cells(ActiveCell.Row, "K") = "" Then Exit Sub
Cells(ActiveCell.Row, 1) = Cells(ActiveCell.Row, 11) & "-" & Cells(ActiveCell.Row, 12)
End Sub

 

[yanginci34]

Sayın askm sayenizde bizde bilgi sahibi olduk çok teşekkür ederim elinize sağlık.

 

[policeman]

Sn. askm ilginize teşekkürler..
Ama makro çalışmadı..
Ekteki örnekte deniyorum olmuyor..

 

[askm]

Makronuzun çalışabilmesi için K veya L sütununda olmanız gerekir. Aksi taktirde If Intersect(ActiveCell, Range(alan)) Is Nothing Then Exit Sub satırında bulamadığı için exit sub yapar. Yani işlem yapmaz. Eğer hangi satırda olursa olsun çalışsın diyorsanız. If Intersect(Cells(ActiveCell.Row, "k"), Range(alan)) Is Nothing Then Exit Sub şeklinde değiştirirseniz çalışır.

 

[policeman]

Sn. askm
şimdi hangi satırdaysam onu yapıyor ama benim istediğim ne kadar veri varsa kod çalışınca hepsi birlikte oluşsun...

 

[askm]

Aşağıdaki şekilde deneyin.

Sub deneme()
Dim SonSat As Long
SonSat = Range("K" & Rows.Count).End(xlUp).Row
Application.Calculation = xlManual
For i = 3 To SonSat
Cells(i, 1).Select
If Cells(i, "K") = "" Or Cells(i, "K") = "" Then
    Cells(i, 1) = ""
Else
    Cells(i, 1) = Cells(i, 11) & "-" & Cells(i, 12)
End If
Next
Application.Calculation = xlAutomatic
End Sub

 

[policeman]

Teşekkürler tam istediğim gibi oldu;Allah razı olsun..
Saygılarımla..

 

[askm]

Rica ederim.Allah cümlemizden razı olsun.