Bu makroya ikinci bir sütunu ekleyemiyorum

[umut100]

rivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Integer
If Not Intersect(Target, [c:c]) Is Nothing Then Exit Sub
For sat = 2 To Cells(65536, "m").End(xlUp).Row
If Cells(sat, "m") = "5101.01" Then Cells(sat, "l") = "Ç1 PİKİ"
If Cells(sat, "m") = "5101.02" Then Cells(sat, "l") = "Ç2 PİKİ"
If Cells(sat, "m") = "5101.03" Then Cells(sat, "l") = "H1 PİKİ"
If Cells(sat, "m") = "5101.04" Then Cells(sat, "l") = "H2 PİKİ"
If Cells(sat, "m") = "5102.03" Then Cells(sat, "l") = "130X130XKÜTÜK"
If Cells(sat, "m") = "5102.04" Then Cells(sat, "l") = "150X150XBLUM"

Burada l sütununa n sütunu eklemek istiyorum hem l ye hem de n ye taşısın.

Yardımcı Olabilirmisiniz.

İlginize şimdiden teşekkür ederim

 

[halit3]

If Cells(sat, "m") = "5101.01" Then Cells(sat, "l") = "Ç1 PİKİ"
If Cells(sat, "m") = "5101.02" Then Cells(sat, "l") = "Ç2 PİKİ"
If Cells(sat, "m") = "5101.01" Then Cells(sat, "n") = "Ç1 PİKİ"
If Cells(sat, "m") = "5101.02" Then Cells(sat, "n") = "Ç2 PİKİ"

rivate Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Integer
If Not Intersect(Target, [c:c]) Is Nothing Then Exit Sub
For sat = 2 To Cells(65536, "m").End(xlUp).Row
If Cells(sat, "m") = "5101.01" Then Cells(sat, "l") = "Ç1 PİKİ"
If Cells(sat, "m") = "5101.02" Then Cells(sat, "l") = "Ç2 PİKİ"
If Cells(sat, "m") = "5101.03" Then Cells(sat, "l") = "H1 PİKİ"
If Cells(sat, "m") = "5101.04" Then Cells(sat, "l") = "H2 PİKİ"
If Cells(sat, "m") = "5102.03" Then Cells(sat, "l") = "130X130XKÜTÜK"
If Cells(sat, "m") = "5102.04" Then Cells(sat, "l") = "150X150XBLUM"

Burada l sütununa n sütunu eklemek istiyorum hem l ye hem de n ye taşısın.

Yardımcı Olabilirmisiniz.

İlginize şimdiden teşekkür ederim

ekleme yaparak yapacaksınız örnek olarak 2 tane ekledim

 

[umut100]

çok teşekkür ediyorum.hemen deneyeceğim. sağolun varolun.

Hayırlı akşamlar