VBA HK

üveyin

Altın Üye
Katılım
24 Nisan 2022
Mesajlar
115
Excel Vers. ve Dili
2016 tr
Altın Üyelik Bitiş Tarihi
24-04-2027
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.
 

Ekli dosyalar

Son düzenleme:

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Sayfa7 D sütununa kopyalama işleminden sonra ekleyiniz.
Olmaz ise dosyanızı paylaşınız.
Kod:
    With Sayfa7
        .Range("C6:C" & .Cells(Rows.Count, "D").End(3).Row) = "PET"
    End With
 

üveyin

Altın Üye
Katılım
24 Nisan 2022
Mesajlar
115
Excel Vers. ve Dili
2016 tr
Altın Üyelik Bitiş Tarihi
24-04-2027
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
 

Ekli dosyalar

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Kodu güncelledim.
Kod:
say = Selection.Count
With Sayfa7
    son = .Cells(Rows.Count, "D").End(3).Row
    .Range("C" & son - say + 1 & ":C" & son) = "PET"
End With
 

üveyin

Altın Üye
Katılım
24 Nisan 2022
Mesajlar
115
Excel Vers. ve Dili
2016 tr
Altın Üyelik Bitiş Tarihi
24-04-2027
emeğinize sağlık çok teşekkür ederim.
 

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,386
Excel Vers. ve Dili
2019 TR
Rica ederim.
 
Üst