VBA HK

[üveyin]

Arkadaşlar,

İş yerimde kullandığım makro ile çalışan excel dosyamda yazılı kodlara ilave olarak kod ihtiyacım var. Ekli dosyada formüllerim adında jpg dosyası ve txt dosyasında ise kullanmış olduğum makrolar var. benim şu anlık ihtiyacım olan kısım Sayfa2 AD sütunundaki verileri Sayfa7 D sütununa atarken Sayfa7 deki C sütununa da PET yazacak kodlama yazılabilir mi acaba şimdiden emekleriniz için teşekkürler.

 

[AdemCan]

Sayfa7 D sütununa kopyalama işleminden sonra ekleyiniz.
Olmaz ise dosyanızı paylaşınız.

    With Sayfa7
        .Range("C6:C" & .Cells(Rows.Count, "D").End(3).Row) = "PET"
    End With

 

[üveyin]

dosyamı ekledim. yazmış oldugunuz kodu dediğiniz gibi kopyalama işleminden sonraya ekledim. ben aslında istediğim kodlama Sayfa2 AD sütunundaki atılan verilerin karşısına yani Sayfa7 D sütununa atarken Sayfa7 deki C sütununa AD deki verileri karşısına yazmasını istetiyorum mümkünse isteğimi yanlış yazmış olabilirim kusura bakmayın. dosyamı ekledim tşk ederim şimdiden

 

[AdemCan]

Kodu güncelledim.

say = Selection.Count
With Sayfa7
    son = .Cells(Rows.Count, "D").End(3).Row
    .Range("C" & son - say + 1 & ":C" & son) = "PET"
End With

 

[üveyin]

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

 

[AdemCan]

Rica ederim.