Selection ifadesinin anlamını bulamadım , bunu açıklarmısınız ilgili bir örnek varsa gönderir misiniz? şimdiden teşekkürler... :biggrin:
'Sıfır Parça Talebi
Selection.End(xlDown).Select
ActiveCell.Offset(2, 0).Select
ActiveCell.Value = "New_Part_Demands"
For i = 1 To NumPeriod
For j = 1 To NumComponent
ActiveCell.Offset(i, j - 1) = Int(Rnd * 101) + 100
Next
Next
'Sıfır Parça Talebi
Selection.End(xlDown).Select
ActiveCell.Offset(2, 0).Select
ActiveCell.Value = "New_Part_Demands"
For i = 1 To NumPeriod
For j = 1 To NumComponent
ActiveCell.Offset(i, j - 1) = Int(Rnd * 101) + 100
Next
Next
