DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub kod()
For i = 2 To Cells(Rows.Count, "C").End(3).Row
If Cells(i, "C").HasFormula = True Then
Cells(i, "B").FormulaR1C1 = Cells(i, "C").FormulaR1C1
End If
Next i
End Sub