bir veri aralığını kopyalarken koşullar

[modoste]

merhaba sayın hocalarım
örneğin E3:A32 arasına verilerin yazıldığı puantajda
E:AI (arada 31 sütun var herbiri 1 gün)

puantajı yapan arkadaşım çalışılan günlere "X" izinli günlere "İZ" raporlu günlere "RP" yazarak yaptığı puantajı
ben tek seferde tüm tabloyu kopyala yapıştır yaparken "X" = 1
"İZ" = "İ" ve "RP" = "R" yapılabiliyomu

kopyaladıktan sonra CTRL+F kullanıp bul değiştirlerle çözülüyo tabiikide fakat
kopyalama ve yapıştırma aşamasında bu sorunu çözebiliyomuyuz.

 

[omerceri]

Sn modoste
Aşağıdaki kodu bir kısa yol tuşuna uygularsanız ve kopyalayacağınız alanı kopyalayıp, yapıştıracağınız yerin en üst ve en soldaki hücreyi seçip, makroyu çalıştırın.

Sub Makro2()
ActiveCell.PasteSpecial (xlPasteAll)
For i = 1 To Selection.Count
If Selection(i) = "X" Then Selection(i).Value = 1
If Selection(i) = "İz" Then Selection(i).Value = "İ"
If Selection(i) = "RP" Then Selection(i).Value = "P"
Next
End Sub

 

[modoste]

teşekkür ederim