DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Hücreleri biçimlendirme korumadan değilde;
Makro olarak B,C,D ve e sütunun daki formülleri makro olarak yazabilirmiyiz ve bunların silinmemesi içeriğinin görülmemesi sağlanabilirmi
(formüller uzunluğu yaklaşık 1500 satır kadar olacak)
Sub Makro1()
ssat = Range("a65536").End(3).Row
Range("B4").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-1],Sayfa2!C[-1]:C,2,0),""."")"
Range("C4").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]=""."",""."",WEEKNUM(RC[-1]))"
Range("D4").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-3],Sayfa2!C[-3]:C,4,0),""."")"
Range("E4").Select
ActiveCell.FormulaR1C1 = "=IFERROR(VLOOKUP(RC[-4],Sayfa2!C[-4]:C,5,0),""."")"
Range("B4:E4").Select
Selection.AutoFill Destination:=Range("B4:E" & ssat)
Range("E" & ssat + 2).Select
End Sub
acaba bakabildinizmi