Birleştir Kodu

[sedat2161]

Hayırlı akşamlar arkadaşlar. Ekli dosyamda L:N arasına yazdığım metinler B sütununa yazılıyor.
A sütununa J:K arası bilgileri bir türlü uyarlayamadım yardımlarınızı bekliyorum.

 

[Muzaffer Ali]

Merhaba.
Sayfa1'in kod kısmında bulunan "Worksheet_Change" kodları silin aşağıdakileri kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    satir = Target.Row
    If Not Intersect(Range("L:N"), Target) Is Nothing Then
        Cells(satir, "B").Value = Cells(satir, "L").Value & " " & Cells(satir, "M").Value & " " & Cells(satir, "N").Value
    ElseIf Not Intersect(Range("J:K"), Target) Is Nothing Then
        Cells(satir, "A").Value = Cells(satir, "J").Value & Cells(satir, "K").Value
    End If
End Sub

 

[sedat2161]

Merhaba.
Sayfa1'in kod kısmında bulunan "Worksheet_Change" kodları silin aşağıdakileri kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    satir = Target.Row
    If Not Intersect(Range("L:N"), Target) Is Nothing Then
        Cells(satir, "B").Value = Cells(satir, "L").Value & " " & Cells(satir, "M").Value & " " & Cells(satir, "N").Value
    ElseIf Not Intersect(Range("J:K"), Target) Is Nothing Then
        Cells(satir, "A").Value = Cells(satir, "J").Value & Cells(satir, "K").Value
    End If
End Sub

Hocam çok teşekkür ederim. Emeğinize sağlık.